《线路计算程序》由会员分享，可在线阅读，更多相关《线路计算程序（13页珍藏版）》请在金锄头文库上搜索。
1、CASIOCASIO fx-5800Pfx-5800P 线路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日1FX5800FX5800 计算器公路测量常用程序集计算器公路测量常用程序集一、程序功能一、程序功能本程序组由 2 个主程序、5 个次子程序及 3 个参数子程序。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算。程序坐标计算适应于任何线型.二、源程序二、源程序1.1.主程序主程序 1 1：一般放样反算程序：一般放样反算程序(正算坐标、放样点至置仪点正算坐标、放样点至置仪点方位角及距离；方位角及距离；反算桩
2、号及距中距离反算桩号及距中距离) )程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1 正算，F=2 反算)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 2CASIOCASIO fx-5800Pfx-5800P 线
3、路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日2“KM”?Z:?D:Prog”H”:Fix 3:” H=”:Locate 6,4,H“ I=”: Locate 6,4,IGoto 03.3.主程序主程序 3 3：极坐放样计算程序：极坐放样计算程序( (计算放样点至置仪点方位角及计算放样点至置仪点方位角及距离距离) )程序名：3JSX：Y：1268123K(置仪点 X 坐标)2243545L（置仪点 Y 坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-LE：X-KF：Pol(F,E):IF JA
4、: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:CASIOCASIO fx-5800Pfx-5800P 线路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日4LbI T:L+0.5N:If GZ17:Then (N+Z18+(G-Z17)Z
5、16+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主程序主程序 6 6：路基标准半幅宽度计算程序：路基标准半幅宽度计算程序( (对于设计有加宽渐对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至值至 L)L)程序名：6GDProg “G0”Z-CE:(B-A)E/S+AL:L:7 7
6、坐标计算次程序（）坐标计算次程序（）程序名：THB18DimZ：?Z：Prog 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 3CASIOCASIO fx-5800Pfx-5800P 线路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日5LbI 3:IF Then ：Else ： 8.8. 正算子程序正算子程序( () )程序名：A0.1184634425A： 0.2393
7、143352B：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(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+co
8、s（）： Y+sin（）9.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() 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)+
9、M)V:Goto 2:IfEnd:LbI 2:Abs(D)E:VEI:I(E-K)V:1212数据子程序数据子程序( (附后示例附后示例) )程序名：程序名：X0X0（坐标计算要素程序）（坐标计算要素程序）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:1
10、1045P: 1800R:1Q:Goto 0:IfEnd:CASIOCASIO fx-5800Pfx-5800P 线路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日7If Z26915.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
11、-线元起点桩号切线方位角; 线元长度，线元起点曲率半径，线元终点曲率半径,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。程序名：程序名：SO(SO(高程竖曲线要素子程序高程竖曲线要素子程序) )If Z25900 And 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
12、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:CASIOCASIO fx-5800Pfx-5800P 线路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日8程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡程序名：程序名：I0I0（高程超高参数
13、子程序）（高程超高参数子程序）1.5K:2W:If D XY2.： XY = ? 选择计算方式，输入 1 表示进行由里程、边距计算坐标 ；输入 2 表示由坐标反算里程和边距。为线元边桩与中线右夹角。？正算时所求点的里程（反算输入大概桩号） ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) X0 ？反算时所求点的 X 坐标（放样程序中实测 X 坐标）Y0 ？反算时所求点的 Y 坐标（放样程序中实测 Y 坐标）显示部分：L? 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.M0? 边坡放样程序中原地面标高输入X=* 正算时，计算得出的所求点的 X 坐标Y=* 正算时，计算得出
14、的所求点的 Y 坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角（在 3JS 程序中应输入 X、Y 坐标值于 K、L）S=* 正算时，计算得出的所求点的至置仪点距离=* 反算时，计算得出的所求点的里程CASIOCASIO fx-5800Pfx-5800P 线路计算线路计算 1.01.0 版程序设计版程序设计 作者：汤海波作者：汤海波 20092009 年年 4 4 月月 5 5 日日13=* 反算时，计算得出的所求点的边距H=* 所求点位置设计路面顶标高I=* 所求点位置设计路面横坡L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。TW=* 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值
