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

0/100

5800 计算程序

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

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

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<157687.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