fx-5800计算器公路测量常用程序

：FX-5800计算器公路测量常用程序 6551.1：Lb10:NormProg＂THB＂：F=1=>Goto1:F=2=>GotoLb11:Ｆix Ｘ=＂：Locate Ｙ＝＂：Locate6,4,Ｙ◢Ｐrog＂3JS”:Goto0:Lb12:Fix3:＂ＫＭ＝＂：Locate＂Ｄ＝＂：Locate6,4,Ｄ◢Ｇoto0LbI0:NormProg”H”:Fix3:” H=”:Locate6,4,H◢ I=”:Locate6,4,I◢Goto3：1268．123→K(XY-L→E：X-K→F：Pol(F,E):IFJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J))→J:(不习惯小J◢DMS◢来直接显示)Fix4:”FWJ=”:Locate6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令Fix S=”:LocateLbI0:Norm2Z[2]-Z[1]→E:X+Lcos(E)→X:Y+Lsin(E)→Y:Fix3:＂ Ｙ＝＂：Locate6,4,Ｙ◢Ｐrog＂3JS”:Goto0:程序名LbI0: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:GotoLbIH:Prog”H”:H-0.03-Z[4]→Z[5]:Z[6]→L:IfZ[5]<0:Then→G:GotoW:ElseZ[5]→G:GotoLbIW:Prog“W0”:Z[10]+Z[11]→A:IfG>A:ThenGoto1:ElseG>Z[10]:ThenGoto2:ElseGotoLbI1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:GotoLbI2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:GotoLbI3:L+Z[12]+G×Z[7]:GotoLbIT: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◢＂ＫＭ＝＂：Locate＂Ｄ＝＂：Locate TW=”:LocateGotoL)程序名Prog“G0”Z-C→E:(B-18→DimZ：＂ＫＭ＂?Z：Prog1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷π→Ｅ：Ｆ=1=>GotoLbl1：?Ｄ：Abs(Ｚ－O)→W：Prog"Ａ"：X：Ｙ：ＧotoLbI2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto3LbI3:IFＦ＝１ThenＸ：Ｙ：ElseＺ：Ｄ →A： →N →L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWK)W(C+(1-K)WS)))→X：K)W(C+(1-K)WＳ)))→Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ：G-90→Ｔ：Abs((Y-V)cos(T)-(X-U)sin(T))→Ｗ：0→Ｄ：Lbl0：Prog"Ａ"：T+QEW(C+WＳ)→Ｌ：(J-Y)cos(L)-(I-X)sin(L)→Ｄ：IFAbs(Ｄ)<0.01:ThenGoto1：ElseW+Ｄ→W:Goto0←┘Lbl1:0→D：Prog"Ａ"：(J-Y)÷sin(Ｚ［２］)→D:程序名Prog“S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:IfQ+LI→H:Goto0:ElseIfZ<F:ThenQ+LI→H:Goto0:ElseIfZ≤E:ThenQ+LI+L2÷2÷R→H:Goto0:LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:H+V→H:GotoI:LbI高 计算程序W=1=>Goto0:W=2=>GotoLbI0:IfL=0:ThenAbs(D)×M→V:Goto2:ElseAbs(D)×((N-M)×(Z-C)÷L+M)→V:Goto2:IfEnd:LbI1:IfL=0:ThenAbs(D)×M→V:Goto2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto2:IfEnd:LbI2:Abs(D)→E:V÷E→I:I(E-IfZ≥25900And25900→O:11587.421→U:1847.983→V:10109’23.1”→G:715.555→H:1×1045→P:1×1045→R:0→Q:Goto0:IfEnd:IfZ≥26615.555AndZ≤26915.555:Then09’23.1”→G:300→H:1×1045→P:1800→R:1→Q:Goto0:IfEnd:IfZ≥26915.555AndZ≤27316.952:Then55’51.83”→G:401.396→H:1800→P:1800→R:1→Q:GotoLbI程序字母说明：O-线元起点桩号；UX；VY；G-线元起点桩号切线方位角;Ｈ－线元长度，Ｐ－线元起点曲率半径，Ｒ－线元终点曲率IfZ≥25900AndZ≤26157.8:Then-200000→R:157.8→T:26000→C:37.1→G:0.01222→I:Goto0:IfEnd:IfZ≥26157.8AndZ≤27421.915:Then300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto0:IfEnd:IfZ≥27421.915AndZ≤27889.029:Then→R:134.029→T:27755→C:36.64→G:0.0079→I:GotoLbI③程序名：I0（高程参数子程序1.5→K:2→W:IfD<0:ThenGotoL:ElseGotoLbIL:IfZ≥25900AndZ≤26615.555:Then0→L:-0.02→M:Goto0:IfEnd:IfZ≥26615.555AndZ≤26735.555:Then120→L:26615.555→C:-0.02→M:0.02→N:GotoIfZ≥26735.555AndZ≤26795.555:Then60→L:26735.555→C:0.02→M:0.04→N:Goto0:IfEndIfZ≥26795.555AndZ≤27436.951:Then0→L:0.04→M:GotoLbIR:IfZ≥25900AndZ≤26735.555:Then0→L:-0.02→M:Goto0:IfEndIfZ≥26735.555AndZ≤26795.555:Then60→L:26735.555→C:-0.02→M:-0.04→N:GotoIfZ≥26795.555AndZ≤27436.951:Then0→L:-0.04→M:GotoLbI0K－分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式，W=2为三次抛物线方式）;L－渐变段距离（不是渐变段则输入0）；C- IfD<0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ≥25900AndZ≤28110.727:ThenZ→C:17.25→A:Goto0:IfEnd:IfZ≥28110.727AndZ≤28200.727:Then28110.727→C:17.25→A:21.25→B:90→S:Goto0:IfEndLbIR:IfZ≥25900AndZ≤27927.478:ThenZ→C:17.25→A:Goto0:IfEndIfZ≥27927.478AndZ≤28172:Then27927.478→C:17.25→A:27.031→B:244.522→S