▲▲D”YL”QJ▲▲Goto0Lbl2｛H｝H”｛JULI｝L”｝｛｝Rec（HF）（）P“X”XI▲“”▲Q“Y”YJ▲“”▲Goto0说明：说明：上程序接主程序，完善主程序法线垂线任意点坐标计算空白。上程序接主程序，完善主程序法线垂线任意点坐标计算空白。XY为中桩XY坐标PQ为中桩左、右侧法线上点坐标为中桩左、L为法线上垂线距离（计算时只需要输入这个数值就行了）为法线上垂线距离（计算时只需要输入这个数值就行了）H直线上点距起点距离XY为直线上H距离处坐标提示：当计算线路右侧时，提示：当计算线路右侧时，需要让主程序运算到右侧法线上点坐标后退出，进入此程序就可以了！点坐标后退出，进入此程序就可以了！
微软用户5批注微软用户微软用户可以引用WXH自动计算中桩、法线上桩坐标
微软用户6批注微软用户微软用户垂足法线上点坐标计算判定
微软用户7批注微软用户微软用户法线两侧垂直放样点距离
微软用户8批注微软用户微软用户法线右侧垂足坐标
微软用户9批注微软用户微软用户法线左侧垂足坐标
微软用户10批注微软用户微软用户法线上点坐标推算
f竖曲线通用公式（武小辉编程）
1、2、3、4、5、6、7、A”PO1”B”PO2”C”BIANPOK”D”BIANPOH”TLbI1｛S｝S”JISUANK”LSCR2T÷（B÷100A÷100）H”JISUANH”DL05RA÷100B÷1002÷2R05R（A÷100）（B÷100）▲Goto1
解
第一坡度A
4263
释
变坡点高程D
218715395157251
第二坡度B
26308
变坡里程C
120001280013900
切线长T
175170176
f竖曲线更新公式（经典一、原程序
1、LbI0、2、Z｝Z”JISUANK”、｝｛3、Z≥11100Z＜11825A11100B48271C4÷100Goto1、≥＜÷4、Z≥12175Z＜12630A12000B51871C26÷100Goto1、≥＜÷5、Z≥12970Z＜13724A12800B53951C3÷100Goto1、≥＜÷计算里程Z大于等于11100且小于11825时运行ABC然后到LbI1进行计算。进行计算。然后到6、Z≥11825Z＜12175A04B026C12000D51871T175、≥＜Goto27、Z≥12630Z＜12970A026B03C12800D53951T170、≥＜Goto28、Z≥13724Z＜14076A03B008C13900D57251T176、≥＜Goto2以上为曲线参数线参数）（以上为曲线参数）9、LbI1、10、H”JISUANH”ZACB▲、▲11、Goto3、12、LbI2、13、LZC、14、R2T÷BA、÷15、H”JISUANH”DL05RAB2÷2R05RAB▲、÷▲16、Goto3、17、LbI3、18、Z≥11500Z＜117000001r