《2022年2022年公路放样程序》由会员分享,可在线阅读,更多相关《2022年2022年公路放样程序(7页珍藏版)》请在金锄头文库上搜索。
1、【转】 转载:FX-5800 计算器公路测量常用程序转载自:全小良 转载于: 06-19 23:22 | 分类: 个人日记阅读: (3) 评论:(0) 一、程序功能本程序由 6 个主程序、 5 个次子程序及 5 个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算, 桥涵放样,路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序1. 主程序 1:一般放样反算程序 ( 正算坐标、放样点至置仪点方位角及距离;反算桩号及距中距离 ) 程序名 :1ZD-XY Lb1 0:Norm 2 F=1:(正反算判别, F=1正算, F=2反算, 也可以改 F 前加?,改 F
2、为变量 ) Z1=90 (与路线右边夹角)名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页,共 7 页 - - - - - - - - - ProgTHB :F=1=Goto 1:F=2=Goto 2 Lb1 1: ix 3:=:Locate 6,4,: Locate 6,4,rog3JS”:Goto 0: Lb1 2:Fix 3:: Locate 6,4,: Locate 6,4,oto 0 主程序:高程序横坡程序(设计任意点高程及横坡 ) 程序名: 2GC LbI 0:No
3、rm 2 “KM ”?Z:?D: Prog”H”:Fix 3:” H= ”:Locate 6,4,H“ I=”: Locate 6,4,I Goto 0 3. 主程序 3:极坐放样计算程序 ( 计算放样点至置仪点方位角及距离) 程序名: 3JS X: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:( 不习惯小数点后四位为角度显示的,也可以用命
4、令 JDMS 来直接显示 ) Fix 4: ” FWJ= ” : Locate 6,4,J ( 不习惯小数点后四位为角度显示的,也可以用命令JDMS 来直接显示) Fix 3: ” S= ”:Locate 6,4,I4主程序 4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3 中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名: 4JH-XY LbI 0:Norm 2 90Z1( 涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量) 1F:Prog ”THB ”:?L: Z2-Z1 E:X+Lcos(E) X:Y+Lsin(E) Y:Fix 3: =: Locate
5、 6,4,: Locate 6,4,rog3JS”:Goto 0: 5主程序 5: 路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名: 5FBX LbI 0:Norm 2: 18DimZ:2F:90Z1:Prog “THB ”:Z:D: ”M0 ”?M:M Z4:DZ3:Prog ”6GD ”:L Z6:If D0:Then 0.75-LD:Goto H:Else L-0.75D:Goto H:IfEnd LbI H:Prog ”H”:H-0.03-Z4 Z5:Z6 L:If Z5A:Then Goto 1:Else If GZ
6、10:Then Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z12+Z13+Z14+(G-A)Z9+Z11Z8+Z10 Z7:Goto Z: LbI 2:L+Z12+Z13+(G-Z10)Z8+Z10 Z7:Goto Z: LbI 3:L+Z12+G Z7:Goto z: LbI T:L+0.5 N:If GZ17:Then (N+Z18+(G-Z17)Z16+Z17 Z15)S:Goto Z:Else (N+G Z15) S:Goto z: LbI Z:Z3D:Fix 2:Abs(D)-ST:” L0= ”:L Locate 6,4,T: Locate 6,4,: L
7、ocate 6,4,“ TW= ”: Locate 6,4,Z5Goto 0 6主程序 6:路基标准半幅宽度计算程序( 对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L) 程序名: 6GD Prog “G0 ”Z-CE:(B-A) E/S+AL:L: 7坐标计算次程序()程序名: THB 18DimZ : ?Z:Prog 1P: (P-R) (2HPR) : 180 :=1=Goto 1:=2=Goto 2Lbl 1 :?: Abs( O) W :Prog :X: oto 3 LbI 2: : I : J:Prog : Z: oto 3 LbI 3:IF Then
8、: Else :8. 正算子程序 ( ) 程序名: A 0.1184634425A: 0.2393143352 B:0.2844444444N 0.046910077K:0.2307653449L: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
9、-L)WS)+Asin(G+QE(1-K)W(C+(1-K)W) Y:G+QEW(C+W)+: X+cos(): Y+sin ()9. 反算子程序 ( ) 程序名: B G-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:Goto 0Lbl 1:0 D:Prog :(J-Y) sin( ) D: 10高程计算子程序( H)程序名: H 名师资料总结 - - -精品资料欢迎下载 - - - - - - - -
10、 - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页,共 7 页 - - - - - - - - - Prog “S0”:R:T:C:G:I:C-TF:Z-F L:C+TE:G-TI Q:If T=O:Then Q+LI H:Goto 0:Else If Z Goto 0:W=2=Goto 1: LbI 0:If L=0:Then Abs(D)M V:Goto 2:Else Abs(D)(N-M) (Z-C) L+M)V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)M V:Goto 2:Else Abs(D)(3(Z-C
11、)L)2-2(Z-C)L)(3) (N-M)+M)V:Goto 2:IfEnd: LbI 2:Abs(D)E:VEI:I(E-K)V: 12数据子程序 (附后示例 ) 程序名: X0(坐标计算要素程序)If Z 25900 And Z26615.555:Then 25900 O:11587.421U:1847.983V:101。 09 23.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:3
12、00H:11045P: 1800 R:1Q:Goto 0:IfEnd: If Z 26915.555 And Z 27316.952:Then 26915.555 O:11382.792U:2842.531 V: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
13、=-1;当线元往右偏时, Q=1 ;当线元为直线时, Q=0)。程序名: SO(高程竖曲线要素子程序 ) If Z 25900 And Z26157.8:Then -200000 R:157.8 T:26000C:37.1 G:0.01222I:Goto 0:IfEnd: If Z26157.8 And Z27421.915:Then 300000R:171.915 T:27250C:32.65G:-0.00356 I:Goto 0:IfEnd: If Z 27421.915 And Z 27889.029:Then 1000000 R:134.029 T:27755C:36.64 G:0.0
14、079I:Goto 0:IfEnd: ,LbI 0:R:T:G:C:I: 程序字母说明: C-竖曲线交点桩号; G-交点桩号高程(未竖曲线调整的);T-竖曲线切线长; R-竖曲线半径(分正负:凹曲线为正,凸曲线为负);I 竖曲线前纵坡程序名: I0 (高程超高参数子程序)1.5 K:2W:If D0:Then Goto L:Else Goto R:IfEnd: LbI L:If Z25900 And Z26615.555:Then 0 L:-0.02 M:Goto 0:IfEnd: If Z26615.555 And Z26735.555:Then 120L:26615.555 C:-0.02
15、 M:0.02名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页,共 7 页 - - - - - - - - - N:Goto 0:IfEnd: If Z 26735.555 And Z 26795.555:Then 60 L:26735.555 C:0.02 M:0.04N:Goto 0:IfEnd If Z 26795.555 And Z 27436.951:Then 0 L:0.04 M: Goto 0:IfEnd ,LbI R: If Z25900 And Z26735.
16、555:Then 0 L:-0.02 M: Goto 0:IfEnd If Z26735.555 And Z26795.555:Then 60L:26735.555 C:-0.02 M:-0.04N:Goto 0:IfEnd If Z 26795.555 And Z 27436.951:Then 0 L:-0.04 M: Goto 0:IfEnd ,LbI 0 K:W:L:C:M:N: 字程序中字母表示说明:K中央分隔带半幅宽(中桩标高至中桩中线距离,无分隔带则为0);W 超高方式参数( W=1 为一般直线方式超高, W=2为三次抛物线方式超高) ;L 超高渐变段距离(不是渐变段则输入0);C
17、-超高渐变段起点桩号(不是渐变段,无需输入);M 超高段起点横坡, N-超高渐变段终点横坡 (不是渐变段, 无需输入)。程序名: GO( 路基标准半幅宽度参数子程序) If D XY 2.: XY = ? 选择计算方式,输入1 表示进行由里程、边距计算坐标;输入 2表示由坐标反算里程和边距。为线元边桩与中线右夹角。?正算时所求点的里程(反算输入大概桩号) ?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零) X0 ?反算时所求点的X坐标(放样程序中实测X坐标) Y0 ?反算时所求点的Y坐标(放样程序中实测Y坐标)显示部分:L? 涵洞放样程序中涵距中心桩号前后距离, 前为正 , 后
18、为负 . M0? 边坡放样程序中原地面标高输入 X=* 正算时,计算得出的所求点的X坐标 Y=* 正算时,计算得出的所求点的Y坐标FWJ=* 正算时,计算得出的所求点的至置仪点方位角(在 3JS程序中应输入X、Y坐标值于 K、L)S=* 正算时,计算得出的所求点的至置仪点距离=* 反算时,计算得出的所求点的里程=* 反算时,计算得出的所求点的边距名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页,共 7 页 - - - - - - - - - H=* 所求点位置设计路面顶标高I=* 所求点位置设计路面横坡L0=* 边桩放样程序中实测点至设计边坡点距离,正向内移,名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页,共 7 页 - - - - - - - - -