1. 主程序(NTSSD--CQW)Lbl 1：5→DimZ：（增加Z型5个变量）600→S：（输入近似里程）Prog“SUB0”↙(定义所在线元数据库)1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:“X=”？X：“Y=”？Y：X→I：Y→J：(输入实测XY标,) “H=”？ →Z[1]: (输入实测高程)“R=”？ →Z[2]: (输入断面理论半径)Prog“SUB2”：(调用反算子程序,由反算两次调用正算子程序)O+W→S：“K=”：S◢“BIANJULI=”：Z◢(得到桩号及离中心桩距离)Abs(Z)→B：  (将变量值另存,利于后面计算)617.42→C：  (定义此段竖曲线变坡点桩号，也可？C：输入)71.1→D：    (定义此段竖曲线此段竖曲线变坡点高程)1→I：       (定义此段竖曲线后坡点坡度)-0.6→J：    (定义此段竖曲线前坡点坡度)