高速MC公路测量CASIO48004850万能坐标计算程序(完整版).doc

高速公路测量CASI能坐标计算程序 完整版） 程序特点： 真正的全线贯通坐标正反计算、任意斜角计算！！！程序中加入测站点，真正的实现了“坐标法”与“极坐标法”两种放样方法的同时显示的功能，使得放样操作方法选择时更加灵活！！！ 在曲线元要素输入时仅需要输入第一段全部曲线元要素，后面曲线元要素除起点半径、终点半径、曲线长、转向需输入外其他要素均从前一曲线按辛普森8等分计算得出，解决了主线坐标计算无法获得第二段及其以后曲线元起点参数的问题；辛普森公式任意等分，满足所有精度要求；全线曲线元数据一次性程序化输入，参数存储采用扩充变量数据库，无需修改程序内容；多功能采用单程序编程，避免频繁调用子程序，提高运算速度。 一、程序：ZBJS W“1.ZS 2.FS 3.SZ”:W 1 Z[2] 0:V 0：Goto 1 ΔW 2 Goto 4ΔW 3 O“KOU LING”:O≠123456 O 0: “OUT” ◢Goto CΔO 0: V 0:Z[1] 0:Goto 0←┘ Lbi 0←┘ ”N0.”：Z[1]+1 ◢ Z[1] 0 ABCREFGUKO :A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G“LS”:U“G” :K“X（00）”: O“Y（00）”: Z[Z[1]×8+3] A:Z[Z[1]×8+4] B:Z[Z[1]×8+5] C:Z[Z[1]×8+6] R-1:Z[Z[1]×8+7] E-1:Z[Z[1]×8+8] F: Z[Z[1]×8+9] F+G: Z[Z[1]×8+10] U: “NEXT”◢ Isz Z[1]: Goto 0ΔZ[1] 1 D Z[9]:Z 0:Z[2] 0:GOTO 2ΔD Z[ Z[1]-1 ×8+9]:Z 0:Z[2] Z[1]-1:GOTO 2←┘ Lbi A←┘ Z[Z[1]×8+3] X:Z[Z[1]×8+4] Y:Z[Z[1]×8+5] J: Z[Z[1]×8+8] D: REGU :R“R0”：E“RN”: G“LS”:U“G”: Z[Z[1]×8+6] R-1 ：Z[Z[1]×8+7] E-1: Z[Z[1]×8+9] D+G: Z[Z[1]×8+10] U: “NEXT”◢ Isz Z[1]: Goto 0←┘ Lbi 1←┘ DZT :D：Z：T“RJ”：Z[2] 0:Goto 2←┘ Lbi 2←┘ V≠1 Z[2] Z[1] GoToCΔΔD≤Z[Z[2]×8+9] A Z[Z[2]×8+3]:B Z[Z[2]×8+4]: C Z[Z[2]×8+5]:R Z[Z[2]×8+6]: E Z[Z[2]×8+7]: F Z[Z[2]×8+8]: G Z[Z[2]×8+9]: U Z[Z[2]×8+10]: Goto3ΔIsz Z[2]:Goto 2←┘ Lbi 3←┘ W 3 N 8：≠ N 4ΔP＝U（E-R）÷Abs（G-F）：Q＝Abs（D-F）÷N：S 90Q÷π： J＝C+ NPQ+2UR NS：L 1←┘ X＝A+Q÷6× Cos C+Cos J +4∑（Cos C+ L+0.5 PQ+2UR × L+0.5 S ,L,0, N-1 ）） Z 0 “X（Z） ”:X:Pause 0: “Y（Z） ” :Y◢ Pol（（X－K），（Y－O））←┘ “S（Z） ” : I ◢J 0 J J+360Δ “F（Z） ” : J→DMS◢ Goto 1Δ Z 0 “X（L） ”:X:Pause 0: “Y（L） ”:Y◢ Pol（（X－K），（Y－O））←┘ fx4850 ① “S（L） ” : I ◢J 0 J J+360Δ “F（L） ” : J→DMS◢ Goto 1Δ Z 0 “X（R） ”:X:Pause 0: “Y（R） ”:Y ◢ Pol（（X－K），（Y－O））←┘ “S（R） ” : J ◢J 0 J J+360Δ “F（R） ” : J→DMS◢ Goto 1 ←┘ Z 0 X “X（Z） ” ◢Y “Y（Z） ”◢ Pol（（X－K），（Y－O））←┘ I“S（Z） ” ◢J 0 J J+360ΔJ“F（Z） ” ◢ Goto 1Δ Z 0 X “X（L） ” ◢Y “Y（L）”◢ Pol（（X－K），（Y－O））←┘ fx4800 ② I“S（L） ” ◢J 0 J J+360ΔJ“F（L） ” ◢ Goto 1Δ Z 0 X “X（R） ” ◢Y “Y（R） ”◢ Pol（（X－K），（Y－O））←┘ I“S（R） ” ◢J 0 J J+360ΔJ“F（R） ” ◢ Goto 1 ←┘ Lbi