Z="L-1,R+1":A"A0":Q=R+S"LSci"2÷24R:T=S÷2-S^3÷240R2+Anstan .5A◢L=RA÷1r+S◢H"ZH"=W"JDT"-T◢I"HY"=H+S◢I"QZ"=H+.5L◢I"YH"=H+L-S◢L"HZ"=H+L◢ D"XJ"K"YJ"B"Gra"O"XE"U"YE"G"Xm"M"Xm":LbIF: {FN}:F≤H=>X=F-W:ZN:≠=> F≤L-S=>V=F-H:FProg"Q"：≠=> Rec(R-ZN,(2V-S)r÷2R:X=J-Qtan.5A:Q-I⊿≠>V=L-F:PoI(T-V,ZN:FProg "Q": PoI(-X,Ans⊿X=Rec(Ans,A+J:J⊿⊿X=D+Rec(PoI(X, ZAns,J+B◢ Y=K+J◢ " OK!":PoI(G-O,M-U:V=J:PoI(X-O,Y-U:J-V:Ans<0=>Ans+360⊿V=Ans ◢ I"P="◢ Goto F [主程序结束] Q [子程序] Y=2RS:Rec(ZN,V2r÷Y:X=V-V^5÷10Y2-T-J:V^3÷3Y-V^7÷42Y^3+I 注：本程序适用于完整线型。（即：直线+缓和曲线+圆曲线+缓和曲线+直线） Z：线路偏向信息左转输：-1，右转输：+1。 r：弧度，按[FUNCTION] 键→[5]键→[5]键输入。 A0:线路转向角以度分秒形式输入。 R：圆曲线半径。 Lsci:缓和曲线长度。无缓和曲线，单圆曲线时输入“0” T=：程序输出切线长。 L=：程序输出曲线长度。 JDT？：输入交点里程。 ZH=、HY=、QZ=、YH=、HZ=：程序输出曲线五大桩里程。 XJ：输入交点大地坐标。用切线坐标系时输0。 YJ：输入交点大地坐标。用切线坐标系时输0。 Gra: 输入ZH点方位角，用切线坐标系时输0。 XE：输入 置镜点坐标，用于切线坐标系时该项为切线坐标。 YE：输入 置镜点坐标，用于切线坐标系时该项为切线坐标。 Xm：输入 后视点坐标，用于切线坐标系时该项为切线坐标。 Ym：输入 后视点坐标，用于切线坐标系时该项为切线坐标。 F：输入放样点里程桩号。（若放样点位于前一公里内，可以“-50”的形式输入，程序认为放样点为“+950”，反之输入“1200”表示放样点位于下一公里内。） N：输入边桩至中桩距离，（线路左边桩输入负值，右边桩以正值输入）计算中桩坐标时输“0”。 X：输出放样点x坐标。 Y：输出放样点y坐标。 OK:表示计算正在进行。 V：输出放样水平角。（即前视到置镜点方位角减后视到置镜点方位角） P：输出放样点至置镜点距离。
