资源描述:
《FX5800计算器公路测量常用程序.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、DJLFX5800计算器公路测量常用程序集 一、程序功能 本程序组由2个主程序、5个次子程序及3个参数子程序。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算。程序坐标计算适应于任何线型.二、源程序 二、源程序1.主程序1:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离;②反算桩号及距中距离)(改)程序名:1ZD-XYLb10:Norm2:"F(1,2)="?F:90→Z[1]:Prog"THB":F=1=>Goto1:F=2=>Goto2◢(计算器EXE键)Lb12:Fix3:"KM=":Locate6,4,Z:"D=":Locate6,
2、4,D◢Goto0◢(计算器EXE键)Lb11:Fix3:"X=":Locate6,4,X:"Y=":Locate6,4,Y:G+QEKW(C+KWS)→B:"FWJ=":B◢DMS◢(方位角程序)Prog"QH":Goto012DJL2.主程序2:高程序横坡程序(设计任意点高程及横坡)程序名:2GC(改)LbI0:Norm2◢(计算器EXE键)"KM"?Z:?D:Prog"H"◢(计算器EXE键)Fix3:"H=":Locate6,4,H:Fix4"I=":Locate6,4,I◢Goto03.主程序3:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名
3、:3JSX:Y:1268.123→K(置仪点X坐标)2243.545→L(置仪点Y坐标,都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦)Y-L→E:X-K→F:Pol(F,E):IFJ<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J))→J:(不习惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)Fix4:”FWJ=”:Locate6,4,J◢(不习惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)Fix3:”S=”:Locate6,4,I◢12DJL4.
4、主程序4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名:4JH-XYLbI0:Norm290→Z[1](涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1]→E:X+Lcos(E)→X:Y+Lsin(E)→Y:Fix3:"X=":Locate6,4,X◢"Y=":Locate6,4,Y◢Prog"3JS”:Goto0:5.主程序5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高
5、度)(改)程序名:5FBXLbI0:Norm2:18→DimZ:2→F:90→Z[1]:Prog"THB":Z:D:"M0"?M:M→Z[4]:D→Z[3]:Prog"6GD":L→Z[6]:IfD<0:Then0.75-L→D:GotoH:ElseL-0.75→D:GotoH:IfEnd◢(计算器EXE键)LbIH:Prog”H”:H-0.03-Z[4]→Z[5]:Z[6]→L:IfZ[5]<0:Then–Z[5]→G:GotoW:ElseZ[5]→G:GotoT◢(计算器EXE键)12DJLLbIW:Prog“W0”:Z[10]+Z[11]→A:IfG>A:
6、ThenGoto1:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd◢(计算器EXE键)LbI1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]→S:GotoZ◢(计算器EXE键)LbI2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]→S:GotoZ◢(计算器EXE键)LbI3:L+Z[12]+G×Z[7]→S:GotoZ◢(计算器EXE键)LbIT:L→N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])×Z[16]+Z[1
7、7]×Z[15])→S:GotoZ:Else(N+G×Z[15])→S:GotoZ◢(计算器EXE键)LbIZ:Z[3]→D:Fix2:Abs(D)-S→T:T-0.01→T:"L0=":L:Locate6,4,T◢"KM=":Locate6,4,Z◢"D=":Locate6,4,D◢"TW=":Locate6,4,Z[5]◢Goto06.主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)程序名:6GDProg“G0”Z-C→E:(B-A)×E/S+A→L:L:7.坐标计算次程序(THB)12DJL
8、程序名:THB(改)18