直线计算程序
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
输入程序时注意区别字母 O 与数字 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√(4R2-H2) →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
输入程序时注意区别字母 O 与数字 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 ，左偏 = 负值，右偏 = 正值。