《2022年计算机程序 .pdf》由会员分享，可在线阅读，更多相关《2022年计算机程序 .pdf（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、程序功能本程序由 6 个主程序、5 个次子程序及 5 个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序 1：一般放样反算程序(正算坐标、放样点至置仪点方位角及距离；反算桩号及距中距离)程序名:1ZD-XY Lb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算,也可以改 F前加？，改 F为变量)Z1=90（与路线右边夹角）ProgTHB：F=1=Goto 1:F=2=Goto 2 Lb1 1:ix 3:=：Locate 6,4,：Locate 6,4,rog3JS
2、”:Goto 0:Lb1 2:Fix 3:：Locate 6,4,：Locate 6,4,oto 0 主程序：高程序横坡程序(设计任意点高程及横坡)程序名：2GC LbI 0:Norm 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+
3、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：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3 中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XY LbI 0:Norm 2 90Z1(涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1F:Prog”THB
4、”:?L:名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 6 页 -Z2-Z1 E:X+Lcos(E)X:Y+Lsin(E)Y:Fix 3:=：Locate 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:D Z3:Prog”6GD”:L Z6:If D0:Then 0.75-LD:Goto H:Else L-0.75D:
5、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+Z11 Z8+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.5N:If GZ17:Then(N+Z18+(G-Z17)Z16+Z17 Z15)S:Goto Z:Else(N+G Z15)S:Goto z
6、: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 0 6主程序 6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GD Prog“G0”Z-C E:(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:：
7、I：J：Prog：Z：oto 3 LbI 3:IF Then：Else：8.正算子程序()程序名：A 0.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(G+QE(1-K)W(C+(1-K)WS)X：V+W(Asin(G+QEKW(C+KW)+Bsin(G+QELW(C+LW名师资料总结-精品资料欢迎下载-名师精心整理-第
8、 2 页，共 6 页 -)+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.反算子程序()程序名：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 Prog“
9、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)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)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（
10、坐标计算要素程序）If Z25900 And Z26615.555:Then 25900O:11587.421U:1847.983V:101。0923.1”G:715.555H:11045P:1 1045R:0 Q:Goto 0:IfEnd:If Z 26615.555 And Z 26915.555:Then 26615.555O:11448.97U:2550.016V:101。0923.1”G:300H:11045P:1800 R:1Q:Goto 0:IfEnd:If Z 26915.555 And Z 27316.952:Then 26915.555O:11382.792U:2842.5
11、31V:105。5551.83”G:401.396H:1800P:1800 R: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 Z 25900 And Z26157.8:Then 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 6 页
12、 -200000R:157.8 T:26000C:37.1 G:0.01222I:G oto 0:IfEnd:If Z 26157.8 And Z 27421.915:Then 300000R:171.915T:27250C:32.65 G:-0.00356I:Goto 0:IfEnd:If Z 27421.915 And Z 27889.029:Then 1000000R:134.029T:27755C:36.64 G:0.0079I:Goto 0:IfEnd:,LbI 0:R:T:G:C:I:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线
13、半径（分正负：凹曲线为正，凸曲线为负）；I 竖曲线前纵坡程序名：I0（高程超高参数子程序）1.5K:2W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z25900 And Z26615.555:Then 0 L:-0.02M:Goto 0:IfEnd:If Z 26615.555 And Z 26735.555:Then 120L:26615.555 C:-0.02M:0.02N:Goto 0:IfEnd:If Z 26735.555 And Z 26795.555:Then 60L:26735.555 C:0.02 M:0.04N:Goto 0:
14、IfEndIf Z 26795.555 And Z 27436.951:Then 0 L:0.04 M:Goto 0:IfEnd,LbI R:If Z25900 And Z26735.555:Then 0 L:-0.02M:Goto 0:IfEndIf Z 26735.555 And Z 26795.555:Then 60L:26735.555 C:-0.02M:-0.04N:Goto 0:IfEndIf Z 26795.555 And Z 27436.951:Then 0 L:-0.04M:Goto 0:IfEnd,LbI 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表示由坐标反算里程和边距。为线元边桩与中线右夹角。名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 6 页 -？正算时所求点的里程（反算输入大概桩号）？正算时所求点距中线的边距(
16、左侧取负，值右侧取正值，在中线上取零)X0？反算时所求点的X坐标（放样程序中实测X坐标）Y0？反算时所求点的Y坐标（放样程序中实测Y坐标）显示部分：L?涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.M0?边坡放样程序中原地面标高输入 X=*正算时，计算得出的所求点的X坐标 Y=*正算时，计算得出的所求点的Y坐标FWJ=*正算时，计算得出的所求点的至置仪点方位角（在 3JS程序中应输入X、Y坐标值于 K、L）S=*正算时，计算得出的所求点的至置仪点距离=*反算时，计算得出的所求点的里程=*反算时，计算得出的所求点的边距H=*所求点位置设计路面顶标高I=*所求点位置设计路面横坡L0=*边桩放样程序中实测点至设计边坡点距离，正向内移，名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 6 页 -