5800线元法程序

Fix4:Lbl1:?T:”K=”?K:”J=”?J:IFT=1:Then prog”F4”:IFEnd:IF T=2:Then prog”F1”:IFEnd: IF T=3:Then prog”dx”:IFEnd :IF D=0:ThenD→D:ELSE 1÷D→D:IFEnd IF E=0:Then E→E:ELSE 1÷E→E:IFEnd (E-D)÷Abs(G-F) →P ABS（K-F）→Q P×Q→I

C+(I+2D)×Q×90÷π→R

R+90.00000→O 斜交时要更改角度 C+(I÷8+2D)×Q×45÷(4π)→M C+(3I÷8+2D)×Q×135÷(4π)→N C+(5I÷8+2D)×Q×225÷(4π)→U C+(7I÷8+2D)×Q×315÷(4π)→V C+(I÷4+2D)×Q×45÷(2π)→S C+(I÷2+2D)×Q×45÷π→W C+(3I÷4+2D)×Q×135÷(2π)→Z

A+Q÷24×(cosC+4×（cosM+cosN+cosU+ cosV）+2×(cosS+cosW+cosZ)+cosR)+JcosO→X

B+Q÷24×(sinC+4×sinM+sinN+sinU+sinV)+2×(sinS+sinW+sinZ)+sinR)+JsinO→Y “X=”:X▲ “Y=”:Y▲ GOTO 1

T表示提取对应的子程序文件。 子程序文件名 F1

IF K<100起点里程:Then”K-<<<”:Step:ifend:IF K≦140:Then573.392→A:686.607→B:240度17分40秒→C:0→D :0→E:100→F:140→G:Goto

0:Ifend :K≦140:Then573.392→A:686.607→B:240度17分40秒→C:0→D :0→E:100→F:140→G:Goto 0:Ifend IF K>140 And K≦155.538:Then553.570同上 IF K﹥终点里程：Then”K+>>>”:Step:IFEnd Lbl 0：Return 显示说明：

T=? 选择可执行子程序编号 K=? 输入桩号

J=？ 中桩至边桩距离 左负、右正，中线输入0 X= 计算结果 Y= 计算结果

文件名 FWJ

Fix 4：Lbi 5：“XA=”？A：“YA=”？B：“XB=”？C：“YB=”？D：IF C<0(零)：Then Goto5:IFEnd:C-A→E:D-B→F: √(E2+F2)→S:tan-1(F÷E)→R回车 IF E<0(零):Then R+180→R:Goto 2:IFEnd:F<0(零)=>R+360→R回车 Lbi 2:”DIST=”:S▲”ALFA=”:R▼DMS▲Goto5 显示说明： XA=? 25 测站

YA=? 36 测站点Y坐标 XB=? 45 后视点X坐标

YB=? 66 后视点Y坐标 DIST=36.0555 两点距离

ALFA=56°18′35.76″ A点到B点方位角