FX5800计算器公路测量常用程序集2009

1、-作者xxxx-日期xxxxFX5800计算器公路测量常用程序集2009【精品文档】FX5800计算器公路测量常用程序集2009-09-17 20:35FX5800计算器公路测量常用程序集 附件(点击下载)： (在线预览)FX5800计算器公路测量常用程序集一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(正算坐标、放样点至置仪点方位角及距离；反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：

2、(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z1=90（与路线右边夹角）ProgTHB：F=1=Goto 1:F=2=Goto 2Lb1 1:ix 3: =：Locate 6,4, ：Locate 6,4,rog3JS”: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：极坐放样计算程序(计算放

3、样点至置仪点方位角及距离)程序名：3JSX：Y：1268123K(置仪点X坐标)2243545L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-LE：X-KF：Pol(F,E):IF J0:Then J+360J:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J:(不习惯小数点后四位为角度显示的，也可以用命令JDMS来直接显示) Fix 4:” FWJ=”: Locate 6,4,J(不习惯小数点后四位为角度显示的，也可以用命令JDMS来直接显示)Fix 3:” S=”:Locate 6,4,I4主程序4：涵洞放样程序（

4、由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290Z1(涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1F:Prog”THB”:?L:Z2-Z1 E:X+Lcos(E) X:Y+Lsin(E) Y:Fix 3: =：Locate 6,4, ：Locate 6,4,rog3JS”:Goto 0:5主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18DimZ:2F:90Z1:Pro

5、g “THB”:Z:D:”M0”?M:MZ4:DZ3:Prog”6GD”:LZ6:If D0:Then 0.75-LD:Goto H:Else L-0.75D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z4 Z5:Z6 L:If Z5A:Then Goto 1:Else If GZ10:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z12+Z13+Z14+(G-A)Z9+Z11Z8+Z10Z7:Goto Z:LbI 2:L+Z12+Z13+(G-Z10)Z8+Z10Z7:Goto Z:LbI 3:L+Z12+GZ7:Goto z:LbI T

6、:L+0.5N:If GZ17:Then (N+Z18+(G-Z17)Z16+Z17Z15)S:Goto Z:Else (N+GZ15)S:Goto z:LbI Z:Z3D:Fix 2:Abs(D)-ST:” L0=”:L Locate 6,4,T：Locate 6,4,：Locate 6,4,“ TW=”: Locate 6,4,Z5Goto 06主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-CE:(B-A)E/S+AL:L:7坐标计算次程序（）程序名：THB18DimZ：?Z：Prog

7、1P： (P-R)(2HPR) ： 180：=1=Goto 1：=2=Goto 2Lbl 1：?： Abs(O) W：Prog ：X：oto 3LbI 2:：I：J：Prog ：Z：oto 3LbI 3:IF Then ：Else ： 8. 正算子程序()程序名：A0.1184634425A： 0.2393143352B：0.2844444444N 0.046910077K： 0.2307653449L：0.5M： 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(

8、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)sin(T) ： 0：Lbl 0：Prog ： T+QEW(C+W) ： (J-Y)cos(L)-(I-X)sin(L)：IF Abs()0.01:Then Goto1：Else W+W

9、:Goto 0Lbl 1:0D：Prog ：(J-Y)sin() D:10高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-TF:Z-FL:C+TE:G-TIQ:If T=O:Then Q+LIH:Goto 0:Else If Z Goto 0:W=2=Goto 1:LbI 0:If L=0:Then Abs(D)MV:Goto 2:Else Abs(D)(N-M)(Z-C)L+M)V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)MV:Goto 2:Else Abs(D)(3(Z-C)L)2-2(Z-C)L)(3)(N-M)+M)V:Got

10、o 2:IfEnd:LbI 2:Abs(D)E:VEI:I(E-K)V:12数据子程序(附后示例)程序名：X0（坐标计算要素程序）If Z25900 And Z26615.555:Then 25900O:11587.421U:1847.983V:101。0923.1”G:715.555H:11045P: 11045R: 0Q:Goto 0: IfEnd:If Z26615.555 And Z26915.555:Then 26615.555O:11448.97U:2550.016V:101。0923.1”G:300H:11045P: 1800R:1Q:Goto 0:IfEnd:If Z26915

11、.555 And Z27316.952:Then 26915.555O:11382.792U:2842.531V:105。5551.83”G:401.396H:1800P: 1800R:1Q:Goto 0:IfEnd:LbI 0:O:U:V:G:H:P:R:Q:程序字母说明：O-线元起点桩号；U-起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角; 线元长度，线元起点曲率半径，线元终点曲率半径,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。程序名：SO(高程竖曲线要素子程序)If Z25900 An

12、d Z26157.8:Then -200000R:157.8T:26000C:37.1G:0.01222I:Goto 0:IfEnd:If Z26157.8 And Z27421.915:Then 300000R:171.915T:27250C:32.65G:-0.00356I:Goto 0:IfEnd:If Z27421.915 And Z27889.029:Then 1000000R:134.029T:27755C:36.64G:0.0079I:Goto 0:IfEnd:LbI 0:R:T:G:C:I:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；

13、R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡程序名：I0（高程超高参数子程序）1.5K:2W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z25900 And Z26615.555:Then 0L:-0.02M:Goto 0:IfEnd:If Z26615.555 And Z26735.555:Then 120L:26615.555C:-0.02M:0.02N:Goto 0:IfEnd:If Z26735.555 And Z26795.555:Then 60L:26735.555C:0.02M:0.04N:Goto 0:IfEn

14、dIf Z26795.555 And Z27436.951:Then 0L:0.04M: Goto 0:IfEndLbI R: If Z25900 And Z26735.555:Then 0L:-0.02M: Goto 0:IfEndIf Z26735.555 And Z26795.555:Then 60L:26735.555C:-0.02M:-0.04N:Goto 0:IfEndIf Z26795.555 And Z27436.951:Then 0L:-0.04M: Goto 0:IfEndLbI 0 K:W:L:C:M:N:字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，

15、无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;L超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。程序名：GO(路基标准半幅宽度参数子程序)If D XY 2.： XY = ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。为线元边桩与中线右夹角。 ？正算时所求点的里程（反算输入大概桩号） ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) X0 ？反算时所求点的X坐标（放样程序中实测X坐标） Y

16、0 ？反算时所求点的Y坐标（放样程序中实测Y坐标）显示部分：L? 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.M0? 边坡放样程序中原地面标高输入 X=* 正算时，计算得出的所求点的X坐标 Y=* 正算时，计算得出的所求点的Y坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角（在3JS程序中应输入X、Y坐标值于K、L）S=* 正算时，计算得出的所求点的至置仪点距离=* 反算时，计算得出的所求点的里程 =* 反算时，计算得出的所求点的边距H=* 所求点位置设计路面顶标高I=* 所求点位置设计路面横坡L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。TW=* 边桩放

17、样程序中，实测放样边坡点至止桩号设计顶填挖高度值 5800全线任意点设计高程计算，2009-09-15 21:085800全线任意点设计高程计算，可计算竖曲线范围内外任意点的设计高程！非常实用！ “BPDZH=”?Z:“GC=”?H:“R=”?R:“I1=”? I:“I2=”?L ：“T=”:0.005RAbs(I -L) T“E=”: T22RLbl 0:“JZZH=”?K:Z-TA:Z+TB:K-AC:B-KD:K-ZEIf L I:Then 1J:Else -1J:IfEndIf KB =0D: IfEndIf KZ:Then IY:CG:Else K Z=LY:DG: IfEndLbl

18、 1:Fix 3:“H=”:H+EY100+JG22R Goto 0说明：BPDZH：前变坡点桩号 用变量Z表示H：前变坡点高程R：半径 I L：前后纵坡值 输入格式：6.1%输入6.1，有负号的要输入负号T：切线长 E：竖距 JZZH：待求点设计高程的桩号 用变量K表示Fix 3：计算结果保留3位小数圆曲线（已知两点和半径）座标计算fx-5800程序2009-09-15 21:05圆曲线（已知两点和半径）座标计算fx-5800程序 圆曲线（已知两点和半径）座标计算fx-5800程序作者：李艳阳?A:?B: ?C: ?D: ?R Pol(C-A,D-B):J-Sin-1(I2R)F A+R C

19、os(F+90)X B+R Sin(F+90)Y Lbl 1:?L F-90+(LR)( 180) T “N=”:X+RCos(T)N “E=”:Y+RSin(T)E Goto 1 说明： 1. A、B为第一点X、Y 2. A、B为第二点X、Y 3. R为曲线半径，向左偏为负，向右偏为正 4. L输入待求点到A点的曲线长度 5. N、E为待求点的XYfx-5800p SQX 竖曲线（缓和段）中边桩高程计算2009-09-15 21:01fx-5800p SQX 竖曲线（缓和段）中边桩高程计算程序 SQX 竖曲线（缓和段）中边桩高程计算程序?N ：?G ：?R ：?K ：?M：?Z : ?Q ：

20、?B ：?E ：?F ：?S Lbl 0: N-GW : (RZW)2V:“L”? L (K-L)ZN+(L-(K-V)(2）(2R) J “H0=”:M-ZJ H (B-L)(B-Q) D:(F-E)(1-3D(2）+2D(3)+ET:(E-F)D+FI “H1=”:H+SI （计算铁路以下I换成T）“H2=”:H-SI （直线E=F两边均取此值）Goto 0说明：K为交点桩号，M为交点高程， R=半径 ， Z=凸曲线输1; 凹曲线输1 . N = 前坡度 ， G = 后坡度 ，L为待算点桩号 ，H为待算点高程。 Q 横坡起点里程，B 横坡终点里程，E 起点横坡，F 终点横坡，S 横坡开边距

21、。 T待算点位横坡度(适用于铁路)，I待算点位横坡度(适用于公路)。4800-4850直线、曲线、螺旋线、匝道中边桩坐标计算2009-09-15 20:49发布时间:2008-06-12 09:46:32 直线、曲线、螺旋线、匝道中边桩坐标计算程序主程序名称（4800-4850）A“XA”：B“YB”：C“CA”：D“RA”：E“RB”：F“DKA”：G“DKB”换行D0=D=1D： 换行E0=E=1E： 换行Lb1 1:H，O，R换行H“DKI”：O“DL”：R“DR” 换行Lb1 0 换行P=（ED）Abs（GF）换行Abs（HF）Abs（GF）=Q= Abs（GF）：=Q= Abs（HF

22、）： 换行I=PQ 换行J=C（I2D）Q90 换行M=C（I82D）Q45（4）换行N=C（3I82D）Q135（4）换行U=C（5I82D）Q225（4）换行V=C（7I82D）Q315（4）换行K=C（I42D）Q45（2）换行W=C（I22D）Q45 换行Z=C（3I42D）Q135（2）换行X=AQ24（cosC4（cosMcosNcosUcosV）2（cosKcosWcosZ）cosJ）换行Y=BQ24（sinC4（sinMsinNsinUsinV）2（sinKsinWsinZ）sinJ）换行U=XOcos（J90） 换行V=YOsin（J90） 换行W=XRcos（J90） 换行

23、Z=YRsin（J90） 换行Abs（HF）Abs（GF）= Goto 3： 换行H“DKI=” fx4850输入改为 “DKI=”： H X“X=” fx4850输入改为 “X=”：X Y“Y=” fx4850输入改为 “Y=”：Y U“XL=” fx4850输入改为 “XL=”：UV“YL=” fx4850输入改为 “YL=”：VW“XR=” fx4850输入改为 “XR=”：W Z“YR=” fx4850输入改为 “YR=”：Z Goto 1 换行Lb1 3 换行A=X：B=Y：D=E：F=G：C=J 换行E，G 换行E“RB”：G“DKB” 换行E0=E=1E： 换行Goto 0计算器

24、显示及输入方法：XA？线型起算点的X坐标。YA？线型起算点的Y坐标。CA？线型起算点切线方位角。RA？第一曲线曲率，输入0。匝道及螺旋线时输入上段曲线半径左负右正。RB？第二曲线曲率，输入所要计算曲线的半径，左传为负右转为正，直线输0 。DKA？线型的起点里程。DKB？线型的终点里程。DKI？要求点的里程。DL？输入左边桩的距离。可以0输入。DR？输入右边桩的距离。可以0输入。DKI= 显示要求点里程。X= 显示要求里程点的X坐标。Y= 显示要求里程点的Y坐标。XL= 显示要求里程点的左边桩X坐标。YL= 显示要求里程点的左边桩Y坐标XR= 显示要求里程点的右边桩X坐标。YR= 显示要求里程点

25、的右边桩Y坐标说明：1、DKI？再次出现输入下一个要求的点的桩号，如果输入数据大于DKB？所输入的数据，则会再次出现RB？这时输入下一段线型的半径，直线输0，DKB？也会随后出现，这次出现输入下一段线型的终点里程桩号。则可以正常运算其它桩号点的坐标。2、本程序可以反复计算下一线型。3、上述说明中线型是指曲线上的某一段，例如直缓点到缓圆点则为一段的线型。如有不足之处请直出 中边桩程序5800版2009-09-15 20:40中边桩程序5800版 发布时间:2009-06-01 11:04:30 主程序FY (放样程序)?A:?P:?B:?C:?D:?E:?R:?W:?M:?N:?F:?G:?HL

26、bl 0?K:?L:?U: C-BV: RVS: V2-V(3)(240R2)Q: (R+V224R)tan(A2)+QTIf KP:Then Goto 0:IfEndIf KC:Then Goto 2:IfEnd K-BO-(5)40S2X(3)6S-(7)336(S(3)YProgSUB1902(RVp)ZFZ+WZGoto 5Lbl 2If KD:Then Goto 4:IfEnd K-BO90VpRZ180(-V)pR+ZZRsinZ+QXR(1-cosZ)+V224RYProgSUB190VFpR+F(180(-V)pR)+WZGoto 5Lbl 4If KE:Then Goto 0

27、:IfEndE-KO-(5)(40S)X(3)6S-(7)336(S(3)YXZ: T(1+cos(A)-Xcos(A)-Ysin(A)XTsin(A)-Zsin(A)+Ycos(A)YProgSUB190RVpZW+FA-FZZLbl 5If L0:Then UU:Else U+180U:IfEndRec(Abs (L)，Z+U)X=:X+IXY=:Y+JYPol(X-G，Y-H)If JGoto2A-XFB+YGH+FGSAbs(S2) SLbI 2: Cls:”TOTAL.XY=”: Locate 15,1,T”AREA=”:SGoto1CASIO fx5800计算器 工程测量与公路测量

28、程序2009-08-12 19:38CASIO fx5800计算器 工程测量与公路测量程序 CASIO fx5800计算器 工程测量与公路测量程序1、坐标正算X0=?X:Y0=?Y:I=?I:J=?J X+ICos(J)U:Y+ISin(J)V X=:U （待求点的X坐标）Y=:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算 Lbl 0 X1=?X:Y1=?Y:X2=?U:Y2=?V Pol(U-X,V-Y): J0 J+360J I=:I J=:J DMS GOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆

29、曲线X0=?X: Y0=?Y:FWJ=?D:QDHAO=?G: ZDHAO=?C: R=?R Lbl 1 DQHAO=?L LG Or LC GOTO 2 PY=?K 180(L-G)(R) E 2RSin(0.5E) F ReC(Abs(F),D+0.5E)：Cls X=:X+I+KCos(D+E+90) A Y=:Y+J+KSin(D+E+90) B D+Eo:o0 360+o0o FWJ=:o DMS Goto 1 Lbl 2 END说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线QZ

30、HAO =?J: H+B=?B:I1=?C:I2=?D:R=?R:T=?T: (D-C)100) Abs(D-C) 100)A:Abs(0.5R(D-C) 100)S T:S J-TX JTY Lbl 0 DQ=?L If LX:Then Goto 1:Else If LY:Then Goto 1:If End:If End GC=:B+C(L-J) 100+A(L-J+T) (2R) H Goto 0 Lbl 1 END说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。5正算偏移X0=?A: Y0=?B:FWJ=?D:

31、Lbl 0 LS=?L: PY=?C ReC(L,D) X=:A+I+CCos(D+ 90) X Y=:B+J+CSin(D+ 90) Y Goto 0说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角6.万能公式X0=?A:Y0=?B:FWJ=?C:1R-QD?D:1R-ZD?E:QDHAO?F: ZDHAO?G Lbl 1 DQHAO=?H:PY=?o If HF:Then Goto 2:Else If HG:Then Goto 2:If End:IfEnd (E-D)Abs(G-F) P:Abs (H-F) Q:PQI:C+90Q(I+2D) J:C+45Q(I8+D) M:C

32、+135Q(3I8+D) N:C+45Q(I2+2D) K A+Q(Cos(C) +4(Cos(M)+Cos(N)+2Cos(K)+Cos(J)12U:B+Q(Sin(C)+4(Sin(M)+Sin(N)+2Sin(K)+Sin(J)12V X=:U+oCos(J+90) X Y=:V+oSin(J+90) Y FWJ=: J DMS Goto 1 Lbl 2 END说明：X0Y0：起开点坐标，FWJ：起开点方位角，1R-QD：起开点曲率，1R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标6、标高计算QZHAO=?J:QDHAO=?G:ZDH

33、AO=?K:BHB=?B:SX=?Q:I1=?C:I2=?D:R=?R:T=?T (D-C)100W:WAbs(W)A:T:0.5RAbs(W) S o-YIGAO=?o J-TX:J+TY Lbl 1 LDQHAO=?L:PY=?U:XIELV=?V If LX:Then Goto 2:Else If LY:Then Goto 3:If End:I End HL=:B+0.01C(L-J)+A(L-J+T) (2R)+0.01UV+QQ HO=:o-HZ Goto 1 Lbl 2 LK Goto 4 HL=:B+0.01 (L-J)D+0.01UV+Q H HO=:o-HZ Goto 1 L

34、bl 4: END说明：QZHAO：曲中点里程（竖曲线），QDHAO：起点里程，ZDHAO：终点里程，BHB曲中点高程，SX：上下（路面标高下多少为水稳层面），I1：第一坡度，I2：第二坡度，R：半径，T切线长，LDQHAO：待求点里程，PY：偏移（中桩到边桩的距离），XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高 看下有哪个高手能不能帮下看看有没有出现问题 还有就是能帮我把程序中的那些回车用的地方标出来 还有个问题就是圆曲线中的那个o:o 的o在卡西欧5800是怎么输入 CASIO5800计算器公路竖曲线全线高程计算程序2009-08-12 19:32CASIO5800计算器

35、公路竖曲线全线高程计算程序 CASIO5800计算器公路竖曲线全线高程计算程序 作者：彭赐明“SQXJSCX”Lb1 1CLs:Fix 3“K=”?k (计算点里程输入)If k67549.755 AND K66894.3 :Then -0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto 2 : IfEndIf k68708.391 AND K67549.755 :Then -0.0048A : -0.00052B : 68494.3S :66.8G : 100000R : Goto 2 : IfEndIf k0 : Then G+(C-K) 2/2/R-L*BH : Goto 5 : Else If W0 : Then G+(K-D) 2/2/R-L*AH : Goto 5 : Else If WGoto 1: Goto 2Lbl 1:?Z: Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F-90 DMS“XC” ?C： “YC” ? E：0I：0J：Pol（X-C，Y-E）:“I=”：IIf J0: T