路线全线坐标计算放样程序.docx

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

1、全线坐标计算放样程序XLZBJSCX (主程序)行号程疔说 明1LblO-,2CIS： Fix3： 30DimZj基本设置3“XHS= ？ G： “YHS= ？ L： “XZJ= ？ M： “YZJ= ？ N： Pol(G-M, L-N)：“DH=： I，输入后视点、置镜点坐标4JJ+360J “FH= ： JDMS后视方位角5Lbl lj6“K= ？ K输入待计算的中桩桩号7If Kv本段曲线终点里程And K本段曲线起点里程：Then本段终点里程Z1:本段曲线起点里程一Z2 ： 1O （注：左偏曲线输入.1O,右偏曲线输入1一。）：偏角一A：半径一R :第一缓和曲线一Z6:第二缓和曲线一Z

2、7:交点X-B :交点YC :小里程向交点方位角E :交点向大里程方位角F :Goto 2 : If End /曲线段输入方法分段：见下示例If K89125.462 And K88369.766 ： Then 89125.462Z1 ： 88369.766Z2：-1Oj 24o 37, 21.3 一A： 1200R 240Z61 240Z7j 3301492.973Bj434557.724C 162o 27, 27.56” 一E： 137o 50, 35, 一F： Goto 2： IfEnd-,示例：JD68 （成赤高速公路CR12合同段）If K89752.275 And K89290.9

3、78 ： Then 89752.275Z1 ： 89290.978Z2：1O 19o 49 03.9 Az 900R 150Z6z 150Z7z 3300914.613一B：435081.358C1 137o 50, 35 -E： 157o 39 38.9 -F： Goto 2： IfEnd-jJD69If K90238.611 ： Then 90786.71Zl ： 90238.611Z2：1Oj 16o 13, 24.4 A： 1300Rj 180Z6j 180Z7 3299995.081Bi435459.22Ci 157o 39 38.9 -E： 173o 53, 03.2 一F： Go

4、to 2： IfEn-lJD70If K92117.685 And K91245.474 ： Then 92117.685Z1 ： 91245.474Z2：-lOz 50o 35 20.9, A： 750R 210Z6 210Z7z 3298807.169Bz435586.502C1 173o 53, 03.2 E： 123o 17 42.4 F Goto 2： IfEn(jJD71If K92318.596 ： Then 92934.987Z1 ： 92318.596Z2：lO 18o 21, 06.9 一A： 1300Rj 200Z6 200Z7： 3298273.798一B：436398

5、.633C1 123o 17, 42.4 一E： 141o 38 49.2, Fz Goto 2： IfEncHJD72If K93135.521 ： Then 93589.143Z1 ： 93135.521Z2：-1Oj 17o 23, 46.4 -A： 1000R1 150Z61 150Z7 3297694.404一B：436857.082C1 141o 38, 49.2 E 124o 15 02.9, F Goto 2： If End-1JD73If K93801.319 ： Then 94760.898Zl ： 93801.319Z2：1Oj 41o 13, 43.8 -A： 1000

6、Rj 240Z6j 240Z7 3297166.876一B：437631.838C 124o 15, 02.9 E： 165o 28 46.7 - F： Goto 2： If End*-1JD748If Kv本段直线终点里程And K本段直线起点里程：Then 1 -O:本段直线终点里程Z3:终点 XtZ16:终点 YZ17:方位角E: Goto 4: IfEnd直线段输入方法分段：见下示例If K89125.462： Then 1O ： 89290.978Z3 ： 3301086.881Z16 434925.391Z17c 137o 50, 35“ E Goto 4： IfEnd-lJD68

7、JD69间的直线段If K90238.611And K89752.275 Then 1O ： 90238.611Z3 ： 3300249.833Z16z 435354.535Z17z 157o 39 38.9 E Goto 4： IfEnd-,JD69-JD70间的直线段If K90786.71 ： Then 1O：91245.474Z3：3299265.073Z 16： 435537.439Z 17： 173o 53, 03.2 一E： Goto 4： IfEnd-,JD70JD71间的直线段If K92318.596And K92117.685 ： Then 1 O ：92318.596Z

8、3：3298444.073Z16z 436139.366Z17z 123o 17, 42.4 一E： Goto 4： IfEn-,JD71-JD72间的直线段If K93135.521 And K92934.987z Then 1O ： 93135.521Z3 ： 3297873.294Z16 436715.534Z171 141o 38 49.2f, E Goto 4： IfEncHJD72JD73间的直线段If K93801.319And K93589.143 Then 1O ： 93801.319Z3 ： 3297446.599Z16 437221.02Z 17： 124o 15, 02

9、.9 E5 Goto 4： IfEncHJD73JD74间的直线段9Lbl2j曲线要索计算10Z62- Z63(240*R2)+ Z6a5(34560*R4) Z8 jMl11Z72- Z73(240*R2)+ Z75(34560*R4) Z9-,M212Z62(24*R)- Z64(2688*R3) Z10 jPl13Z72(24*R)- Z74(2688*R3) Z11-jP214*A*R1800.5*( Z6+ Z7)Sj曲线总长1590* Z6(R*) Z14*-,第一缓和曲线总偏角1690* Z7(R*) Z15j第二缓和曲线总偏角17Z8+ (R+Z 10)tan(A2)-(Z 1

10、0-Z 11 )Sin AZ 12 *-,切线T118Z9 + (R+Z11 ) tan (A2)+(Z10-Zll) Sin AZ13j切线T219B+ Zl2*CoS (E180) Z16jZH点X20C Z12* Sin (E+180) Z17jZH点Y21Zl-SZ3jZH点里程22Z3 Z6Z4HY点里程23Z1-Z7Z5,YH点里程24Goto 3 4-,25Lbl 3j判断里程点与曲线关系26If K Z2 : T hen Goto 4 : If End”27If KZ4 And K Z3 : T hen Goto 5 : If End-128If KZ5 And K Z4 :

11、T hen Goto 6 : If End 29If K Z5 : T hen Goto 7 : If End j30Lbl 4*-j里程小于直缓点直线独立坐标31K- Z3 X : 0Y : ET Prog “TYZBCX ”： Goto 1 *-,32Lbl 5j第一缓和曲线独立坐标33K- Z3 H 134H-Ha5(40*R2* Z62)+H9(3456*R4* Z64) Xj35H3(6*R* Z6)-H7(336*R3* Z63) Yj3690*H2( R* Z6) T 137IF O0 ： T hen T ET : Else E-T T : T360+TT : If End-13

12、8Prog u TYZBCX , ： Goto 1 j39Lbl 6j圆曲线独立坐标40K- Z4 一Hl41H* 180/( R*) Z14Tj42R*Sin T+ Z8X-j43R*(1-COS T)+ Z10Y0 ： Then T +ET : Else E-T T : T360+TT : If End 145Prog TYZBCX , ： Goto 1 *-j46Lbl 7*-,第二缓和曲线独立坐标47Zl-K H*-,48H-Ha5(40*R2* Z72)+H9(3456*R4* Z74) U*-,49H3(6*R* Z7)-H7(336*R3* Z73) V *-,5090*H2( R* Z7) T j51Z13CoS A+ Z12-U*CoS A-V*Sin AXj52Z13*Sin A-U*Sin A+V*CoS AY-,53IF O0 ： Then F-TT : T360+TT : Else F+T T:IfEn354Prog “TYZBCX ： Goto TYZBCX （子程序）统一坐标计算1IF O0 : T hen -YY : I