立交匝道坐标放样计算程序.docx

《立交匝道坐标放样计算程序.docx》由会员分享，可在线阅读，更多相关《立交匝道坐标放样计算程序.docx（6页珍藏版）》请在第一文库网上搜索。

1、立交匝道坐标放样计算程序RAMP3 (主程序)行号程序说明1Deg： Fix34j基本设置2“RAMP? l-5n ? R-j输入匝道代码，数字15分别表示a、c、b、d、e匝道，存储在变量R中3“XS” ? U： “YS” ? v-,输入测站点坐标4LbS5“KP” ? PC： P-S-1j12180-Mr (B-A) 2C-Nj计算中间参数13Prog “ RAMP-SUB 1” 1显示X坐标14“XP二 ： F15“YP= ： GJ显示Y坐标16“BP= ： ZDMS显示切线方位角17If U=0： Then Goto 2： Else Pol( F-U, G-V)： IfEnH计算极坐标

2、法参数18Lbl ”19If JDMS显示极坐标法方位角21“DI二” ：1/显示极坐标法平距22Lbl 2123“DANGLE” ? H： IfH=0： Then Goto 0： IfEnd： ? Ej计算路线外一点坐标24“XB=” ： F+Dcos( Z+H) -O X坐标25“YB= ： G+Dsin( Z+H) - K，Y坐标26IfU=0： Then Goto 2： Else Pol( O-U, K-V)： IfEnW计算极坐标法放样参数27Goto RAMPSUB 1 (子程序)行号程序说明1W+f (cos( Q+MAX+MNX2), 0, L) P-j计算X值2Y+ (sin

3、( Q+MAX+MNX2), 0, L) Gj计算Y值3Q+MAL+ MNL2 -Z1计算切线方位角4IfZ360： Then Z-360-Z： IffincKj根据成赤高速公路在汪洋服务区的A、B两条匝道的数据（另见附件），编制如下子程序。RAMP-DATA1 (A 匝道)1、 611.254-Sz 532.024-E： If PEz Then 3297505.847-W： 437150.884-Y： 304o 15 02.7 -Q：0-A： Of B： Return： IfEnd4-,2、 E-*S： 496.524-E： If PEj Then 3297462.381-*W： 43721

4、4.722-Y： 304o 15, 02.7 -*Q： 0A： -12400-*Bj Return： IfEnd4-j3、 E-S： 456.647-E： If PE Then 3297441.356Wz 437245.773Yz 303o 48, 11.3z, -Q： -l2400f A： -l2400-*B Return： IfEnd4j4、 ESj 419.147E If PE Then 3297419.447Wj 437290.092Yj 302o 51 04.2 Q： -l2400f A： Of B： Return： IfEnd4-15、 E-S： 356.29-E： IfPE Th

5、en 3297399.27-W： 437310.70-Y： 302o 24, 12.7” -Q： 0-*A：-l770-*B Return： IfEnd4-16、 E-S： 124.475-E If PEj Then 3297364.869-W： 437363.303-Y： 304o 44f 31.7 -Q： -l770-A： -1 770-*Bj Return： IfEnd4-17、 E-S： 62.083-E： If PE Then 3297206.29-*W： 437531.19-*Y： 321o 59, 31.7,f -Q： -l770f A： -1 1009.5-B： Return：

6、 IfEnd4-,8、 E-*S： 0-E： If PE Then 3297155.742-W： 437567.742-Y： 326o 05, 00.3 -*Q： -1 1009.5-A： -l1009.5B Return： IfEnd4-j9、10、IfPOOrPE： If P WE： Then 3297386.038-W： 437284.619-Y： 127o 21, 02.8” -Q： 0f A： 1 150()Br Return： IfEnd1j3、 EfS： 411.433-E If P WE： Then 3297335.906-W： 437349.085-Y： 128o 54 37

7、.8 -Q：1 1500-*,Az 1 1500-*B Return： IfE(-14、 Ef S： 455.533-E： If P E Then 3297169.656W 437524.117Y 138o 08 09 Q： 115()()f A： l600_*B Return： IfEnd*j5、 E-S： 502.291-E： If P WE： Then 3297136.173-W： 437552.81-*Y： 141o 05, 21.3 -Q： l600f A： l600B Return： IfEnd*j6、 EfS： 546.709-E： If P WE： Then 3297098.6

8、83Wj 437580.732Yj 145 o 33 z 15.4 -Q：l600Ar 1:990.5-B： Return： IfEncH7、 E-S： 588.734Ej If P WE： Then 3297061.27-W： 437604.662-Y： 148o 57 35.2, 一Q：l990.5-*Az 1990.5Bj Return： IfEncH8、 IfPE： Then Cis： Locate 5, 2, “KP ERROR” A9、 Stop： IfEnd4-j附件匝道数据A匝道（成赤高速公路汪洋服务区）编号线元类型线元起终点桩号R或A转向线元起终点坐标线元起点切线方位角线元长

9、度线元起终点半径1直K0+611.254+532.024R 8X=3297462.381Y=35437214.722304 15 02.777.23OOOO2缓+532.024+496.524A300左X=3297441.356Y= 437245.773303 48 11.3”37.5OO24003圆+496.524+456.647R24(X)左X=3297419.447Y= 437279.092302 51 04.239.87724(X)24004缓+456.647+419.147A300左X=3297399.270Y= 437310.700302 24, 12.737.52400OO5缓+

10、419.147+356.290A220左X=3297364.869Y= 437363.303304o 44, 31.762.857OO7706圆+356.29+124.475R770左X=3297206.290Y= 437531.190321 59, 29.47231.8157707707缓+ 124.475+062.083A450左X=3297155.742Y= 437567.742326 05 00.362.3927701009.58网+062.083+()()()R 1009.5左X=3297103.i90Y= 4376(X).778329 36, 25.362.0831009.5100

11、9.5B匝道（成赤高速公路汪洋服务区）编tj号线元类型线元起终点桩号R或A转向线元起终点坐标线元起点切线方位角元度线口线元起终点半径1直K0+000+088.102R 8X=3297439.489Y=35437214.584127 21, 02.788.102OOOO2缓+088.102+169.769A350右X=3297386.038Y= 437284.619128 54, 37.881.667OO15003圆+ 169.769+411.433R15(X)右X=3297335.906Y= 437349.085138 08 29241.66415(X)15004缓+411.433+455.533A210右X=3297169.656Y= 437524.117141 05, 21.3f,44.115006005圆+455.533+502.291R600右X=3297136.173Y= 437552.810145 33, 15.4746.7586006006缓+502.291+546.709A260右X=3297061.270Y= 437604.662148 57, 35.244.418600990.57圆+546.709+588.734R990.5