fx5800缓和曲线计算程序

《fx5800缓和曲线计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、FX5800计算器的积分程序（正反算、全线路、新线路）终极版相关搜索：计算器，正反，线路，积分，程序FX5800计算器的积分程序(正反算、全线路、新线路)终极版ZHUCHENGXU主程序〃1.ZS,2.FS〃？一Q输入1正算，输入2反算“NEW二0,OLDHO”?ZIfZ=0:Then“X0二”?A:“Y0二”?B:“CO二”？C:“1/R0二”?D:“1/RI二”?E:“SP二”?F:“EP二”?G:Ifend:Q二2二〉Goto2Lbl1:UKM=,<0Stop”？H:H〈0二〉Stop:“P

2、J二”？0:"PY二”?LLblZ:Z=1=>Prog“01”:Z二2二〉Prog“02”选择数据库文件，可增加H-F-X:0.5(E-D)4-(G-F)->NC+(XD+NX2)*180—兀-P：P<0二〉P+360-P：P>360=>P-360->PA+f(cos(C+(XD+NX2)*1804-n),0,X)+Lcos(P+0)->UB+f(sin(C+(XD+NX2)*180一兀)，0,X)+Lsin(P+0)TQ二2二〉Goto4：Cis：Fix3〃Xn二〃：Locate4,1,U：〃Y

3、n=〃：Locate5,2,V：“FWJ二”:1>DMSANorm2：Cis：Goto1Lbl2:“XD二，〈0,STOP”?R：R〈0二〉Stop:“YD二”?S“KMDG二”?H:90->0:0->L：GotoZ(H线路范围内的任意桩号)Lbl4:Pol(R-U,S-V):J<0=>J+360-JWhileabs(Icos(J-P))W0.001:P-J>180二〉J+360-J：P-J<-180二〉P+360-P:IFP-J>0:thcn-I-*L:elseI-*LifendGoto3:Wh

4、ileend：H+Icos(J-P)-*H:GotoZLbl3:Cls：Fix3“KM二”:Locate4,1,II：“PY二”:Locate4,2,L,Norm2：Cis：Goto201(数据库子程序)IfHU第一曲线终点桩号：then第一曲线起点X->A：第一曲线起点Y->B：第一曲线起点方位角一C：起点曲率一D：终点曲率一E：起点桩号一F：终点桩号一G：return：ifend程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1）,也可根据坐

5、标计算该点到线路的距离及垂足桩号（反算，输入2）:2、（NEW=0,0LDH0）?如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要汁算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；CO:曲线起点方位角；ROT、RT-1:曲线起点、终点曲率，直线为0,曲线左偏输入负值，右偏输入正值；SIEP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0,右偏输入+值，左偏输入-值；3、正

6、算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏屮距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。5、此程序显示较直观，结果在同一屏幕显示。注*:程序中乘号用*标示，其余为X。卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版（2011-08-0821:50:08）转载标签：5800全线匸反算杂谈本程序是本人在承秦高速8标施工中根据蓝星程序2・3更改结果，修正了一些错误，去除一些功

7、能，可以计算路基任意点坐标，设计高程.隧道欠超挖放样计算。支持断链，隧道超欠挖，支持N条线路输入，计算精度lmm•与原程序主要功能（采用交点法方式计算多条线路坐标正反算，要计算SZ杂线型及立交匝道，包括C型，S型、卵型、冋头曲线等；请使用线元法2-XYo欢迎广大朋友提出建议共同学习。本程序经作者实践证明真情奉献，如需转载请注明出处！作者：张涛1•主程序：一般坐标计算及放样程序一“交点法程序名:1・JDClrmat：Clrvar:Lal0:10^DimZ:Norm2:1—A:”A:XY=1,KMD=

8、2n?A:A=l=>Goto1:A=2=>Goto2:（选择正算还是反算）Lal1:LalA:Prog,rQXH:（选线,默认（线路1）Xl=l,（线路2）X2=290->A:”PJ”?A:A->Z[1]:（默认与道路切线方向90度）LalB:Do:"KM”?Z:Z=-1=>Stop:Z=-2=>Break:Prog”K”:?D:（输入正算计算里程，输入・1则停止，输入・2转反算），偏距默认中桩0,左为・，右为+,）PorguZn:I+Dcos(Z[2]+Z[l]->X:J+Dsi