直線計算程序
0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0:
Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:
D+Scos(A) →X:”X=”:X ◢
E+Ssin(A) →Y:”Y=”:Y ◢
Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢
E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢
Goto 0
輸入程序時注意區(qū)別字母 O 與數(shù)字 0
程序運行時符號說明
X0? Y0? 分別輸入直線起點的 XY 坐標值
X1? Y1? 分別輸入直線終點的 XY 坐標值
O? 輸入邊樁與中樁的距離 ( 左邊樁為負值 , 右邊樁為正值 ), 如計算中樁坐標輸入 0
S? 輸入所求點到直線起點的距離

圓曲線計算程序
0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:
T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd:
sin^-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢
D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢
R-0.5√(4R²-H²) →Q:”Q=”:Q ◢
“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢
Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢
Goto 0
輸入程序時注意區(qū)別字母 O 與數(shù)字 0
程序運行時符號說明
X0? Y0? 分別輸入直線起點的 XY 坐標值
X1? Y1? 分別輸入直線終點的 XY 坐標值
R? 輸入圓曲線半徑
L:-1 R:1? 圓曲線向左轉彎時輸入 -1, 向右轉彎時輸入 1
ZY? 輸入起點樁號
LN? 輸入所求點樁號 ( 按下 exe 鍵后顯示中樁坐標 )
S? 輸入所要求的邊樁與中樁的距離
L:-90 R:90 要求左邊邊樁輸入 -90, 右邊邊樁輸入 90( 按下 exe 鍵后顯示邊樁坐標 )

二、程序清單
程序名 ：大地轉施工
“QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q ↙
Pol( O -A,Q-B) ↙
J<0=>J+360→J ↙
J>360=>J-360→J ↙
J→F:“JF=” ： F ◆ DMS ◢
Lb1 0 ↙
？ X:?Y ↙
Pol （ X-A,Y-B):I→D ↙
J<0=>J+360→J ↙
J>360=>J-360→J ↙
J-F→T:T→G ↙
T<0=>T+360→G ↙
T>360=>T-360→G ↙
Z+Dcos （ G)→K:“K=” ： K ◢
Dsin （ G)→C:“C=” ： C ◢
GoTo 0 ↙
三、程序使用說明：
QK-- 輸入線路起始點里程
QX-- 輸入線路起始點中樁 X 坐標
QY-- 輸入線路起始點中樁 Y 坐標
ZX-- 輸入線路前進方向中樁 X 坐標
ZY-- 輸入線路前進方向中樁 Y 坐標
JF=-- 顯示線路測量坐標方位角
X-- 輸入線路附近任意點測量 X 坐標
Y-- 輸入線路附近任意點測量 Y 坐標
K-- 顯示計算結果：里程樁號，即工程 X 坐標
C-- 顯示計算結果：左右偏距，即工程 Y 坐標 , 中樁 =0 ，左偏 = 負值，右偏 = 正值。