一、运行变量名称说明：
M为待求桩号 K为左右偏距(左-右+) G为路线正斜交角
H、I为待求点的X、Y坐标 U为待求桩即时切线方位角
二、要素程序输入中的变量说明： XY为起点坐标
W为单曲线段起始方位角 E、F为单曲线段起止桩号
A、B为单曲线段起止半径(起或止为缓和曲线的输为缓和参数) Q=-1、1分别指单曲线段的左转、右转
J=1、-1分别为缓和曲线指ZH->HY、YH->HZ方向 P=1、2、3分别指单曲线段为直线、圆曲线、缓和曲线
另外：主线中Z=1、2为断链1、2段(如K8+273.243=K8+100)
三、主程序中第三句根据需求线路随时更换子程序名。
主程程序\Lbl 0 {M}:\Prog \
X\P:\
P=1=>Goto 1:≠=>P=2=>Goto 2:≠=>P=3=>Goto 3 Lbl 1 进入直线段计算 M {K} {G} F \W◢
H=X+(M-E)*cosW+K*cos(W+G)◢ I=Y+(M-E)*sinW+K*sin(W+G)◢ Goto 0
M
O=X+A*cos(W+90Q) 圆心坐标(O,P) P=Y+A*sin(W+90Q) V=Abs(M-E)/A*180/π*Q \U=W+V◢
H=O+A*cos(U-90Q)+K*cos(U+G)◢ I=P+A*sin(U-90Q)+K*sin(U+G)◢ Goto 0
M
V=(F-E)/Abs(F-E)
Z=W+L^2/(2C)*180/π*Q*(-J) T=L+(Abs(M-E))J
U=Z+T^2/(2C)*QJV*180/π◢
O=(T-L)-(T^5-L^5)/(40C^2)+(T^9-L^9)/(3456C^4)-(T^13-L^13)/599040C^6+(T^17-L^17)/175472640C^8
P=(T^3-L^3)/(6C)-(T^7-L^7)/(336C^3)+(T^11-L^11)/(42240C^5)-(T^15-L^15)/9676800C^7+(T^19-L
^19)/3530096640C^9 D=VJ S=QJ
H=X+OD*cosZ+PD*cos(Z+90S)+K*cos(U+G)◢ I=Y+ODsinZ+PDsin(Z+90S)+K*sin(U+G)◢ Goto 0
M
主线\
M>5865=>X=3361488.152:Y=449202.642:W=101`49`58`:E=5865:P=1
M>5865.526=>X=3361488.044:Y=449203.157:W=101`49`58`:E=5865.526:A=9^60:B=1096.59:Q=-1:J=1:P=3:F=6235.526
M>6235.526=>X=3361419.068:Y=449566.617:W=98`34`16.9`:E=6235.526:A=3250:Q=-1:P=2 M>7674.84=>X=3361521.529:Y=450990.516:W=73`11`49.3`:E=7674.84:F=8044.84:A=3250:B=1096.59:J=-1:Q=-1:P=3
M>8044.84=>X=3361641.834:Y=451340.355:W=69`56`7.9`:E=8044.84:P=1:Z=2=>X=3361720.194:Y=451554.895:W=69`56`7.9`:E=8100:P=1
匝\
M≥0=>X=3361721.181:Y=450482.643:W=85`46`15`:E=0:A=800:Q=1:P=2
M>716.396=>X=3361468.151:Y=451127.474:W=137`4`44`:E=716.396:F=776.396:Q=-1:A=9^45:B=60:P=3:J=1
M>776.396=>X=451174.516:W=108`25`51.6`:Q=-1:A=60:E=776.396:P=2
M>842.929=>X=3361446.56:Y=451235.989:W=44`53`50`:A=60:B=60:Q=-1:E=842.929:F=902.929:J=-1:P=3
M>902.929=>X=3361499.992:Y=451261.793:W=16`14`58`:E=902.929:F=947.929:Q=1:A=9^45:B=90:J=1:P=3
M>947.929=>X=3361542.602:Y=451276.164:W=23`24`41.1`:E=947.929:Q=1:A=180:P=2
M>1047.145=>X=3361618.517:Y=451338.083:W=54`59`34.26`:E=1047.145:F=1141.034:Q=1:J=-1:A=180:B=130:P=3
匝\
M≥842.929=>X=3361446.56:Y=451235.989:W=44`53`50`:E=842.929:A=60:Q=-1:P=2
M>932.843=>3361528.246:Y=451238.793:W=319`02`08.44`:E=932.843:F=1067.843:Q=-1:J=-1:A=60:B=90:P=3
M>1067.843=>X=3361541.195:Y=451111.894:W=354`34`40`:E=1067.843:P=1
匝\
M≥0=>X=3361640.231:Y=450877.857:W=115`7`37`:A=791.747:B=55:E=0:F=46.596:P=3:J=1:Q=1 M>46.596=>X=3361614.603:Y=450916.347:W=139`3`39.2`:E=46.596:A=60:Q=1:P=2
M>101.697=>X=3361563.143:Y=450929.781:W=191`40`42.5`:E=101.697:F=234.195:A=60:B=90:Q=1:J=-1:P=3
匝\
M≥0=>X=3361652.781:Y=450889.678:W=115`30`28`:E=0:F=53.571:A=9^45:B=150:Q=-1:J=1:P=3 M>53.571=>X=3361630.748:Y=450938.498:W=111`51`13.6`:E=53.571:A=420:Q=-1:P=2
M>303.928=>X=3361610.206:Y=451184.308:W=77`42`1.6`:E=303.928:F=385.416:A=420.:B=185:J=-1:Q=-1:P=3
M>385.416=>X=3361632.665:Y=451262.605:W=72`8`31.93`:E=385.416:P=1
匝\