【2019年整理】立交匝道中边桩坐标放样正反算程序RAMP

1、立交匝道中边桩坐标放样正反算程序RAMP （0911改进版）立交匝道中边桩坐标放样正反算程序（主程序人RAMP行号程库说明!Dg：FR3tlDDimZ基本设割204739174226 Z|1 h 0.069431M42 Zlp是义Gauss-Lzswije积分公式的蜃 數阵点）3OJ260*25774- Z|3 h 0.33000947B2 -Z|4| 见存入原始麴6: 线元起煤坐标、万位期冬骯起*终 戌曲率线元起.终点桩号注：1曲事是半的雕L可用&R 这样的表达式输入2盲线曲率另0）趴g妖左转时，曲率需楡入员怪7X*TA n； FWJ ?Q： RS ?Aj RF ?B; KS : KE ?!

2、。SIfEndd910C1M ZS1 hFS(lJ7-Z(10s Z| 101 siGoto24生标正、反專世醍输入，ffiA 1衰禾 正詔，输入2表示反尊nsm：t 呼*？vw$6A那占点坐标11输入待计）i的中曲i号12Z19 0 Pwg RVWP DATA週用匝道数18阵子f訴13Prog RAMF-ZBJST#调用子程序计算中桩坐标14Lbl 1(90-H* TJ ?HtH=0GqW4 7D*输入右角及距為 若右角为0贝腿回 拡号笹入15F + DcoZ+H) + Rj G+Dwi(Z+H) + Td坐标计算16PoUR-U,JJ+360-J171 * Ot Prog RAMPGot

3、10Profi RAMP-DATA 调用匝遒貂据睦子程序20Png RAMFZBJSTd调用子程序计算申桩坐标21(V- G)co&(Z - 90) - (L -F)n(Z- 90)申 H#22If Ab(H)0J)01:Ilim P+H +Pi Goto 3: Kind*23(G-VFba90Dd242 OtFrog 1UMP-XS Goto调用计it结果显示子程序2 子程序 1: RAMP ZBJS功能：使用Gauss-Legendre积分公式（四结点）计算匝道坐 标。亘交匝道中边桩坐标放样正反算程序（子程序lh RAMP-ZBJS亍号程 序说明1E-S*Ci P-S*L: 1804-X审

4、4计算中间券数7W0*FiOG:03ForO+KToi*14F+LZ12K+lkQi(Q+MALZpK+2+MX(LZ(2K*2)J4F,5 G+ LZUK+1 $in(Q+5LUZ2K+ 2+MNVZ1计算如戋方位角9ZLocate 4* 4,显示坐标反算结果5Idn融口理特别说明：在程序第2行，Locate 4,3, J后面有一个度的符号（可按“度分秒”的那个按键输入），注意不要漏了。4.子程序 3： RAMP DATA功能：调用相关匝道的数据库子程序。立交匝道中边桩坐标放样正反算程用（子程序3）： RAMP-DATA行号程序说明1IfZ9Bli Then Prog X4MP- DAT1-

5、 Vi Goto It ICEndi1根抿匝道代码佑储于变量卒中人 比如戮字仁二典分别圈用养仏6 dffiiS数振库子程胳*IfZF? = 2:ThenProg TUMP-DVR -2:GotoLKLnd*13lfZ9 =3: Then ProgDAT 13 ； Goto!: IfTnd*14irZ9=4i Then Frog X4MP-DAT1-4: Goto 1:1 ft nd*15Cl Locate 虽乙 RAMFERROR J序6Stop7Lbi l:Mii B|14J4Wi Mat B(L2|4YrMwt Hi 1J| 4Q： BM 4AiM4B：Mat BH.61 4Si AUt符

6、线曲据陆般扌氐趨 養见变 量清单表）汪子程序RAMP DAIA第1 行是根据后面的立交匝道示例顶巨编写的，滾顶目共4匝值 W 是主线，这里未考虑为匝道），对于其它的匝道顶目，用户可掺頤自行命名相关的匝道數据库干程序 名称并确定对痙关系。、程序变量清单立交匝道中边桩坐标放样正反算程序变量清单见下表。立交匝道中边桩坐标放样正反算程尺爭店甲序号数学模型教-58OOP 计 WS81输入（输出）提示符单位说明1ZHF4BUm： XTf七a；-MatB线冗数抿存储矩阵变量，r恆子3勺1W, Y MatBI,lJ Mat Bi.2XA, YAm线元起点A的（號计坐标4勺QMat B1.3FWJ线元起点A的切

7、线方位角5P5A.B Mat B!b4 XiatB(lt5RS, REm线元起、终点的曲率6K皿S,E Mat BL6 XiatBflJKS: KEm线元起，终点的桩号1Uf VXS: YSm魁点挫标（正駆P書UVXB= YBm睦线外一点生标皈算时）9LCm転K#10ALm待宋点距线元起点长度11MX线元坐标计算的中间妞12K;PKPm路线上任一点的桩号130计算结果显示理符号，0=1时显坐因口枫坐标计算结里.O2B1 显示坐标反算计算结果14f5gm路线中桩点P丽坐标15z/ tf略线中堆点P的切舍妨位角16JA MV极坐标法放祥誥数：方位角17IDm极坐标法放样篆数：平距18GHYJ睦线外

8、一点的镐19dDDm路线外一艇中纟蝴睡20艮TX. Ym驚线坐标计算结果四、程序运行流程RAMP程序运行流程示意图如下:简入I Yiftit. MM 5f I|Z(flM出毎J：打聃坡退仃洛代il P尽代讣尊新的斛4P(rtiM用计 Wlli 卜 f F/frU j；vhj ir f KPnpPtug .RAMF- DATAxsfcu： wr卞p”屮总人肯计站的删巧/|1 I柿同;l 口屮桃，坤厲用il WMllU-j；尸小曲门；中 (也ntrt唯如及械坐棘肢样讣H殆興XhvilB W.CNHXHrj. Mir*：i；if u - tti :五、立交匝道计算示例项目基本资料基本资料同CASIO

9、 fx-5800P计算与道路坐标放样计算第 6章MN互通式立交。这 里摘取部分关键图表资料如下：MN互通式立交线位数据图（由于图片大小的限制，此处不清晰，参见教材P162附录2）主点坐标表点4桩号坐丄:方位備X ( N )r（ e）(ftMRt 4+291 S312807753. 171476095. 843244* 3V 45.2*IP02807694. 321475971. 554266 W 1L1*YHMRK4+565. 592807685. 773475834. 302266* 26* 1L 1*IPI2907683. 077475791/018271 3屮 42.5*典MRK4+69

10、5.5492807685,567475704. 350271 38 42.5*P220768 055475617.69726严 43 29, 6*HYMRK4+825,5492307686. 334475574”379267 43厂 29.犷IP32807677, 24247534153036f 5L 9* Y厂MRK5+2 75. 03128075H. 867475H5. 96524旷 36 57, 9*IP42807540. 320475102.3722J6* 05* 318*P HZMRK5+42S.0312807484.516475019.35123貸 05133旷ZHMRK6+2 3

11、9. 5022807030；!63474 别 3 387 :主点坐标表匝道名称点名桩号坐标方位角X ( N )Y ( E )A匝道BPAK(kOOO2807325. 291475916. 008264 45，16.6r 264 45# 16.6* 275 04# 04萨 275 04/ 04. r 308 3 15.2* 308 34 15.2* 320。40# 28厂 320 40 2&厂 320 4(/ 28. V 356 02z 32.6r 356 02 32.6 84 55 05.3 84。 55* 05.y 133 39 33.6* 133。39 33.213。3V 58. V 21

12、3 3r 58.2* 254。47x 08. 8* 254 47， 08.8* 253 20 13.7*ZHA&0+153.1942807311. 286475763. 456IPO2807306. 891475715. 576HYAK0+225. 1942807309. 017475691. 595IP12807314. 335475631. 632YHAC0*342. 1412807351. 868475584.566IP22807369. 504475562. 450HZAK0H26. 6412807413. 184475526.667ZHAKO+688.6412807615. 8564

13、75360. 631IP32807674. 344475312. 716HYAKO+799. 7522807712. 688475310. 063IP42807800.729475303. 972YHA&0+939. 3582807808. 546475391.877IP52807808. 878475426. 650HYAKl*000.6082807787. 798475448. 740IP62807753. 119475485. 082YHAK1*O84. 2512807711.246475457.332IP72807685. 987475440. 593GQAK1*17O. 651280

14、7670.439475383. 4231P82807661. 941475352. 176EPAK1*219.2232807657. 298475336. 664主点坐标表匝遭名称点名桩号坐标方位角X ( N )Y ( E )B匝道BPBKO*OOO2807694.836475864. 056266 51z 11.4 272 43，20. V 272 43, 20. V 274 26 52.4* 274。 26， 52.4 286 29， 52.V 286 29, 52.V 302 57, 02.4 302。57 02. V 310。50z 48. V 310 50/ 48. V 292 51

15、f 23.1* 292。5V 23. L 264。55z 05.3，IPO2807692.275475817.465HYBI0*117e4162807695. 640475746.696IP12807697. 786475701. 570YHBK0*207. 7622807701.289475656.530IP22807705. 250475605.619HYBK0*286. 6292807711215475578.7241P32807721. 426475551.000YHBKH344. 0602807737. 153475526.737IP42807747.166475511.290GQB

16、K0*399.1852807771.226475483.462IP52807796. 755475453. 935HYBKM457. 4302807804. 367475435. 875IP62807813. 329475414.614EPBK(H502 6572807811.286475391.633主点坐标表匝道名称点名桩号坐标方位角X ( N )Y ( E )C匝谴BPcco*ooo2807450. 147475504. 465320 40 2&厂 354。 05， 22. 3* 354。05 22.3* 56 52r 57.6* 56 52 57. 6 79。09，33 79 09 3

17、3 87 03 41.3 87 Or 41.3 91。38 42.5IPO2807511.407475454.279HYCK0*116.6402807551.378475450. 1411P12807612. 086475443.856YHW226. 2352807645.431475494.974IP22807659. 397475516.384HYCK0*291.0352807666.919475555. 6621P32807673.414475589.S81YHCLO+359. 9942807675. 185475624.070IP42807676. 553475650.718EPCK0

18、M39. 9942807675. 021475704.047主点坐标表匝道名称点名桩号坐标方位角X ( N )Y ( E )D匝itBPDKOOOO2807448.415474977.38358 57 27#58。 57/ 27r72。26 59.72 26 59.6 125 06z 11.6 125 06z 11.6r 140 4(/ 2&厂ZHDK0117.1792807508.842475077. 780IPO2807550.250475146. 580HYDKO*237. 2772807562. 385475184. 952IP12807600.433475305. 255YHDLO4

19、71.6162807527. 875475408.482IP22807501. 118475446. 548EPDKO610.2192807429. 361475505. 334曲线表匝道名称交点编号曲线转角 Tl )(T2 )34IPOS* S2*0*C町46.6617(hB50117. 41633VIPI1* 4 3J 31 (R)300015-1770. 34090, 3461 IPZ1 严 Or59(R)51* 06428.0507+ 867130| IP316- 27*1OB(R)纲21. ?152.07957.431TP4V 53U5 R)18. 40E36, 7B755,125他

20、P517* 59T5(U诙033W 558. 2457X5IP&ir 56T7(L)92.7521 Q722.827 45.226曲线表立交匝道中边桩坐标放样正反算程序RAMR0911改进版）下交点骗号Ct ( P )半径(R J切鱼瑕外匪 （E ）曲怪欣 (Lx/Ls)（a）(Tl )(T2 )csatP053 M*$3*0D79.19240,185H6,640n toe :IPI62 47*35*(11)1006L03217. 153109, 595IP；22。03F0D25. 56J9924. 0Q90IP35Q034. J351, 19168. 9(0【P4铲238353. 351BO

21、200匝道名称交廉编号a ( & )半径 C R )蚱距 (E )曲找拴 Ly/LsJ曲址彗數 （A ）(n (T2 )IP013* 29T2Ol)SO. 29940.24$120. 09817SIP152 39f IPOI)255lift. 1?729/阳：23 338：IP115a 3第 1厂01)邻.52$?Z76313S.604六、立交匝道数据库子程序的格式及编写1 互通匝道数据库子程序格式说明每条互通匝道建立一个数据库子程序，子程序名称格式建议为:RAMP - DAT1 - 1RAMP - DAT1 - 2RAMP - DAT1 - 3本来，笔者为了不建立太多的数据库子程序，曾将尝试

22、将一条互通所有匝道的数据全部 写在一个子程序RAMP - DATA1中（参照路线计算R0AD-2程序采用的数据库子程序的办 法），后来发现：一是数据太过庞大，查找和修改数据相当麻烦（按上、下键按得手指发酸） 二来逻辑判断语句太多，影响计算速度，因此舍弃。每一段线元写成一行数据，格式如下:if p4线兀计算终点桩号:Then |线元起点X（N）坐标,线元起点Y（E）坐标,线元起点直线方丽，怜老元起点曲率（左转询币线元终点曲率（左转为貝）,线元起盘桩号，缓元终点桩号1尸Mat B: Retnin： IfEnd*12立交匝道参数辅助计算EXCEL程序的使用说明前面介绍了线元的数据格式，这里小结一下，

23、每条线元需要确定以下数据：（1）线元起点的X/Y坐标；（2）线元起点的切线方位角；（3）线元起、终点的曲率（半径的倒数，左偏为负）；（4）线元起、终点的桩号。以上参数，要数第（3）种参数最难确定，因为在设计图表中没有直接标注，需要根据 其它相关参数进行计算确定。除第（3）种参数外，其它三种参数的确定就比较简单了，因 为他们基本可以在匝道的设计图表中直接获取。考虑到匝道计算的部分参数不能直接从设计图表中获取，以及计算结果的验证等目的， 笔者编制了立交匝道参数辅助计算 EXCEL程序，帮助使用者快速、准确地确定匝道数据库 参数，以提高工作效率。这里以A匝道为例，讲述立交匝道参数辅助计算 EXCEL

24、程序的基本使用方法。程序主 界面如下图所示：其中，“节点”工作簿用于输入和计算导线节点参数；“CASIO数据参数”工作簿用于计算匝道的CASIO数据库子程序所需的参数；“中桩坐标”工作簿用于计算匝道中桩坐 标以便与设计文件对照检查。这个程序的使用，基本与我先前发布的“立交匝道中桩坐标计算EXCEL程序的使用”一致，只是多了一个生成“ CASIO数据参数”的功能。因此，请读者参阅“立交匝道中桩 坐标计算EXCEL程序的使用”日志。（链接地址：/595O77/blog/1238984950。第一步：在“节点”工作簿，输入起点节点数据和以后各节点的桩号、

25、半径、偏移等参 数，本例输入完成后的界面如下：AC1 EGHLJ.L*42匣ifai+M桩註盛 |有壷IMl诉34F&8PKO+QOO.07325.2915916.00826445*16.6*ZHK0+153.19401HYKO+225.194200YHkO+342.1斗12007HZK0+426.6410E9ZH0HYK0+799.7&2901011YHK0+939.358902.7SHYK1+000.6086012YHKl-t-0S4.2516Q1314GQK1+170-6510EPK1219.223-9&0.S&第二步：点击“参数计算”按钮，程序即可计算出各节点的XY坐标、切线方位角、缓

26、曲参数（若本节点与上一节点组成的线元为缓和曲线）等参数，这些参数是与设计图表相 关参数进行对照检查的重要数据，这一步，可能无法一次性计算准确，需要多次检查、更正 原始输入参数（即第一步输入的参数）。CEGHIJL1aEi+a|2冇扁XdMBQttswt 1MM 138PKO+OQO.07325,291S916.008264M5-16.6*42H打731UM5763.45626445P1G，6*5 1HYK0+22S,142007309.0175691.5&S27S04J04.3*120.6YHKQ+342+14i20073S 1.867504吕隔300034-14,5*7HZKO+426.64

27、107413.1635526.667:tMPClTEkCr130,8 IZHKO+680.&4107GIS.85SS360.630szomos.o*gHYK0+799,752勺07712.6S7S310.D62356a2*?JL8100.inYHgo2.7S7B0S.3G65392.119B4*5S*05.Z*111HYKl+OOO.fiO0eo7787.797544B.7393339 33.5*105.丄竝YHK1+084.25X607711.245S4S7.3312133156.T13GQK1+170.6510，7670.438539X423254*47*07*72714EPKl+219.

28、223960.5S76S7.296幻并,6&42530*123*210.第三步：若计算出的各节点参数无误，一般也没有问题了，但为了保险起见，还可点击 “桩号生成”按钮，批量生成桩号，并计算其坐标，与设计文件的逐桩坐标进行对照检查。ACDE1I 鑽借|2施族J3aK0+000 7325.2915915.008264W吊&4aK0+002.732S. 1085914.016264。4516.6”5aKQ+004.7324.9255912.0252 占4 W15.563K0+006.7324.7425910.0337aK0+008.7324.5605908.04226445J16*6*8aK0+01

29、07324.3775906.05026445f16.&，z93K0+012.7324.1945904.0S82644S/16f6w10aK0+014*7324.0115902.06726445f16.6ff11aK0+016.7323,8285900.075264。45&12aK0+018.7323.645589B.08325445,16,6*13aK0+020.7323.4635896.09226445f16.614aK0+022.7323.280S84.1002644S#16,6*1只aK0+Q24.7323.0975892-10926 斗心N 4节点丄匚克10数据参数星桩坐标 V第四步：

30、若第三步检查无误，即可进入“ CASIO数据参数”工作簿，点击“参数计算” 按钮，即可计算出数据库子程序所需的各线元参数。hBEF GHI JE11厂i .昨计算ttK*pwQA6$g芬昼MM BfUlMat BI13M752J)MatB: Return: IfLnd*1线元数据7If P939.358: Then |7712Z88. 5310.063, 356 02 32J5fl , 190, 19(X *799.752,939358 Mat E: Return: IfEikd#线元W数据8If P1000j6O8: Thai (7805-S07, 539241Q 84 55 053 , 1

31、-90, l60, 939358,1000.60g| Mai B:Retirn:IfEnd线元wa-8数振gIf P10S4J51s Then 7787.798,5448,740, 133 39 33AC ,14-6(X14-60, 1000.608.10S4251JP Mat B: Rttum: IfEndf1线元制-9数据10If Ptl70.65i! That 1771146, 5457332, 213 31 58.2e , 160, 0. 10S4.251,117051 -* Mat B: Rttum: IfEnd*1线元怙nr数据11If Pni9t223i Then (767043

32、9, 5383.423, 254* 47 0Mc , 0, -IF 960.55,117051, 1219223J * Mat B; Rrtum: IIEnd*1线元“恥数据12Cb: Locate 6,2, TiP OEThJ若输人的桩号不在匝道竟围内, 则提示警吉立交匝道中边桩坐标放样正反韓丘一一匝道数据库子趕序（b匝道人RAMP - DAT行号程 序说明17.416: Then (76S4.&36,58M.056,1669 51 11J3000. 0,1L7.416HRetim: lfEntK12jrpZO7.762： Ihm |769S.640r 5746696 272 43 20.7

33、、1-3000. 1?3000. 117416.207.762i Mat B: Ektum; IfLndf1岂疣元抵42”3irr286X529: Bien (770L289, 565&53a 274 26 524 ,1 亍200,207,762, 2S6/291于 Mat H: Rennn: Iffln胆4If P臼44.060: Hicn 7713.215578.714, 25肝 29? 52MatBt Returnf IfEiiE481 Locate 6?2f KF OCT J若输入的柚 在匝道范匣 以噓示警告立交匝道中边桩坐标放样正反算程序.一一匝道数据库子程序9匝道）：RAMP-DA

34、T1-3行号程 序说明1HP勺 16610: Thai (7450.147. 55465. 320 40 28.7 t 0, 1100, Q116.644)11-* Mat B: Itetum: llEnd线元严械2If F226235: Then 7551378, 5450J4L 354Q 05 223 , 1-rlOU IF 100. U乐2262354MatB$ Return: IfEnd纟戋元c-2 ffig3If F29LQ35:Thm f7645J31. 5494.974, 56 52fl 57.6门三 WO专 50Q 226235t 291A35 Mat B: Return! I

35、fEnd1线元W蝴g4If F 359.994: Ihi fl7666JI9, 5555.662, 79 09 33.4 s1500t 1-r 500, 291.035,359594 J Mat Bs Rum: IfEnd*1线元叫V痂5If P439.994: Then Ff7675.185, 5624.070, 87c 03* 413, 1-F500. 0,359Mt 439594 今 Mat Be Return: IfEnd*1纟戋元它-宁痂6Cist Locate 6,1, TiP OUT4若输入的桩号不 在匝道范围內， 则提示警告立交匝道中边桩坐标放样正反算您一一匝道数据库子程序（d

36、匝道）：RAMP-DA1彳胃fl 序说明1IfP117479:Thcn 7448.41S 497738J, ST 57 27* ,117J75 * Mat Be Kfturrr UEnri溉9严2If P237277f Ihai |750841, 5077.780,576T Of 1-255,117.179,23777* MatB: Raum: KEndf13If F47L616: Bien f7562385, 51S4.95L 72 26 59.5 , 1-255* l-S-255, 237 J77, 47116-* MatB: Rum： KLndIfizt % 肿4If61-0219； Then 17527.874, 5408483, 12506c 12 , l-r25S 471,616, 61 J19|P MatB： RmnniElse Goto IsIEEnd线元W51 Locate 6.2. TtF OUT J若输入的柏 在匝道范匣 贝瞬示警告七、程序使用示例1 坐标正算示例计算任务：假设在导线点（2807544.340, 475613.014）上架设全站仪，试计算 MN互通