资源描述：
《公路测量计算器程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、FX-5800计算器公路测量程序.一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主耍用于公路测量屮坐标正反算，设计任意点高程及横坡计算，桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1・主程序1：一般放样反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名：1ZD-XYLbl0:Norm2F二1：（正反算判別，F二1正算，F二2反算，也可以改F前加？，改F为变量）Z[l]二90（与路线右边夹角）Prog”THB”:F=l=>Goto1:F二2二〉Goto2Lbl1:Fix3:”X二”:Locate6,4,X上"
2、Y="：Locate6,4,Y上Prog"3JS”:Goto0:Lbl2:Fix3:”KM=”:Locate6,4,Z丄"D=":Locate6,4,DAGoto02・主程序2：高程序横坡程序（设计任意点高程及横坡）程序名：2GCLbT0:Norm2“KM”?Z:?D:Prog”H”:Fix3:”H二”:Locate6,4,H/“I二”：Locate6,4,1/Goto03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名:3JSX：Y：1268.123->K(置仪点X坐标)2243.545-L(置仪点Y坐标，都是手工输入，也可以建导线点数据库子程序，个人认为太麻烦)
3、Y-L-E：X-K-F：Pol(F,E):IFJ<0:ThenJ+360-J:Int(J)+0.Ollnt(60Frac(J))+0.006Frac(60Frac(J))->J:(不习惯小数点后四位为角度显示的，也可以用命令J/DMS,来直接显示)Fix4:”FWJ二”：Locate6,4,JJ(不习惯小数点后四位为角度显示的，也可以用命令J/DMS,來直接显示)Fix3:”S二”:Locate6,4,1/4.主程序4：涵洞放样程序(出涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbl0:Norm290->Z[l](涵洞中
4、心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)l->F:ProgvTHB”：？L:Z[2]-Z[l]->E:X+Lcos(E)->X:Y+Lsin(E)->Y:Fix3:HX二”:Locate6,4,XA"Y="：Locate6,4,Y/Prog"3JS”：Goto0:5.主程序5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距屮距离、填挖高度)程序名:5FBXLbl0:Norm2:18fDimZ:2fF:90fZ[l]:Prog“THB”:Z:D:”MO”?M:M-Z[4]:D->Z[3]:Prog”6GD”:L-Z[6]:If
5、D<0:Then0.75-L-*D:GotoH:ElseL-0.75—D:GotoH:IfEndLblH:Prog”H”：H-0・03-Z[4]-Z[5]:Z[6]〜L:IfZ[5]<0:Then-z[5]-*G:GotoW:ElseZ[5]-*G:GotoT:LblW:Prog“WO”:Z[10]+Z[ll]-A:IfG>A:ThenGotol:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd:Lbl1:L+Z[12]+Z[13]+Z[14]+(G-A)XZ[9]+Z[11]XZ[8]+Z[10]XZ[7]:GotoZ:Lbl2:L+Z[12]+Z[13
6、]+(G-Z[10])XZ[8]+Z[10]XZ[7]:GotoZ:Lbl3:L+Z[12]+GXZ[7]:Gotoz:LblT:L+0.5->N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])XZ[16]+Z[17]XZ[15])fS:GotoZ:Else(N+GXZ[15])->S:Gotoz:LbTZ:Z[3]-D:Fix2:Abs(D)-S-*T:”LO二”:LLocate6,4,T,"KM="：Locate6,4,ZA”D=":Locate6,4,DA“TW二”：Locate6,4,Z[5]/Goto03.主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐
7、变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名:6GDProg“GO”Z-C-E:(B-A)XE/S+A-L:L:4.坐标计算次程序(THE)程序名：THB18->DimZ：HKMu?Z：ProgMX0"1H-P-C：(P-R)十(2HPR)fS：1804-jt-E：F二1二〉Goto1：F二2二〉Goto2-」Lbl1：?D：Abs(Z-O)->W：Prog〃A〃：X：Y：Goto3LbT2:X：Y：X->T：Y->J：
