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

主程序 QXJS
LbI 0: “=>XY”:“=>SZ”“=>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 正算子程序
( 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)> :Then Goto1
Lbl 2: 0→Z : Prog“SUB1”:(C-E) ÷sin(F+90) →Z
次程序JI
Clstat
Pol(N-G,-E-H):Cls
If J<0: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 1
IF S<:T
hen →o :→U:→V: 98 °32 ′ ″→A:10^45→P:10000;→R:140→L: Return:IfEnd
说明: S :里程; O 为线元