FX-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb10:Norm2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto1:F=2=>Goto2Lb11:Ｆix3:＂Ｘ=＂：Locate6,4,Ｘ◢＂Ｙ＝＂：Locate6,4,Ｙ◢Ｐrog＂3JS”:Goto0:Lb12:Fix3:＂ＫＭ＝＂：Locate6,4,Ｚ◢＂Ｄ＝＂：Locate6,4,Ｄ◢Ｇoto0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI0:Norm2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate6,4,H◢“I=”:Locate6,4,I◢Goto03.主程序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:(不习惯小数点后四位为角度显示的，也可以用命令JDMS◢◢来直接显示)Fix4:”FWJ=”:Locate6,4,J(◢不习惯小数点后四位为角度显示的，也可以用命令JDMS◢◢来直接显示)Fix3:”S=”:Locate6,4,I◢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:＂Ｘ=＂：Locate6,4,Ｘ◢＂Ｙ＝＂：Locate6,4,Ｙ◢Ｐrog＂3JS”:Goto0: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:IfEndLbIH:Prog”H”:H-0.03-Z[4]→Z[5]:Z[6]→L:IfZ[5]<0:Then–z[5]→G:GotoW:ElseZ[5]→G:GotoT:LbIW:Prog“W0”:Z[10]+Z[11]→A:IfG>A:ThenGoto1:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd:LbI1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:GotoZ:LbI2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:GotoZ:LbI3:L+Z[12]+G×Z[7]:Gotoz:LbIT:L+0.5→N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:GotoZ:Else(N+G×Z[15])→S:Gotoz:LbIZ:Z[3]→D:Fix2:Abs(D)-S→T:”L0=”:LLocate6,4,T◢＂ＫＭ＝＂：Locate6,4,Ｚ◢＂Ｄ＝＂：Locate6,4,Ｄ◢“TW=”:Locate6,4,Z[5]◢Goto06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg“G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog＂Ｘ０＂1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷π→Ｅ：Ｆ=1=>Goto1：Ｆ=2=>Goto2←┘Lbl1：?Ｄ：Abs(Ｚ－O)→W：Prog"Ａ"：X：Ｙ：Ｇoto3LbI2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto3LbI3:IFＦ＝１ThenＸ：Ｙ：ElseＺ：Ｄ8.正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N0.046910077→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS)))→X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ)))→Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ：Y+Ｄsin（Ｚ［２］）→Ｙ9.反算子程序(Ｂ)程序名：BG-90→Ｔ：Abs((Y-V)cos(T)-(X-U)s...
