FX5800计算器测量程序集2.0版.docx

FX5800计算器测量程序集 2.0版 一、程序功能 主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括 C型, S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点 设计高程、横坡、设计半幅宽度 .隧道欠超挖放样计算。 新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏 角、线路选择等），全部在程序头次显示一次，以后运行不需输入。运行中也可以返回再次 选择线路、可以直接以矩阵形式调出线路参数。 2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交 点法。参数置放矩阵中，输入和可读性极好。 3、新增隧道断面欠超挖值放样计算 4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路 基标准宽度。 二、源程序 1.主程序1: 一般放样正反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩 号及距中距离） 程序名：1ZD-XY Lb1 Q: Norm 2:14 —DimZ： 1 一 F： Prog DX: Lb1 X : Prog QX : 90一 B: PJ ? B: Bf Z[1]: Lb1 0: Norm 2 : “KM ?Z： If Z=-1:Then Goto X:Else If Z=-2: Then 2- F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog KM : If F=1:Then ?D:Else “X0” ？X: “Y0” ?Y: IfEnd: Prog THB :If F=1: Then Goto 1: Else Goto 2 ： Lb1 1: Fix 3: X= ： Locate 6,4, X， Y = ： Locate 6,4, Y， P rog 6JS” :Goto 0: Lb1 2:Fix 3: KM = ： Locate 6,4, Z， D = ： Locate 6,4, D， Goto 0 : Lbl 9:Mat F / Goto Q TOC \o 1-5 \h \z 2 .主程序2 :高程、横坡、宽度程序 （计算设计任意点高程、横坡及路基设计标准宽度 ） 程序名：2GC 14一 DimZ： LbI 0:Norm 2: Prog QX ： 0一 B:“ H-B: ？B:B - Z[9]: LbI H: Norm 2: KM ?Z:Z=-1= Goto 0:?D:Prog H ： Fix 3: H=:Locate 6,4,H / I= : Locate 6,4,I / Prog GD : SJLG= : Locate 6,4,L / Goto H .主程序3:涵洞放样程序(输入置仪点坐标。选择线路、输入路线右夹角、前进方向偏 TOC \o 1-5 \h \z 角、由涵中心桩号计算出各涵角坐标、计算放样点至置仪点方位角及距离 ) 程序名：3JH-XY 14一 DimZ： Prog DX :LbI X:Norm 2: Prog QX ： 90一 B： PJ1 ? B： Bf C: PJ2 ? C: BfZ[1] : Cf Z[8]: LbI 0:Norm 2:1 一 F: KMT ?Z： If Z=-1:Then Goto X: ?D:Prog THB :0 一L: L0 ？L:Z[2]+Z[1]-Z[8] —E: X+Lcos(E) 一X:Y+Lsin(E) 一Y: Fix 3: X= ： Locate 6,4, X， Y = ： Locate 6,4, Y， P rog 6JS” :Goto 0: .主程序4:路基开挖边线及填方坡脚线放样程序 (输入填方放宽值、大概桩号及测量坐标、 地面标高计算出偏移距离、桩号、距中距离、填挖高度) 程序名：4FBX 17一 DimZ： LbI B:Norm 2: Prog QX : 0.5 一B: TH-GD ?B:B ?Z[17]:LbI 0:Norm 2: 2 一F:90 —Z[1]: “KM ?Z： If Z=-1:Then Goto B: X0” ?X: “Y0” ?Y: 0 一M: M0 ?M:M 一Z[4]:Prog THB :D f P:Prog ” Gt5 :If D0:Then 0.75-L -D:Goto H:Else L-0.75 - D:Goto H:IfEnd LbI H:Prog H’ :H-0.03-Z[4] —Z[4]: Prog WT:If Z[4]0:Then - Z[4] —G:Goto W:Else Z[4] 一 G:Goto T: LbI W:Z[8]+Z[9] — A: If GA:The