2024年3月29日发(作者：衅妙思)
说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功
卡西欧 5800 程序
(完整版)
能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高
专业WORD.
段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功
能有，放边、仰坡、隧道断面测量、开挖轮廓线等。
主程序:MAIN
＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算)
If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ
＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓
(第一个交点参数)
(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…
→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→
V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…
→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超
高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓
If M=θ:Then If A Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ ………… (中间交点参数) Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ ………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓ Prog＂ZFXZ＂↓ 专业WORD.
2024年3月29日发(作者：衅妙思)
说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功
卡西欧 5800 程序
(完整版)
能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高
专业WORD.
段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功
能有，放边、仰坡、隧道断面测量、开挖轮廓线等。
主程序:MAIN
＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算)
If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ
＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓
(第一个交点参数)
(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…
→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→
V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…
→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超
高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓
If M=θ:Then If A Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ ………… (中间交点参数) Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ ………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓ Prog＂ZFXZ＂↓ 专业WORD.