缓和曲线（切线支距法）
主程序DHYQX
Fix2：“JD”？B：“R”？R：“L0”？S：“PJ”？J:S ²÷24÷R→P:S÷2→Q：“T＝”：(R+P)Tan（J÷2）+Q→T◢
“L＝”：J×π×R÷180°+S→L◢
“E＝”：(R+P) ÷Cos（J÷2）－R◢
“D＝”：2T-L◢
B－T→A: “ZH＝”:A◢
A＋S→C: “HY＝”:C◢
C＋(L÷2－S)→F: “QZ＝”:F◢
F＋(L÷2－S)→G: “YH＝”:G◢
G＋S→H: “HZ＝”:H◢
Lb1 0：“LZ”？W： If W
“X＝”：N－N∧﹙5﹚÷40÷R²÷S²◢
“Y＝”：N－N∧﹙3﹚÷6÷R÷S◢
Return
子程序HYQ(缓和曲线部分支距算计)
“X＝”：RSin((K－S) ×180°÷π÷R＋S×180°÷2÷R÷π)＋Q◢
“Y＝”：R－RCos((K－S) ×180°÷π÷R＋S×180°÷2÷R÷π)＋P◢Return
解释：JD交点里程桩号；L0缓和曲线半径；R为圆心半径；PJ为偏角；W细部点到HZ或ZH的曲线长；ZH直圆点里程桩号；HY缓圆点里程桩号；QZ曲中点里程桩号；YH圆缓点里程桩号；ZH缓直点里程桩号；X,Y待测点支距坐标；
缓和曲线（切线支距法）
主程序DHYQX
Fix2：“JD”？B：“R”？R：“L0”？S：“PJ”？J:S ²÷24÷R→P:S÷2→Q：“T＝”：(R+P)Tan（J÷2）+Q→T◢
“L＝”：J×π×R÷180°+S→L◢
“E＝”：(R+P) ÷Cos（J÷2）－R◢
“D＝”：2T-L◢
B－T→A: “ZH＝”:A◢
A＋S→C: “HY＝”:C◢
C＋(L÷2－S)→F: “QZ＝”:F◢
F＋(L÷2－S)→G: “YH＝”:G◢
G＋S→H: “HZ＝”:H◢
Lb1 0：“LZ”？W： If W
“X＝”：N－N∧﹙5﹚÷40÷R²÷S²◢
“Y＝”：N－N∧﹙3﹚÷6÷R÷S◢
Return
子程序HYQ(缓和曲线部分支距算计)
“X＝”：RSin((K－S) ×180°÷π÷R＋S×180°÷2÷R÷π)＋Q◢
“Y＝”：R－RCos((K－S) ×180°÷π÷R＋S×180°÷2÷R÷π)＋P◢Return
解释：JD交点里程桩号；L0缓和曲线半径；R为圆心半径；PJ为偏角；W细部点到HZ或ZH的曲线长；ZH直圆点里程桩号；HY缓圆点里程桩号；QZ曲中点里程桩号；YH圆缓点里程桩号；ZH缓直点里程桩号；X,Y待测点支距坐标；