FX5800计算公路测量常用程序集3.docVIP

FX5800计算器公路测量常用程序集 ?一、程序功能 本程序?二、源程序1.主程序1 ①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离 程序名:1ZD-XYLb1 0:Norm 2 F 1： 正反算判别，F 1正算，F 2反算 Z[1] 90（与路线右边夹角） Prog＂THB＂：F 1 Goto 1:F 2 Goto 2 Lb1 1:Ｆix 3:＂ Ｘ ＂：Locate 6,4,Ｘ◢ ＂ Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂JS”:Goto 0: Lb1 2:Fix 3:＂　ＫＭ＝＂＂　＝＂ 设计任意点高程及横坡 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:” H ”:Locate 6,4,H◢ “ I ”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序 计算放样点至置仪点方位角及距离 程序名：3JS X：Y： 1268．123→K 置仪点X坐标 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→E：X-K→F：Pol F,E :IF J 0:Then J+360→J:Int J +0.01Int 60Frac J +0.006Frac 60Frac J →J: 不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示 Fix 4:” FWJ ”: Locate 6,4,J◢ 不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示 Fix 3:” S ”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离 程序名：4JH-XY LbI 0:Norm 2 90→Z[1] 涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos E →X:Y+Lsin E →Y:Fix 3: ＂ Ｘ ＂：Locate 6,4,Ｘ◢ ＂ Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂JS”:Goto 0: 5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：5FBX LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D 0: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[5]:Z[6] →L:If Z[5] 0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: LbI W:Prog “W0”:Z[10]+Z[11] →A: If G A:Then Goto 1:Else If G Z[10]:Then Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z[12]+Z[13]+Z[14]+ G-A ×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+ G-Z[10] ×Z[8]+Z[10]×Z[7]:Goto Z: LbI 3:L+Z[12]+G×Z[7]:Goto z: LbI T:L+0.5→N:If G Z[17]:Then N+Z[18]+ G-Z[17] ×Z[16]+Z[17]×Z[15] →S:Goto Z:Else N+G×Z[15] →S:Goto z: LbI Z:Z[3]→D:Fix 2:Abs D -S→T:” L0 ”:L Locate 6,4,T◢ ＂　ＫＭ＝＂＂　＝＂“ TW ”: Locate 6,4,Z[5]◢ Goto 0 6．主程序6：路基标准半幅宽度计算程序 对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L 程序名：6GD Prog “G0”Z-C→E: B-A ×E/S+A→L:L: 7．坐标计算次程序（ＴＨＢ） 程序名：THB 18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂ 1÷P→Ｃ： P-R ÷ 2HPR ： 180÷π： 1 Goto 1：Goto 2←┘Lbl 1：?Ｄ： Abs Ｚ－O →W：Prog ：X 8. 正算子程序 程序名：A0.11座机电话号码→A： ： 0.0座机电话号码→K： 0.：： U+