5800平曲线测量程序

1.　　　　 4→DIMZ: 1→M:“ZD=1,YD=2”?M
2.　　　　 If M=1:Then **→F:**→N:**→G:**→H:**→Q:**→W:**→K:Goto 2:IfEnd
3.　　　　 If M=2:Then **→F:**→N:**→G:**→H:**→Q:**→W:**→K:Goto 1:IfEnd
4.　　　　 …………
5.　　　　 Lbl 1：H÷2-H3÷240÷R2→M　　　　　　　　　　　　　
6.　　　　 H2÷24÷R-H4÷2688÷R3→P　　　　　　　　　　　　　　
7.　　　　 90H÷π÷R→U　　　　　　
8.　　　　 πR(N-2U)÷180+2H→L　　　　　　　　　　　　　　　　　U　　　β0=Ls/2R　　
9.　　　　 M+(R+P)tan(N÷2)→T　　　　　　　　　　　　　　　　　
10.　　　Q-T→A:A+H→B:A+L→D:D-H→C　　　　　　　　　　　　　　
11.　　　0→I:0→J:Rec(T,F+180):I+W→Z[1]:J+K→Z[2]　　　　　　　ZH点坐标增量计算，ZH点坐标
12.　　　Rec(T,F+GN):I+W→Z[3]:J+K→Z[4]　　　　　　　　　　　　 HZ点坐标增量计算，HZ点坐标
13.　　　Lbl 0: “Z”?Z:“S”?S:“E”?E　　　　　　　　　　Z为待求点桩号;S为偏距;E为偏角(左偏为-,右偏为+)
14.　　　If Z＜A:Then Rec(Q-Z,F+180):I+W→X:J+K→Y:F+180-E→V:Goto 2:IfEnd　　　 第一条直线
15.　　　If Z＜B:Then Z-A→L:90L2÷(πRH)→O
16.　　　L-L5÷(40R2H2)+L9÷(3456R4H4) →X
17.　　　L3÷(6RH)-L7÷(336R3H3)+L11÷(42240R5H5) →L
18.　　　F+GO+E→V
19.　　　Rec(X,F):Z[1]+I→X:Z[2]+J→Y
20.　　　Rec(L,F+90G):X+I→X:Y+J→Y
21.　　　Goto 2:IfEnd第一条缓和曲线
22.　　　If Z＜C:Then Z-B→L
23.　　　(90H+180L)÷π÷R→O
24.　　　Rec((R+P)÷cos(N÷2),F+G(90+N÷2)):W+I→X:K+J→Y
25.　　　Rec(R-GSE÷AbsE,F+G(270+O))
26.　　　“X”:X+I→X◢
27.　　　“Y”:Y+J→Y◢
28.　　　Goto 0:IfEnd圆曲线
29.　　　If Z＜D:Then D-Z→L:90L2÷(πRH)→O
30.　　　L-L5÷(40R2H2)+L9÷(3456R4H4)→X
31.　　　L3÷(6RH)-L7÷(336R3H3)+L11÷(42240R5H5)→L
32.　　　Rec(X,F+GN+180):Z[3]+I→X:Z[4]+J→Y
33.　　　Rec(L,F+GN+180-90G):X+I→X:Y+J→Y
34.　　　F+GN+180-OG-E→V
35.　　　Goto 2:IfEnd第二条缓和曲线
36.　　　If Z>D:Then Rec(Z-D+T,F+GN): W+I→X:K+J→Y
37.　　　F+NG+E→V
38.　　　Goto 2:IfEnd第二条直线
39.　　　Lbl 2：Rec(S,V): “X”:X+I→X◢
40.　　　“Y”:Y+J→Y◢
41.　　　Goto 0

ZH:HY:HZ:YH　里程桩号
T　　切线长
L　　曲线长（含缓和段）
P　　为加设缓和曲线后圆曲线相对于切线的内移量
M　　为加设缓和曲线后的切线增量
F——第一直线段正方位角
N——交点转向角（即偏角），输入绝对值
G——条件,曲线右偏为+，左偏为--
R——圆曲线半径
H——缓和曲线长度，无缓和曲线则输入0
Q——交点桩号
W,K——交点坐标值（x,y）
X,Y——所求点坐标值（x,y）
Z——所求桩号
S——偏距
E——偏角(在算圆曲线时E不能为0,否则程序中语句“Rec(R-GSE÷AbsE,F+G(270+O))”将因除0而出错.)