线元法计算器兼匝道程序.doc

完美WORD格式 范文范例.指导参考 5800 计算程序 主程序 QXJS LbI 0: “1.SZ=XY”:“2.XY=SZ” “3.GC=SQX”:? Q : Q=1= Goto1:Q=2=Goto2：Q=3 = Goto3 LbI 1: “CE:X”?G:“CEY:”?H:Prog“XLXY”: LbI A: “K = ” ?S: Prog“KM”：“-B,0,B=”? Z: “σ右交角=”?M:Prog“SUB1”: Fix 4:Cls “X=”: Locate3,1,N◢ “Y=”: Locate3,1,E◢ Prog“JI”:Goto A LbI 2: “X=”? B: “Y=”? C:B→N: C→E:Prog“SUB2”: “K =”:S◢ “-B，0，B=”:Z◢ Goto 0 LbI 3: 0→B: “H-B”?B:B→Z[9]: LbI D: Prog“XLXY”: “KM”?Z: Prog“KM”：“-B,0,B”?D:Prog“H” Fix 5：“H=”:H-Z[9] →H◢ “I=”: I◢ Goto D 说明： Q: 代表正反算及竖曲线，其中 1 为正算， 2 为反算；3代表竖曲线； S: 代表里程； Z ：代表偏移距离； M ：代表偏移角度（以线路前进方向为 X 方向，顺时针转为正； N ： X 坐标； E ： Y 坐标； F ：切线方位角； SUB1 正算子程序 0.5 （ 1÷R-1÷P） ÷L→D:S-O→X U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E A+(X÷P+DX2)×180÷π→F N+Zcos(F+M) →N:E+Zsin(F+M) →E Return SUB2 反算子程序 Lbl 1:0→Z ： 1→Q ： Prog“KM”: Prog“SUB1” Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S If Abs(W)0.0001 :Then Goto1 Lbl 2: 0→Z ： Prog“SUB1”:(C-E) ÷sin(F+90) →Z 次程序JI Clstat Pol(N-G,-E-H):Cls If J0:Then J+360→Y:Ease J→Y:Ifend “F J L=”:I◢ “F W J=”:Y▲ DMS ◢ XLXZ(线路选择) 1→I：“XLXZ:Z=1:A=2，B=3，C=4，D=5，E=6，F=7，L=8”?I: I →Z[1]: IF I =0:Then Goto 0:Else Goto 1:IfEnd LbI 0 : “F”?A: “QDZH”?O: “X”?U: “Y”?V: “R1”?P: “R2”?R: “L”?L: Goto 1 LbI 1 SUB0 ( 数据库 )Goto1 ↙ Lbl 1IF S157687.528:Then 157547.528→o :2884169.2517→U:471475.6573→V: 98 °32 ′43.08 ″→A:10^45→P:10000；→R:140→L: Return:IfEnd 说明： S ：里程； O 为线元起点里程； U 为线元起点 X 坐标；V 为线元起点 Y 坐标； A 线元起点切线方位角； P 线元起点半径（左转为负右转为正）； R 线元终点半径（左转为负右转为正） 高程计算子程序（H） 程序名：H Prog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If ZF:Then Q+SI→H:Goto 0:Else If Z≤E:Then Q+SI+S2÷2÷R→H:Goto 0: LbI 0:H:If D=0:Then Goto I:Else Prog“I”:H+V→H:Goto I LbI I 高程超高计算程序（I） 程序名：I If Z[3]=1:Then Prog “I1”:Goto 1: IfEnd LbI 1: If W=1:Then Goto Z:Else Goto X: IfEnd LbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd: LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S