由本站论坛　火溪河　提供，谢谢！！



Q（子程序）

C≤H=>Z[8]=-Z[7]:Z[9]=0:Z[10]=0:Goto 2 ◣
C≤Z[3]=>Z[8]=Z[7]-Z[7]5/40/R2/L2:Z[9]=Z[7]3/6/R/L-Z[7]7/336/R3/L3:Z[10]=90Z[7]2/R/∏/L：Goto 2 ◣
C≤Z[4]=>Z[10]=90L/R/∏+180(Z[7]-L)/R/∏: Z[8]=RsinZ[10]+0.5L-L3/240/R2:Z[9]=R(1-cosZ[10]+L2/24/R:Goto 2◣
C≥Z[5] =>X=-(Z[7]-O):Y=0:Z[10]=A:Goto 1◣
C≥Z[4] =>Z[10]=A-90(O-Z[7])2/R/L/∏: X=(O-Z[7])-(O-Z[7])5/40/R2/L2:Y=(O-Z[7])3/6/R/L-(O-Z[7])7/336/R3/L3◣
Lb1 1:Z[8]=T+(T-X)cosA-YsinA:Z[9]=(T-X)sinA+YcosA:Goto 2 Lb1 2:Pol(Z[8],Z[9]) :Z[7]=F+JU :Q=Z[10]U :X=Z[1]+IcosZ[7] :Y=Z[2]+IsinZ[7]

HS（已知坐标求里程主程序）

M “X0 ”：N“Y0 ”：A :R :L“LS ”：T：O“L”：H “ZH ”：F Z[1]=P“XJD”+Tcos(F+180) :Z[2]=K“YJD”+Tsin(F+180) U“R+1,L-1” Z[3]=H+L :Z[4]=H+O-L :Z[5]=H+O Lb1 1 0 :C“LC” :Z[7]=Abs(C-H) Prog“Q” S=-((X-M)sin(Q+90)-(Y-N)cos(Q+90)) :Abs<0.0001=>C“LC”◢
W“LP”=(X-M)sinQ-(Y-N)cosQ◢
≠>C=C+S:Goto 0◣ C≥0=>prog“GL”

GL（已知里程求坐标主程序）

A :R :L“LS ”：T：O“L”：H “ZH ”：F Z[1]=P“XJD”+Tcos(F+180) :Z[2]=K“YJD”+Tsin(F+180) U“R+1,L-1” Z[3]=H+L :Z[4]=H+O-L :Z[5]=H+O Lb1 1 0 :C“LC” :Z[7]=Abs(C-H) Prog“Q” Q◢ X◢ Y◢

说明：
A:偏角
R:半径
L:缓和曲线长
T:切线长
O:曲线总长
H:直缓或直圆点
F:第一切线方位角
P、K：交点坐标　C
“LC”：里程　
W"LP":对应里程轴距