CASIO480测量程序源代码.docVIP

CASIO-5800计算器公路测量常用程序 一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序 ①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离 程序名:1ZD-XYLb1 0:Norm 2F 1： 正反算判别，F 1正算，F 2反算,也可以改F前加？，改F为变量 Z[1] 90（与路线右边夹角）Prog＂THB＂：F 1 Goto 1:F 2 Goto 2Lb1 1:Ｆix 3:＂?? Ｘ ＂：Locate 6,4,Ｘ◢＂?? Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序 设计任意点高程及横坡 程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”?? H ”:Locate 6,4,H◢“?? I ”: Locate 6,4,I◢??Goto 03.主程序3：极坐放样计算程序 计算放样点至置仪点方位角及距离 程序名：3JSX：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-XYLbI 0:Norm 290→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＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 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:IfEndLbI 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◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“????TW ”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序 对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L 程序名：6GDProg “G0”Z-C→E: B