计算器公路全线坐标正

《计算器公路全线坐标正》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、5800计算器公路全线坐标正、反算计算程序FX5800全线贯通万能正、反算程序（一体化、超好用、短小、易懂）FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU主程序"1.ZS,2.FS"?→Q←┘输入1正算，输入2反算“NEW=0,OLD≠0”?Z←┘IfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto2←┘Lbl1:“KM=,<0Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?L←┘LblZ:Z=1=>Pr

2、og“01”：Z=2=>Prog“02”←┘选择数据库文件，可增加H-F→X:0.5(E-D)÷(G-F)→N←┘C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P←┘A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U←┘B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V←┘Q=2=>Goto4：Cls：Fix3←┘"Xn=":Locate4，1，U："Yn=":Locate5，2，V：“FWJ=”：PDMS◢Norm2：Cls：Goto1←┘Lbl2:“

3、XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S←┘“KMDG=”？H：90→O:0→L：GotoZ←┘（H线路范围内的任意桩号）Lbl4:Pol（R-U，S-V）：J<0=>J+360→J←┘Whileabs（Icos（J-P））≤0.001:P-J>180=>J+360→J：P-J<-180=>P+360→P:IfP-J>0:then-I→L:elseI→L:Ifend:Goto3:Whileend：H+Icos（J-P）→H:GotoZ←┘Lbl3:Cls：Fix3←┘“KM=”:Locate4，1，H：“PY=”:Locate4，2，L◢Nor

4、m2：Cls：Goto2←┘01（数据库子程序）IfH<=第一曲线终点桩号：then第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend……………程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点

5、X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。5、此程序显示较直观，结果在同一屏幕显示。注*：程序中乘号用*标示，其余为X。5800全线任意点设计高程计

6、算，可计算竖曲线范围内外任意点的设计高程！非常实用！“BPDZH=”?Z:“GC=”?H:“R=”?R:“I1=”?I:“I2=”?L：“T=”:0.005RAbs(I-L)→T◢“E=”:T2÷2÷R◢Lbl0:“JZZH=”?→K:Z-T→A:Z+T→B:K-A→C:B-K→D:K-Z→E←┘IfL>I:Then1→J:Else-1→J:IfEnd←┘IfKB=>0→D:IfEnd←┘IfK≦Z:ThenI→Y:C→G:ElseK>Z=>L→Y:D→G:IfEnd←┘Lbl1:Fix3:“H=”:H+EY÷100+JG2÷2÷R◢Goto0←┘说明：BPDZH：前变坡点桩号

7、用变量Z表示H：前变坡点高程R：半径IL：前后纵坡值输入格式：6.1%输入6.1，有负号的要输入负号T：切线长E：竖距JZZH：待求点设计高程的桩号用变量K表示Fix3：计算结果保留3位小数5800计算器公路全线坐标正、反算计算程序正算主程序(ZS)Lb10FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O)→W：Prog"SUB1"："XS="：X◢"YS="：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”:Prog“SQX”：“H=”：H