5800程序編寫完整版

1、主點坐標(biāo)表立交匝道坐標(biāo)放樣正反算 CASIO fx-5800P程序（帶數(shù)據(jù)庫功能）圖MN互通式立交線位數(shù)據(jù)圖（由于圖片大小的限制，此處不清晰，參見CASIO fx-5800P計算與道路坐標(biāo)放樣計算 P162附錄2）匝遇名秫點4方位角X ( H )Y ( E )MRE1 遭 （主純）HTMRK4+291 S3L28O775X 1714 7tW55T 843244* 39* 4S. 2*IPO1&07494. »147S97L 554266m*YHMHI 卄555$49課0T闘5 ?3473831 302266& 26T LL 1*IP1nOVCKL 0774757&am

2、p;L 01£27嚴(yán) 3SJ 42.曽CQMRK4*6W. 5492S076S5.56747570+. 350271* 38* 42夕LP22X07488. 05 5475617. 697247* 43 29.6*HYNRK4+825. 5492帥伽4J4475574. 319ier * 29.P 1P3?K07*7J. 242475345.53034ff* 36* 57. rYHNRK5+J7J. 0?1Z?07 5t4, 8 舒47H5,240fr 36J 57.9*1P4lK0754a 12 0475102. 3722365 05f 環(huán).曠FZMRH5+425. 0S12807

3、4fi4,516475CW.351236D 05* 33.8ffZHMRC6+239, 5&22807 &30. 163474341 3«?主點坐標(biāo)表匝道名務(wù)點名樁號坐標(biāo)方位角X ( M )Y ( E )A版道BPALO+OOO2807325. 291475916. 008264。45' 16獷ZIIAK04153.1942807311. 286475763. 456264° 45' 16獷IPO2807306. 891475715. 576275° 0曠 04. 3*HYAKO" 2 5.1942807309. 0174

4、7S691.595275° 04' 04. 3*IP12807314. 335475631.632308° 34 15.2*YH人 KM42.14L2807351. 868475584.566308° 3" 15.2*IP22807369. 504475562.45032儼 40 28. VHZAKO4-426. 64128074訂 184475526.667320。40 28,7ZHAK葉688. 6412807615.856475360. 631320。n.vIP32807674.344475312.716356° 02* 326H

5、YAK0*7997522807712. 688475310. 063356。02z 32獷IP42807800. 729475303.97284。55' 05. rYHAKM39. 3582807808.546475391. 87784。55z 05. yIP52807808.878475426.650133° 39 336HYAKR000. 6082807787. 798475448. 740133。39 33獷IP62807753. 119475485. 082213。31' 582YIIAKH084.2512807711. 246475457. 332213&#

6、176; W 58.2'1P72807685.987475440.593254。4 08"GQAKl*i70. 6512807670.439475383.423254° 47r 08.1P82807661.941475352. 176253。20' 13.7*EPAK1719.2232807657. 29847S336.664匝遭名稱點名樁號坐標(biāo)方位角X ( H )Y ( E >BPBKO-t-OOO2807694. 836475864. 056266。5H 11.4" 272。43 20. V 272° 4丫 20. V 274。

7、26，S2.4" 27鏟 26，52. r 1W 29“ 52.19 286° TT 52. V 302° 5r 02. r 302° 5V 02. 4* 310° 50" 48. V 310° 50/ 48, r 292° 51z 21 V 292。SV 21 264° 55z 05. yIPO2807692. 275475X17.465HYBK(H117. 4162807695. 640475746.696IP12807697. 78647S70I.570YHBW207. 7622807701. 28

8、9475656.53。IP22807705. 250475605.619HY肌葉286,6292807713.215475578.724IP3280772L 426475551.000YHBK(k344. 0602807737. 153475526. 737IP42807747. 166475511.290GQ取0+399. 1852807771. 226475483.462IPS2807796. ?$5475453.935IIYBL(H457. 4302807804. 367475435.8751P62807813. 329475414.614EPBC(H502. 6572807811.28

9、6475391. 633匝譴名稱樁號坐標(biāo)方位角X ( N )Y ( E )C匝遭BPCKOOOO2807450. 147475504. 465320° 40# 28. VIPO2807511.407475454. 279354° W 22尹HYCKM16.64028075S1. 378475450. 141354° 05 22. 3*IP12807612.086475443. 85656° 52 57獷YHCI0+226.2352807645.431475494. 97456。52，57.6，IP22807659. 397475516. 38479。09

10、 33.4HYCK0*291. 0352807666.919475555. 66279。09 33."1P32807673.414475589. S8187° 03r 41.3*YIICKH359.9942807675. 185475624. 07087° 03r 41.3IP42807676.553475650.71891° 38r 42-5*EPCK0*439. 9942807675.021475704. 047主點坐標(biāo)表匝道名稱點名據(jù)號坐 X ( N )標(biāo)Y ( E )方位角D匝進(jìn)3?DK 0+0002807448.415474977. 38358

11、9 57, 27*58° 5 V 2r72° 26 59.6*72。26, 59.6*125° 06z 11.6"125。W 11.6*140° 4(r n. vZHDKO+117. 1792807508. 842475077.780IPO2807550. 250475146. 580HYDt0+237.1772807562. 3854751X4.952IP12807600.433475305. 255VHDtO*471. 6162807527. 875475408.482IP22807501. 1 18475446.548EPDK(H61O.

12、 2192807429. 361475505. 334曲線表西道名稱交點編號曲紅轉(zhuǎn)角4-徑切線長（T）辦距曲線長曲CC ( 0 >(R )(T1 )(T2 )(B)(Ly/Ls)(A)IPO21° 46分00715137.51811105271.719IP15° 12Z31B(R)4 3. 36786.704130304. 877（主域J1P23° 55T2(L)86. 68843. 3$3130351. 426IP327° 06 31-(L)950229.02927.218449.481IP44° 3W(L)50. 030100. 03

13、3150377. 492IP58° 203 (R)106. 78553. 441160296. 648曲線表匝道名特交慮編號曲線轉(zhuǎn)角半徑切線長(T)外距曲線長曲線參致a ( p )(R )(T1 )(T2 )(E )(Ly/Ls)(人)IPO1薩 18x 47* (R)48.08224. 07472120IP133。30T(T(R)20060.1998.863116.948IP212° 0620028.28756. 46684. 500B0IP335° TV 03*75.6093& 436L11.111100A匝譴IP488° 52T2(R)90

14、88.25136. 049139.606IPS48° 42 28(R)34. 66630. S3461. 25010$IP679° 52"0060九23318.25283. 643IP74P 15z10w(R)30. 30259. 24686.40072IP8r 26 V (L)32. 3&316. 19248. 572216曲線表克點軸號歯喪驥角 a ( & )+ ft(1 )切怪*外 JE C E )曲堂長 MLs)詞匪豹ft(A )(T1 )(T2 )1P05°莎國TO. 85011L 416330IH1* 43"300G

15、45.177幾340孔t 346IP2ir ft護(hù) noU 0642$. 0507S,SST130JP3i牡訃麗200也91$2+fl7957 JI1IM嚴(yán)5¥鑒1SMW34.787心1051FS1.7* 59*25' 0)39. 433HL3W58,24573.5IP627* SSHT' O)也7S21 0723.82T4$.m曲 線表猊點擱號半輕切戰(zhàn)甚外距a (pi(R t T1 ) T?)(E )(Ly/Lj)(A JP033* 14*53*01)7?. 1?240. U511b. 640-"10!'IP1r.2- X V1 |R.IDO

16、71;1.03217, 1S3109. 59Sc®< -IP22r25 .血39. 992g BOD90IPS? $4w(»50G34,5351. 19148. WIPC 3501* (W2L6Bi53, 35190W曲線表文點編號宰橙切ft號(T)r外距也域長曲線琴戰(zhàn)比($ )(R )C T1 )(TI )(n .(< m13* 29WOOM.W4 亂 213l；孫175能邃1mJ2* 39f Hf (R)2 55126. n?29.509lit 33Sipf15° Mll'OO46*5 曲92t 763L18.6041&8三、立交匝

17、道線元數(shù)據(jù)的整理經(jīng)整理，匝道 a b、c線元數(shù)據(jù)如下(d匝道和MF匝道略)a匝道綻元數(shù)據(jù)表編目s線元起終點 樁號R或A轉(zhuǎn)向線元起點坐標(biāo)Cm)線元起點 切線方位角線元長度 (m.)線元起終 點半徑(B1)a-1直KO+OOO K04-153.194R=8X-2S07325.291Y-475916.00S264- 45z 6.153.19488a-2緩KO153.194KCR225.194A-120右X=2S0311.2S6 Y=475 763.456264° 4亍 16.6"7282002-3KO225.194KO342.141R=200右X=2SO73O9.Or¥

18、=475691.595275- 04" 04.3"116.947200200a-4緩KO342.141KO426.641A=130右X-2SO7351.868Y-4755S4.56630SB 3羊 15S4.52008a-5直KCR426.641KO688.641R=8X-2807413.184Y-475 526.667320" 40 28.7*262882-6緩KO688.641 KO799.752A=100右X=2807615.856¥=475360.631320° 40z 28.7*111.111890編號線元 類型線元起終點樁號R或A轉(zhuǎn)

19、 向線元起點坐標(biāo)(m)線元起點 切線方位角線元長度Cm)線無起終 點半徑(m.)a-7圓KO+7W.752KO+939.338R-90右X=2S07712.68S¥=475310.063356° 02z 32.6*139.6069090a-S緩KO+939.358K1+000.608A-105右X=2S0805.807¥=475392.12084- 55z 05.3"61259060a-9圓K 1+000.608 K1+O84.251R-60右X=2S077S7.798¥=475448540133 39 33.6"83.6436060

20、2-10K 1+084.251K1+17O.651A=72右X=2807711.246Y-475457.332213* 31z 5S2*S6.4608241K1+17O.651K1+219.223AW16左X-2807670.439Y=4753S3423254° 47 08.8*8WO.55t匝道線元數(shù)據(jù)專編號類型戦元起繆點 樁號R感扎轉(zhuǎn)幾元起直坐標(biāo)繼無起點 切錢方位甬ifeEfe 度5)妹元起轉(zhuǎn) 點.半栓Cm)邂KCHXM)K 葉 117.416A-330右X=2$Q?的4一$酚Y=J7jS64.05&2W 51f Hf137-11670S.45SOWK(-l 17416K

21、O-207J62R=3fr00右X=2S0769J.6K>Y7S746.®)S272- 43f 20l7"0034630003000b-3K04-207.762K>-2S6.625A=130右X-2S07012»Y-M75tfJfi,530謝 S2.4ff?8W3000LOOKO2S 6.625KQr 3 44.060R-：00右X-2S07713215Y=175rS.72428G" 29f 了2431200200Eft+344g£0399,135A=105右X=2S07737133Y=475526J17302* 37fS3 123

22、200w援KjW4S；KM5 7.450A=73.5左亡】機飛二&Y-475-IS3.J5：310" 50f 4SJ"5S.245QO-91750KMj 7.450 KO+W.(557R=2.?5X<SO"S04.36'Y-475433.S75?92- 5lf 23.T45.22792.7592.75C匝道線元數(shù)據(jù)表編號線元 類型點樁號R前A轉(zhuǎn)綏元起點坐標(biāo) (HL)蟻元起點 切戟才位角緒趙度< m)錢元起豁 點半徑(M)>1KOKJOOKD+116.64OA=1Q8右X-18074JOJ47T=4 7 5 504.46532Q-

23、40 28.7*11.64W100c-2KD+116.*4OW226235R-100右XSO7551.3TSY#39; 0Sf 22.3*109.53510010Cc-3W226.235K0+291.035右X=2 807&45.431YT貿(mào)以jg皿56' 5T 37j6*M.9ioe500c-4K4H291.O35K0+B5&.W4R=5«右X=2S07&66.91?Y-45555te22 W 33.4*6S.56500500c-5K0+359 994K0+43&M4A=200右X-78O7673.185T47562

24、40T03" 0薩 il.3*30500W四、程序代碼立交匝道坐標(biāo)放樣正反算程序一一主程厚：RAMP-4行號程 序說明1基本設(shè)畳ZSlTS2TTd坐標(biāo)正、反篦代瑪輸入輸入1表示正算，輸入2蘇煎今 JIfT = l; Then Goto 0: Else Goto 4: IfEndd4LblO15KMFVIl-SrVR輸入匝道代碼數(shù)字Id分別表示“ lx c. ck AIR匝道，存儲在變量R中6xs ?u：、y ?vd輸入測站點坐標(biāo)，XSS時忽略7LblldS輸入待計算的中樁樁號9Prog RAMP- DATA X1調(diào)用相應(yīng)的匝道數(shù)據(jù)庫子程序10E- S4C；P- S4L8 180+兀

25、9|；(b-A)+2+C->N<111Frog KAMP- SUBl f112XP-n:FJ顯示X坐標(biāo)值13YP=:GJ顯示Y坐標(biāo)值14MBP=I: Z DMSJ顯示切線方位角15IfU=0: Then Goto3:El»e Folff- U、G一 V): HEndQ計算極坐標(biāo)法參數(shù)16LbZ17If J<0: ThtnJ+360 J; MEndV18W" DMSd顯示極坐標(biāo)法方位角19顯示極坐標(biāo)法平距20Lb咲21DANGLE TH: If H=0: Then Goto l:IfEnd: ?D*計算蹄銭外一.點坐標(biāo)22XB= *: F +DcoHZ+H)

26、4OJX坐標(biāo)23": G+D»in(Z-frH)->KJY坐標(biāo)24IfU=0: Then Goto3:El»e Fol(O- U.K- V)：nEndV計算極坐標(biāo)法放祥盞數(shù)25Goto 226U)Z27K4MP? 1- 5?R©輸入匝道代碼數(shù)字15分別表示備 b> Cs ds AIR匝道'存儲花變星R中28Lbl529£?F; "TTG#輸入躋線外一點的坐標(biāo)30F 41: G *J: 0 *P<*31Lbisf132Frog RAMP- E>iT4調(diào)用相應(yīng)的匝道數(shù)聒庫子程序33Prog'RAMP

27、- EVBT &34Q" G3co«Z90)-(I- FJlbKZ-35IfThwi L+D + !_： S4-L 4 F: Goto 6;IfEnri*36<G-W*DrK=!3S"D=：DJGoto 5注：根據(jù)實際使用情況，在樁號反算時，若樁號比較大（匝道起始樁號 一般為0）,還是讓用戶輸入一個估算的對應(yīng)樁號為好，因此程序第29、30行分別改為（每行結(jié)尾處省略回車符）：29 行："X"?F: "Y"?G: "K"?P30 行：F I: G J立交匝道坐標(biāo)旅樣正反算程序一一積分計算子程序：

28、RAM S四1行號程序說明1E- S C: P- S -*L： 180-!-Ji -*M= (B- 4)-!-2-S-C *曲也計算中間參數(shù)JbW+ J+M4X +MXX-K計算X値JY+J(*U1(Q+MAX+MM-)?O,L)計算Y値4Q + MAl+MZ1計算切錨方位角5IfZ<G: Thtn.Z+360 -*Zi IfEd*16lfi>360! I Lem Z36ftZ: IfEnrl*方交匝道坐標(biāo)腋樣正反算程呼一一數(shù)據(jù)庫調(diào)用子程序：HAXfP-DATA行號程 序慌明1irR=l: TlitnPros RAMP- D血TA： IlEruiTrIfR=2: TlwnFrog

29、HAMP- D4TA2? IfEiutT很據(jù)匝道代碼， 庫子棵序調(diào)用相應(yīng)的匝道數(shù)據(jù)*»3IfR=3: Then Frog RAMF-DATXTHfErulPdIfR=J! TlienFrog MAMF- DATA1 ! TfEnti5IfR=5: ThenPrtg HAMP- DiTAi : IfEntl立交匝道坐標(biāo)放樣正反篦冊一一a匝道線元數(shù)據(jù)庫子程用：RAMPDATA1行號程 序說明10-» S! 153.194-> E! If PE： TZn 280732S J91W: 475916.008 Y: 264°45B 16.6B * Q: 0-> A

30、: 0 -»B: Return: IfEncK1線元“2-1"數(shù)據(jù)XL S: 225.194 F If FE: Then 2807311J86-* W: 4757634561: 264°45* 16.6° * Q: 0-> A: l-MOO * B: Retunu IfEnd1銭元“門”數(shù)據(jù)3E-> S! 342.141 E： MPfe Then 2807309.017 AV: 47569195-»Y： 275BOf 013" * Q: 14-200-> A: l-J-200* B: Return: IfEnd線元3

31、"數(shù)捋4E4 S： 426.641 4 E: If FE: Then 2807351.868 4 W: 475584 66 4 Y: 308" 34" 15J° * Q: l-i-2004 A: 0 B: Return: Iffindf1線元y數(shù)據(jù)5£今 9: 69S.641 E: If T E: Then 280 7413.194 W: 47552<；Z67 Y: 320°40° 28.7° > Q: 0 A: 0 ->B: Return: IfEncK1線元“邛”數(shù)站6E4 S; 75>

32、5>.7?24E: IIFE: Then 2S07615.8564 W; 47?3«0j631 4Y: 320" 40* 2$.7b +Q:04 A; 1+9Q b： Return:線元怙6"數(shù)據(jù)7L S： 939358->E: If PE： Then 2807712.688 AV： 4753 1 0J063 -> Y: 356°02* 32.6B + Q: 1H-90 +.4: l-b90-> B: Return: IfEndf1線元S7”數(shù)據(jù)8E"* S： 1000.608 E： If FE: Tlien 28078

33、05.807 W: 475392.120 A ： 84° 053° Q: 1+90A! l-e-60 * B: Return: IlEnd線元v數(shù)據(jù)9E 今 S: 1081J51 *E: IfP <E: Then 2 807787.798 * W: 47S448.740-> Y: 133° 39° 33.6° -» Q: i-5-60 » Aj l-!-60 * B: Return: IIEncK1線元“*9”數(shù)據(jù)10E 今 S: 1170.651 * E: If F Ce； Then 2807711246 4

34、W: 47&157J32 4 Y: 213° 31° 58N，4 Q: 1-5-60 4 A: 0 * B: Return: IfEnd1線元“a-10”數(shù)據(jù)11E-* S! 1219J23 E: IfP Me： Then 280767039 + Wi 475Sg323 Y: 254°47" O8.S° "* Q: 0"*A: - 1-4-960.55 B: Retunu IfTiid線元Fl”數(shù)據(jù)12IfF<0 OrF>E: Then Cl»: Locate 5,2. TIP ERROR：若輸

35、入的粧號不在 匝道范圍內(nèi)1則停 止計算13Stop: Ifend立交匝道坐標(biāo)旅樣正反篦駅b匝道線元數(shù)據(jù)庫子程序，ZIPD.4行號程序說明10-* S:If PE: TheTi 2so7694.83ft->W:Y: 2M°51' 11"+ Q: 1 + 7CBU5 * A: 1+300A -* B: Return: IfEnd踐元叫"數(shù)據(jù)2f* S： 207_7W* E： If PE： Then 2S07 695.61D-*475746.6S« Y： 172°A3'丄OF * Q: 1 + 3000*_4:14-3MHJ-*

36、 B: Return: IfEnd*1線元徽據(jù)3E"* &: 2Sfc.6JP Ei If PE: I hen 2807l： 47S6.530 Y: 274°16 j2Jn + Q: 1-3000 A： 1H-2OO B; Renmi: IfEnd坡元呱聘數(shù)據(jù)4E-* S： S44.Mfi-* E: Tf PE: Thtn 1S07W: J755TS.7J4-> Y; 2 Mn2?' S1J" 4Q；1H-2«O-*A; l-MdOBzRcOMTU IIEjkI熾無叫¥數(shù)搖5E* S： 359.183 L： If rC：

37、TTttFl 2807 737453 W： 475aie>737-* Y： 32° 57p 02 J" + Q： H-200-* A： 0 + B： Kttunt IIEjmI錢元產(chǎn)議據(jù)f* &： 4530 Ei If PE! I2SO7 771J26-* Hi 47548JU62310°50* 433' -*Q:0_>A: - l-S-M.TSBiR+timuIfEnd銭元'恨們褻據(jù)75: $0九材* E: If P紅：Then 280780437 XV: 4料甜占-普祐V:丄疊T5tD n Jn + Q： -扣 一 14仝丄

38、.7占夕 B: RetumrtfEiul*線元叫嚴(yán)數(shù)據(jù)SHF<0 OfF>E: Tlten Clt: Locate 5h J? TiF ERROR' J若輸入的粧號不隹 匝道范團(tuán)內(nèi) > 則停 止計亙9Stop: If end立交匝道坐標(biāo)護(hù)樣正辰算程序一一亡匝道純元數(shù)據(jù)庫子程序；RAiP-DAI行號程序說明10-*S: l16+6-10->r： IfThem J#0 7450447 * W：山丁亦壬 320°JO" 28-7" * Q:D A: 1+100+ B:R*tuni: IlErid線元 «c-l»

39、87;£r X匚專 3： 226J35-* E： If P& Ihn 1S07 551J7&-*475450.141 Y： 354" 05* 123" * Q: l-FlOtt A: 1 -MOG + B: Return: IfEiiil線元92"數(shù)露3C*S: JSl.ttSS-* E: If P Me： I hen 2 80 615 J31 * W: 4"Y: 56°?JC 刃用+ Q:1H-1OO-* A: 1 4-sOO-*B: Return: IfEnJ1線元怙胛數(shù)據(jù)4E4S：號N.95M今 E： If F

40、&： IHen 2S06«.?l9 + W： 4 "55?>.66Z 4 Y： 79°D334" 4 Q： 1 + 500 4 A： 14-500 4 B： Return： lfEJld*1統(tǒng)元數(shù)據(jù)j匚-* &： 4J9.W4-* Ei U P E! Ih*n lS07fi75.1RS + W! i" 5621.070 1! S7' 05* 413"Q:Aj 0 R- R«tunv IfEnd 甲強元論y數(shù)菇6IfP<0 OrF>E; Then Clt: Locate 耳 4 &qu

41、ot;K尸 ERRORS若輸人的樁號不在 匝道范圍內(nèi)則停 止計亙"1iStop:d匝道和MR匝道數(shù)據(jù)庫子程序略。數(shù)據(jù)庫格式說明；線元起點樁時卡S!踐元終點梔割E*IfP<E! Then踐元起點X （N）坐標(biāo)|峠W!線元起點Y拄）劇"Y；戰(zhàn)元起點切線方畫十Q；鶴元起點曲率（左轉(zhuǎn)為負(fù)）卜Ai 線元終點曲率C左轉(zhuǎn)為卸 夕BJ ftetumi IfEnd五、程序變量清單玄匝道坐標(biāo)啟樣正辰期脈變葩單序晉數(shù)學(xué)欖型fe-58(WP計算器變量輸輸出J提示苻說明1U： YJU韁元起點A的工J )坐標(biāo)2Q線元起點A的切戟方怔角PaPsA;Bin袋元起終點的曲率4K盡-1 -ASZEJU集

42、元缺點丄B的椅曇5U, VXS、YSm瀏站蟲坐掠6TCm翳元民度7<L符求點距続兀起魚長度8張荒計筐中間變量0K!PKP功.瑤線上任一點的梶號10RRAMPl-5匝適代碼1T正、顯找臥正算卜打融“123F=GXP, YF路復(fù)中樁點P的(鼠門生標(biāo)13zBP賂蟻中怪旦P的切線方位埔JAlD J 聆機坐様法放樣參數(shù)；方位角15XDIm餐坐標(biāo)法放祥參數(shù)；平距16HDANGLE略銭外一點的右脅第廠dDD略鐵外匸麟.中銭酌距嵩1S忑J；O:1Cxbt ybin踴連外一點的坐標(biāo)六、計算流程示例1.坐標(biāo)正算示例計算任務(wù)：計算MN互通式立交c匝道K0+315.3中樁坐標(biāo)及切線方位角,以及該樁左側(cè)4.5米、

43、右側(cè)6米的邊樁坐標(biāo)，假設(shè)在導(dǎo)線點(2807544.340, 475613.014 )上架設(shè)全站儀，計算這三個點位的極坐標(biāo)放樣數(shù)據(jù)。使用立交匝道坐標(biāo)敢樣正反期跟RAAIP-4計算c匝道中辺樁坐標(biāo)矗啟樣較據(jù)步驟顯不畫面按鍵操作說明1zsnirsp! xxxti|輸入1義示進(jìn)行坐標(biāo)正宜£rRAMP? 1- 5J? X X XaQ輜入二匝道代碼“外XS* xxx7冊期4仝；輸入測站點X坐標(biāo)1¥S? XXX475=613.014!輸入測鮎點y坐每5KF?寓找X：J梵丄叵弓輸入特求的樁號CKQ-3E36KP=2S07670.903怪xc|SCKM15.3的乂 Y坐標(biāo)計算箱果7YP=47

44、55"9_5S5回SHF=£" 5«'2345顯示CKM ：；.：的切嵋方位莓計算結(jié)果9Al=J45n 1331J7顯示CKOS 113祖坐際戲糕彖直計算皓杲1001=130.901屈11DANGIT? XXX9*11輜入輙Z砂右轉(zhuǎn)第值，以便計算中錢外 亠點的坐標(biāo)12D? X X X-乩會國輸入左側(cè)距須4 ?米i血值表示在左測固顯示CKO3113左測4 5米邊樁的X. Y坐標(biāo) 計算箔果14YB-47557S.*6J應(yīng)115畫顯示CKMI3 2左測心米邊樁極坐標(biāo)戰(zhàn)樣數(shù) 菇計算菇果16Dl=13537117DANGLE? XXX9回輸入蟲轍曲的右轉(zhuǎn)対

45、值,MIi+煙中瀏卜 點曲座賒ISDT X x X輸入右側(cè)距離e米f正信表示在右側(cè)畫JE CK0-S15 J右仙6米邊越的X. Y坐標(biāo) 計算結(jié)果YB=4755S0J37Al =344" 53'10JS-01顯示CKO315.3右仙6米邊怕?lián)Q坐標(biāo)放樣數(shù) 據(jù)計負(fù)結(jié)果01=134.91423DANG1T* XXX斗國輸入輙Z的右轉(zhuǎn)角值苦輔入°則表嚇 不計算并跳出邊旌計算24KF? y X XH»1計直下-個中樁，按兩次匚鍵可退出計直注：第22行D1計算結(jié)果應(yīng)為：124.9442.坐標(biāo)反算示例計算任務(wù)：根據(jù)上面計算的 c匝道K0+315.3中樁坐標(biāo)，以及該樁左側(cè)4

46、.5米、右側(cè)6米的邊樁坐標(biāo)計算結(jié)果，反算對應(yīng)的c匝道樁號及距中距離，并進(jìn)行結(jié)果的驗證。使用立交匝道坐標(biāo)放樣計算程序 RAMF4的操作流程見下表使用立交匝道坐標(biāo)肢樣正反算程圧RAMP-4尿星c匝道中粧和距離計算操作流程步驟顯可;回面按鍵撫作說明1Z$1JS2? XXX2回輸入2表示進(jìn)行坐獗翼2RAMF7I1-SJ? XXX3畫輸入。匝道代碼一一 “3”3X? X XX2807670.903 叵)輸入鶴篡的£ Y坐標(biāo)4Y? X X X475579.595 ()5K=315300顯示對應(yīng)的樁號及距中距離，結(jié)果正確6D=0.000回7X? X XX2807675358 國輸入翹篡的久Y坐標(biāo)8

47、Y? X X X47557S.964®9K315300回顯示對匝的粧召及距中距離，結(jié)果正確10D = - 4.500回11X? X XX2807664.962 叵)輸入待頭的弘Y坐標(biāo)12Y? X X X475580137(1)13K=315300回顯示對應(yīng)的樁號及距中距離，結(jié)果正確14D-6.000E315X? X XX計算下1個，按兩次匚鍵可退岀計算道路中邊樁坐標(biāo)放樣正反算程序R0AD-2 （0908改進(jìn)版）1 主程序清單：ROAD 2諸路坐標(biāo)肢樣勰存（主禪序h ROAD-2行號程序說陰1Deg： Fix JslO+DbnZ*12KO'TPltfPO: nien輸入與型中曲

48、用于交點數(shù)幗定位'若KX0,叫手工輸入交點數(shù)惟3Frtg HOAD- DA1A1 P調(diào)用吏點數(shù)誓子程序此處子程字名 為"ROAD-DATAlI ” .若零調(diào)月帛 Y 益烙的交點數(shù)茂子程序則克寫寺號 中的子程序名稱4MslK: £>t A|iaj Xi Alai -MU 11 MitAJ1414M： Mat 411,51*4: MatR: Mat 4(t,7+B:MatAM |4 C: MXAril *Q: MatAl,l 0|將交叵數(shù)曲賦信緒相關(guān)變量（秦見取?iih K<jDr*K； ,x(jd>"?s； Timyrt TF?M; XT*

49、?At ?R; XS1KS'TQt "KEEt ItEndf1輸入査査數(shù)轄6- 1 +M: M + A + Xj VA + A*1判別路縫轉(zhuǎn)向計宜交點之后亙線段 萬陲角Proc KOAD- QW 5孵 孑穆序汁常曲抵罷素3主占樁是S1->O:Pkje ROAD-XS 41m 曲線要袁討算結(jié)題示呼程厚9ZSlj,fSpn'*ZI3Pl3)lG<jto3<,坐標(biāo)正”就鹽騙衛(wèi)"時1壷示 正出輸A ：菇卿W輸鞏舊辛點坐請11Lbll: "HF'TFt1輸八待計算甲磁12IfP>E OrP<iQ:Tren Clt: l&

50、#171;cnH 2, KF OLT' J若樁號在允許範(fàn)圍夕卜則警示13Ifelld：Fn)E JBOAD LXZB調(diào)用子程序計算道路中線坐標(biāo)14Lbl2:H=OG<jtol: ?D輻入右角及距翦 若若角対0則題回 樁號監(jiān)人15F+DcoKZ-bHjZIllHGtDiinCZH-HlZILl*1坐標(biāo)計算16poi(z(iii-v?zin-V)： koj+ssoj*1172+O;Pn)$ ROAD-XS"Goto24調(diào)用坐標(biāo)計苴結(jié)果顯示子梶序1SLblS: 7KS ?L: E'?A': KP *P Q坐標(biāo)戾直,鎰入蹲線外1.點的坐標(biāo)昨Lbl4; Ifl*&

51、gt;E OtP<Q; Thm C1k Locate 6.2, "KF OUT "J若粧號在允許箱圍夕卜則書芥20Ifend:FHJa ROAD-LAZE與調(diào)用子程序計算道路中鍍坐新21Z- POiJllI： 0 -(U-»* - -»*IfAb*(H)>0.0*1: Then P+h+p： Goto 4:1 fEjid73(G- V)+iii(疋甘 J243+0:Pn)s ROAD亠XS":伽to弓d調(diào)用坐捺腳結(jié)題示子輕孚2 子程序1清單：ROAD QXYS功能：計算非對稱型道路平曲線要素及主點樁號道路坐標(biāo)嵐樣計算程序f子程序1）： RO.AD-QTiYS行號程序說明B(4)-S-26£S-E-R (3) + 疋止彳計算凸2C"-i-24-i-R- CA<i)-2688-5-RA(3)*Z7|計算豆TiJB a(3)4-24<H-R-ZS計算®4C-S-J-計算業(yè)5ZIS) + <R+2'- (R+Z6Xo*(A)>-!-Hn<A)計算可6i9|4-CR+Z6j- («.4-Z計茸7：ftK金兀-S-1SO+(B +G)-2 孑i+KZSK-SZUJ*1計算ZH點樁號z