Lbl0:R:V:A:P:Q:F:G:{BSE}:B<0⇒Goto1⊿C=0⇒Goto2:⇏Goto3⊿↵
Lbl2:K=Abs(B-A):Z=K-Kˆ5÷40R2V2+Kˆ9÷3456Rˆ4Vˆ4:U=Kˆ3÷6RV-Kˆ7÷336Rˆ3Vˆ3+Kˆ11÷
42240Rˆ5Vˆ5:Rec(Z,F):X=P+I:Y=Q+J:H=0⇒Goto4:⇏Goto5⊿↵
Lbl4:Rec(U,F+90G):X=X+I◢Y=Y+J◢O=90K2÷RπV:M=X+Scos(F+OG+E)◢N=Y+Ssin(F+OG+
E)◢Goto0↵
Lbl5:Rec(U,F-90G):X=X+I◢Y=Y+J◢O=90K2÷RπV:E<0⇒Goto8⊿E>0⇒Goto9⊿↵
Lbl8:M=X+Scos(F-OG+E+180)◢N=Y+Ssin(F-OG+E+180)◢Goto0↵
Lbl9:M=X+Scos(F-OG+E-180)◢N=Y+Ssin(F-OG+E-180)◢Goto0↵
Lbl3:T=90V÷πR:D=V2÷24R-Vˆ4÷2688Rˆ3:L=V÷2-Vˆ3÷240R2:K=Abs(B-A):O=180K÷Rπ+T:Z=RsinO+L:U=R(1-cosO)+D:Rec(Z,F):X=P+I:Y=Q+J:W=0⇒Goto6:⇏Goto7⊿↵
Lbl6:Rec(U,F+90G):X=X+I◢Y=Y+J◢M=X+Scos(F+OG+E)◢N=Y+Ssin(F+OG+E)◢Goto0↵
Lbl7:Rec(U,F-90G):X=X+I◢Y=Y+J◢E<0⇒GotoA⊿E>0⇒GotoB⊿↵
LblA:M=X+Scos(F-OG+E+180)◢N=Y+Ssin(F-OG+E+180)◢Goto0↵
LblB:M=X+Scos(F-OG+E-180)◢N=Y+Ssin(F-OG+E-180)◢Goto0↵
Lbl1:{RVAPQFG}:Goto0↵

备注:(一)对于R<V及半径小于缓和曲线的线性该程序无法计算,尤其是R<50时。
     (二)程序运行说明:
        ①C=0,H=0时进行ZH—HY之间坐标运算,②C=0,H=1时进行YH—HZ之间坐标运算。③C=1,W=0时进行HY—YH之间坐标运算,④C=1,W=1时进行YH—HY之间坐标运算。
R─圆曲线半径.  V─缓和曲线长度,V1前缓和曲线长,V2后缓和曲线长.  A─程序起算桩号:运行①为ZH/ZY点，②为HZ/YZ点，③为YH点，④为HY点.  P─程序起算横坐标:运行①③时为ZH/ZY点坐标,②④时为HZ/YZ点坐标.  Q─程序起算纵坐标:运行①③时为ZH/ZY点坐标,②④时为HZ/YZ点坐标.  F─程序起算方位角:①③时为前一方位角,②④时为后一方位角＋180. G─转角方向:左(-1),右(1).  B─程序计算时待求桩号(注意运算范围). S─边桩距中桩距离.
E─边桩与中桩连线与前进方向的夹角:左为“－”,右“+”范围0─180.