立交匝道坐標(biāo)放樣正反算casiofxp程序帶數(shù)據(jù)庫功能secret

1、立交匝道坐標(biāo)放樣正反算casi o-fx-p程序（帶數(shù)據(jù)庫功能）-secre t作者:日期：t築龍網(wǎng)zhulangxom立交匝道坐標(biāo)放樣正反算CASIO fx-5800P程序（帶數(shù)據(jù)庫功能）一、刖言應(yīng)網(wǎng)友西北狼（2 32471254）的要求,改寫了C ASIO f x-580 0 P計(jì)算與道路坐 標(biāo)放樣計(jì)算中立交匝道坐標(biāo)放樣計(jì)算程序。主要在原帶數(shù)據(jù)庫進(jìn)行立交匝道中 邊樁坐標(biāo)及放樣數(shù)據(jù)計(jì)算的基礎(chǔ)上，增加了坐標(biāo)反算功能。?改進(jìn)后的程序名稱為:立交匝道坐標(biāo)放樣正反算程序（帶數(shù)據(jù)庫功能），主要功能有：？1 .使用 立交匝道數(shù)據(jù)庫子程序，可將一個(gè)互通立交的若干條匝道寫入數(shù)據(jù)庫子程序，程序在計(jì)算時(shí)省卻了輸

2、入原始數(shù)據(jù)的麻煩；2?.坐標(biāo)正算方面，選擇匝道后，輸入 樁號(hào)即可進(jìn)行匝道的中、邊樁坐標(biāo)計(jì)算，若輸入了測(cè)站坐標(biāo)，還可同時(shí)計(jì)算全站儀 極坐標(biāo)放樣數(shù)據(jù)（撥角和平距）；3坐標(biāo)反算方面，選擇匝道后，輸入平面坐標(biāo)，即可計(jì)算對(duì)應(yīng)的樁號(hào)和距中距離 （含左右信息）。？?程序的特點(diǎn)：'1.使用線元積分法進(jìn)行中樁坐標(biāo)的正、 反算，程序代碼簡潔，便于閱讀和改寫； ?2 主程序通過調(diào)用數(shù)據(jù)庫子程序，省卻了使用時(shí)再輸入匝道參數(shù)的繁瑣；3 .使用數(shù)據(jù)庫子程序，換項(xiàng)目只需改寫數(shù)據(jù)庫子程序，程序通用性強(qiáng)。二、立交匝道示例項(xiàng)目基本資料 ？基本資料同CASI O f x- 58 OOP計(jì)算與道 路坐標(biāo)放樣計(jì)算第6章MN互通

3、式立交。這里摘取部分關(guān)鍵圖表資料如下 ：丄築龍網(wǎng)zhulong.corn呂£-i工二g,參見CASIO fMN互通式立交線位數(shù)據(jù)圖（由于圖片大小的限制，此處不清晰 x 5 8 0 0 P計(jì)算與道路坐標(biāo)放樣計(jì)算P1 6 2附錄2）主點(diǎn)坐標(biāo)表點(diǎn)亀樁號(hào)X C H )V ( E >HTHRt4243,£3l1KO7T5 3. ni4760»5,!lfl31丹28076903147汕7 L 554YHMR14 巧百 5)492S0?&85,7?5475S34,30?IP118O7S83- 077VSZJkOlfiGQMRI4*i«S.349280T6

4、S5.56747S104. 3SamlS0?68fi. OSS4?Sfrl7.6fl7HlWlll4+S2i.3491807686, 334罷芥9IPJ2807677.22475i<5<53a¥HMRK5*27$.On2807564, 86747SH5,9eS1F42S07540. 320475102.372HZm5U25,O3l2¥O748<516475019. 351ZHm6i-239, 5022S0T&3 0/16347434 3. 38T方ft A24$B 3卽 4S.3-M貸 2/11, r26胃 3召'IL r37r 珊 aya

5、7P 3屮 42.5*a硏n 4T曲*M廠 4y 2h“240"卯24鞘幻.護(hù)2%*。卯 SJ.S肥'対.叢*主點(diǎn)座標(biāo)表A璃樁號(hào)坐標(biāo)X U JY ( E BPBIO+OOO2»0769<83647586.056IPO2&叮陰2.2了54J5S17.4fcSHY&i(Hin,4i62a 0755,640斗恭？4亂鈉6】P13i07697. 7864i570L570»Yl&IMfl7,7t22S077O1.2fi9仲5"0m2»077Oj.23O4756,05. 6L9HVQ£ X2 貓"2

6、9JiDTHk 215475574,724IPJ2807721. 42647555 L 000*YH眈葉244. %02R07737. 15347552.757【門2R07747. 1664755 Hi. 290創(chuàng)吐姑射9”注53«fl7p.Ln647S44I463IPS2制特 ”7554IS45I9J5HTBt (1+457.4302Sfl7gO4. 3674?S4J5.BTS【PE28fl7BLl 3294754H-fiHEP町姑50h«72«078ll.3S6-I7539L65JzhulongrCam方位霄妝。5P 11.4*272。432機(jī)產(chǎn)272

7、6;曲2仇產(chǎn)鄧薩2® szr27 V 2$ 52. V加 av 51 L2r 52. 2302° 5702. r3W° 5 尸 02 薩310 5D' 4£, V310° G48. r2?2° 5V 23, 1*”2© 5V 21 r2&r 5 亍 OJ,薩eg a主點(diǎn)坐標(biāo)表A 冶樁 號(hào)坐掾1(H)r（ E）BPcro+ooG3WISL 14?47S504, USipa23O751t 407鐘別別* 279HVC£D+116.64D3S&7 55k $78*75451 Hi1FI230761

8、1 0367541556THCtO+236. 2352恥76聘* 431475494. ?74IP22807659, 397475SU. 3S4h¥Ctftt391.0352807666.19475555, 6421P33S&7fi7X 4H475SE9.SlYH口LG稻丹J”Z3&7675- 185475621.0701P4初 3475«.5). ?18EPC述 M 39,99#3aO7675t 021475704. 047主點(diǎn)坐標(biāo)表匝iU稱點(diǎn)塔«號(hào).-i標(biāo)X C科5Y * E )D匝遣RPntfl+ooo2SD744RHI5J74971 jn酣

9、DK&-H7.1 冷2flO7S(>e.G4247S071 MOIPO2S07SS0. 258fl?S146. 5SDHrDKW第秒7麗仏獅4T貞昭$1ipiI3W7600.43347JJ03, 255刃1DIC0+47J.6162SC7S27.B7STU08. 4fi2?2 12S07SOL IH廿討5l8EPDICOi-*10.31»m7439. 36L47SS03. 3J4也築龍綢zhulonyCoE«就資料FIlNftS龍阿32CP 4曠2乳嚴(yán) 對(duì)4” or 2k護(hù) 3£護(hù) &F 22* 貞 5貸北：衛(wèi)喬' G藥日:正 再廠T

10、麗$嚴(yán)UV 4】3'&嚴(yán)0屮斗1.M 町-3田42-5尸5滬5嚴(yán)2"5$ 5r 2V7嚴(yán)2護(hù)5丄67曠25"陰丘 訂晉0亍11." L2護(hù)0卅llE斗築龍網(wǎng)I 1 車 更也fe稱交點(diǎn)爭惶址« fl a ( (U+ g t R 切ft t m外距C E >(Ly/Ls)曲堀第ft< A )（ri）11 72 )（i換）【PQ31' 46*3r<K)715137,51?11 10537L nsIF1屮 I2f (JO曲.対7130帀4. &17冋r srird)盟訂UH燦伽IF32 嚴(yán)31" <

11、;L)9502 29. 02927. 211449, 4S1【P4r 3iq廠(C50. G JO帀山03315J3?人対2IPJi* aAMUJOm 7fi55.44116t>296.鬧e 1曲線表交克鍛號(hào)曲塩轉(zhuǎn)禽ft （ M半徑 t R )切S軽（T）外 踵（衛(wèi)）ft¥(Ly/Ls)(A 3(T1 >t I：)1P0lO* 1841-(IL)2牡0"73UOIP?33'a)20060.嗓116. 94SmIF OdTFOL)r''2亂 2S7:釉4耐84,5«0130IP33護(hù) 23 03'a)-H. iikiiiL

12、0&08礦廣侃9038,2513t. ai9139,砒IP548* 428*a)3譏師1 JO.534Ob 35Q1051P£75" 5254*(11)6050,33313.257ai 643IP741* 15 lO'(IL)3乩 3925.24606. 400721P£r K邛（3匕 3S 316.19i4S. 5722161111zhulong.coni11築龍網(wǎng) 一曲線表茂點(diǎn)號(hào)曲歧1 ft角半徑創(chuàng)ft根仃）外貶曲繪長曲窣農(nóng)厳a ( fl )(R JT1 )(Ti )(3 )(Ly/Ls)(A )IPO5"刃儷UR4® &a

13、mp;6170.850規(guī)rpi嚴(yán)A卅卿咖45. IH'O'. J40m 146mir 02* 39- RJSL0A41 28.0507S.«67130mIF nncrcit)20018'. 9152 97957.451IP'4嚴(yán) 5PS" (R>18, d 訊36, 78755.115105IFS1 嚴(yán) 57* 2J' CL)S¥. 0 畀19. 5?輪24JT3.imrr 367-CL)92.75Z3.O7i2. BI7曲線表-n交點(diǎn)髡號(hào)A巍義軸半程切a故cn外 鹿曲慢曲址# fta (p )4 ft )(T11 &

14、lt; 71)E )(Lr/L<3(A >jj* ir53'(R>7?. m1 40.1，8'5"砸IOSmcr 47*35-(R)UDiOfil. 03?17,153109. mC霾道m(xù)2 嚴(yán) 1&*3S*(R)35. 56J IIJ9.992仇艸90m嚴(yán) <4 or a)SOO&1.朝P4r 3FQia)26.6B31 5Jr3511【"300曲線表交盍編號(hào)皆線轉(zhuǎn)懈切甄歩外甌*踐扯曲1蛻參敗侃（& ）(R i(T1 1 ( T2 )C E >tLy/Ls)(A >IMir 29*32-(R)1

15、«&. 25HO” 399175D匝建I町即。3Q*1L'(II)ass1% 177兇 S ID 9B< J3SI刃15® 3A IT(時(shí)也529仏”3HS. 604LES三、立交匝道線元數(shù)據(jù)的整理？經(jīng)整理，匝道a、 b、c線元數(shù)據(jù)如下（d匝道和M R匝道略）。i£±i CZI類型銭元起冥點(diǎn) 樁導(dǎo)R或A轉(zhuǎn)線養(yǎng)起點(diǎn)坐標(biāo)Cm)切線方位角銭元度 t m)錢元起鑿 點(diǎn)半徑5)a-1直KO+O&0KO+155.194K='»X-2SO?325 2<>1Y=4755J6.MS264-収1氐鏟l£J

16、典Z3-i貳葉口3時(shí)KOh-225454A=U0右X=；S0jn_：S6Y=4757(SjJ5<S：4" 4 亍 1$ 背ga3KCH-ril&4KOS42.UIR=2C»右X=:!S0730P.017 Y=47?6S1.?9?273' 04(Wy116.947200200i-4KCRW.Ul KtMlWIA-150S=2SO；351.S6SA-4755SJ.56630S-卻 3S4.520033-5K片125641KIMS3.6；1K=X=；£0n413JS4Y75526fS6T5罰* 40'茁対2Sga或KMS9.641KCH-7

17、.75iA=IOG!右1 .X=2SO'6r5s56 Y=475j<SO：65132C*- J(r 戈.嚴(yán)P.111 11KP90錢芫 葵型第芫起疼點(diǎn) 樁號(hào)R或扎轉(zhuǎn) 向蛭元起點(diǎn)坐標(biāo) (mJ蟻元起點(diǎn) 切線方位角線云岳度Cm)銭元趨舞 £半経 (皿)a？圓KG+r卿巧2K(H-?39J5S冬彌右X<S07?12.tSSYM753'L0.fr63356- (KT 33 6139606WP0KC+«S.33SK1-KMM),»SA-105右X=2S0'7SOS07¥=4753?2 120S4-刃時(shí)y6L.2i90W4®

18、;HK 1+000.608 K1+OB4 2?!R=60右X=2S0?7sr?9SY=J754JSJ40133"曲菇一曠Sj.36060a-lCKIP 弭 hi Kl+L70.5i廿2右7；=；S0"?L124<J¥-75457.33；213- 3f 別T滋4eocoAllKl+170.631 Kl+?1 223A=;ie在X-2S0'7670.4j9Y二霽幻的豐JHF 4亍'OS S"48.572m550.55/<築龍網(wǎng)zhuiang.coni亠築龍網(wǎng)j 皮4 b匝道錶元數(shù)據(jù)麥編號(hào)嶷元 類型錢元起鏤點(diǎn) 樁號(hào)R或A轉(zhuǎn) 向譏元起

19、直坐標(biāo)Cia)絹元起點(diǎn) 切線方位甬錢元長度點(diǎn)半経Cm)K1邂KO-000 Ka-1H416A-330右X=S04.S3&Y=41丹站.旳&2竟jr Ilf112167OS：.45jOW2KCh-117.Jl6WOOO右X=JS0V69>64t>y=J?>746.e962?- 4丁 WT妁弭6SOWJ LUUV-J1Ka*207 7S2A=3右s-Mom:曲7*475656.50IIW M 5；.4JOOObJ凰反葉2昶腔9KOi-J 44.060R-：(X>右X-；SO7713.：15¥=475573524:se" 29 3工y200

20、;ood埠 Ka-S991S5A=105右Y=4I刃託打?qū)?02* 5? 口尹55.12?2帕OQ16援KA跑曲jKM；7.4J0A<5.5左X=：SO7771：；67M754S3.45：nc 54S.rSS.2453-?：75b.7Kf>t4J 7.450KO502.657K=P2.7d左3$0 伽.3旳Y75435S7?出丁 jr 23 r45 .：2"史.乃C匝道線元數(shù)據(jù)騙號(hào)類型鸚元起鏤點(diǎn) 柱號(hào)R咸A轉(zhuǎn) 時(shí)繼元起點(diǎn)坐標(biāo)< Hi)線元起點(diǎn) 切絨才位角銭無摂度 <血)錢元起豁<M)ol緩K'O+OOOK(Mi6A4OA=m右X-2S07450.

21、147YM755<U.4653；0"抑 2S.V*newW100圓K(M1664&KCH-：i6.2-3iR-IOO右XT如乃5 IRS7=45450.11巧丁 0亍22 3*1C9 刃 5100 JCOc-5K(b-；26.；35 KtX知翊心c右=2 307&45.431丫也巧¥乂歸456" j嚴(yán) 17.6*M.S10C：00c-lK(H291.03： K(H2眇眇1R=5X)右X<S07&t6.eiE>y-4?5555 6627'5- 09, 33.4*別筑500500C-?K葉3刃抄i KZd?曲A=；W右

22、X<aO7'675.1S5Y?5624.C'7Osr 巧-11J-30価M四、程序代碼斗築龍綱立交匝道坐標(biāo)戒樣正反S程睜一一主程序：RAMP-4行號(hào)程 序說明1IRgsFwsd基本設(shè)畳r «NSlhTS2 丫 rd坐標(biāo)正.gf畑輸入輸入1衰示 正算，輸入2褊溯JIfT=1: Then Goto 0: EIm Goto 4; ICEnd4LtolO<*5Kir7|l-5r?R輸入匝道代列"數(shù)字"分別康示a， k G &、IR匝道，存儲(chǔ)在變量R中6xspucrd輸入測(cè)站點(diǎn)坐探，xs»o時(shí)忽略7tbll<*SEpwd輸

23、入鑄計(jì)算的中樁樁號(hào)9Prog TUMP- DATA <*調(diào)用村應(yīng)的匝道數(shù)據(jù)庠子猩序10E-S'CjF- S-*LS 180+兀今、I：e-A>+2+C 今Nd11Frog MAMP- SVBr<*12MJF 丿1 :1 ?< :昱示X坐標(biāo)值13AT>="；G-J顯示Y坐標(biāo)值14BPJZ DMSJ顯示切線方位角15iru=0: Then Goto 3: EHc Folff- U,G- V): IlEnd計(jì)算極坐標(biāo)法參數(shù)16LbllrIf J<0: ThwJ+3M +j: UEntfdISA1-": J DMSd顯示極坐標(biāo)洙方位角19

24、Pt JI，顯示極坐標(biāo)法平距20LblJ<*21PIf H二0: Then Goto 1: IfFnd: ?D<*計(jì)算齡外一點(diǎn)坐標(biāo)22F+Da>»<2+H)->OJX坐標(biāo)23YB3 G+D«in(Z+H)今KdY坐標(biāo)24IfU=0; Thwi G«to3:ElM P«1(O- U. K- V)iIfEnd*計(jì)算極坐標(biāo)法放存奉數(shù)25Goto 2d26Lbl4&:5門R輸入匝道代W，數(shù)字2分別魅示岔 U & i MR匝道.存儲(chǔ)在交SR中28lbl5<*29Y7F；輸入躋錢外一點(diǎn)的坐標(biāo)3031LUL族3；Fr

25、os KAAIF- OATA調(diào)用梱應(yīng)的匝道數(shù)據(jù)庫子程序33Prog tlAMP- SVBl-#34<J- GKo»(£-90)- F)itn(Z-3；If Ak)>D)；>0.a<Ml: Then L+D + L； S+L + P; Goto & IfEiid<*<G-j + dQJ HK= z S+LPJjS*'D=*: DJtoto注:根據(jù)實(shí)際使用情況，在樁號(hào)反算時(shí)，若樁號(hào)比較大（匝道起始樁號(hào)一般為0）, 還是讓用戶輸入一個(gè)估算的對(duì)應(yīng)樁號(hào)為好，因此程序第29、30行分別改為（每行結(jié)尾處省略回車符）:29 行："

26、;X"? F: " Y"?G: "K"? P ?3 0 行:F I: G Jn. !'“立交匝道坐標(biāo)旅樣正反算程序一一積分計(jì)算子程職心卬一£四1趕序說明1E-C： P- S -LI lBO-5-Jt '*W： (B- A)-=-2-5-C計(jì)算中間歩數(shù)TL-TV+ / (toi(Qft. L)計(jì)算耳值十Jy+J (iuiCQ 4 M A + MNX-). 0. L) -*0計(jì)豹Y值4Q+MAL+ML"Z<f計(jì)算切線方述5IfZcO: THenZ+3 呂 0 -+2； IfEndJ'(Silf2&g

27、t;360; Tlwen Z- 36ftZ: Iftnrt*立交匝道坐標(biāo)啟樣正廈孵圧一一數(shù)據(jù)庫調(diào)用子程厚：gIPDATA趕 序說明1IfR=l; TlwnPreg RAMP- DATAlUEntt*IfR=2: Then Frog MAMF- DXTAl": IJEndf*很據(jù)匝道代碼，調(diào)用相應(yīng)的匝道數(shù)據(jù) 澤子稈序-nJIfR=J: Then Pre E MAMP- DATAJ : UtrulT4lfR=4： TlienProg ItAMP- nATXl"： Tffinil5lfR=5: Then Pre g RAMP- £>ATA5": lEni

28、l築龍網(wǎng)zhulang.coni立交匝道坐捺賄正反擁圧一一H匝道線元數(shù)據(jù)庫子程rp= RAAIPDATA1稈庫說明10 于 S: 153.194 E: I(p£e： Then 280732SJ91 W: 17?9ie.008T: 364"4丁 16,6- * Q: 0-* A: 0 -*6: Retu； IfEniK*線元數(shù)®2E- S： 225ayj'*E： irrL： Thenisoviusew： 4757e34?6-*y： 2ti4" 45' 16.6" +Q：O-> A； l-hlOO + BR+nim IHJld

29、線元數(shù)據(jù)3E+ S： 3.141 E： HPE： TfwJl?«0730!>.017-»W： J7丸夕1占芳#m75" 01* mj' -Qzl-S-m-* A:Return: IfEnd*議元嚴(yán)數(shù)站4E 今 S: 426.641 * E： IJ P 紅：rtiCTi iaO7351.SeS'* W: 17558466 "y： 30S" 54' ISJ" 4 Q;& 0$ 怛：It電timr Iffnd#績?cè)獢?shù)®5E* S： 6S£.6dt -* E； If F Me： Ttw

30、Ti iSO7415484W： 4755367 V; 320" 40" 2SJ° +Q;OIfEnJf*6E" S: 7W.7?2E; IfFE: Then 2S07et5i85ftW: 47jJMrf3I-*y； J20"40' 2SJ" +q：0'.< l-!-PO-*3: Return:線元S護(hù)數(shù)據(jù)7£- S:弓 E: IJF 僉j Ttwn2SO771J.(tSS-*W: 175310JOft3-*y： 356"02* 5i.6" * Q: 1*90 *.1： 14-90B:

31、 Retuik； IfLnil*j績?cè)狿嚴(yán)數(shù)據(jù) nSS： lOOO eOS-h； 1尸繭£：丁1陽712冒0了$俯靑«7刁胡：，丁希9忑 12(pY： 8J° SS" OS J"廿 3 1+90 才盒八+60 于 E;RrturnUfEnJ«J純?cè)癲時(shí)數(shù)據(jù)?E'* S： tOSiJ51*E： IfFE： Then J S07 7S7.79 S * W： 475148.740 Y： 133° 陽站護(hù)-*0； t+W* Al l-S-60 + B：RetujiE liEjnl<J嫌元怙尸數(shù)據(jù)10E-* 5:117

32、0.651 EiUPnilwil J SO77m4fi->W： 47547332" V： J13° 51* SJi£ + Q:* fl > B: Hetum IfEni*11E* S: 121S!J23*E; IfFE: Tltcn 237670?W*: 475383123'* V: 2 54°47" OS.實(shí) 今 Q：0孑 A： - 1-r960.55 * 0：BttumrlfETiil線元叫1廣數(shù)驚1;UP<0 OrP>E: Then Cli; Wtt 打 2, "Hr LRRQK"若輸人

33、的樁號(hào)不在 匝道范園內(nèi)1処停 止計(jì)宦15Stop： If創(chuàng)皿羊斗築龍綱J ： zhulongxom立袞匝道坐標(biāo)施樣正反篦後應(yīng)一一b匝道線無數(shù)據(jù)庫子程序，EGDMA2行號(hào)程序說明10* S: 1171617: If PE: THeTi 2 SO 7694,8 3ft * W： 4T5S64X)56 V: 266° St" 114- + Q:H-7C8J5-* A: 1-S-lMfl-* B: Retimi; IfEnJ'線芫叫4數(shù)據(jù)1t * S： JflTJtiJ-* E： ir PE： THen TS07695.6iO-*4757469fl-* Y： 272

34、6;43* 0.7" + Q: l-5-3OOO-*A:l-S-iO0«-* B； Return; IfEnd*戟元斂據(jù)3£* £: JSfc-tlp-* n： H p£e： Then ISO? 01 JSp-* W: 475656A30- V; 1X1° 2fi" t2 4°Q; l-3OOO-* 盤：l+iOO 于 B： REtum; IfEndd坡元呱聘埶據(jù)4E 孑 S： 34dJWfi扌 E: Tf Pr： THen 3S07 713J15-> W： 4帖界札7:7 Y; 5 弼° 29&q

35、uot;刃 J"Q；l-M00-* l-2ffVB：RcUHTC IIEn(l<*熾元叫彗數(shù)據(jù)5S：E： irPE： Ttien 2807 737.1?3 W： 475d2«.737-* Y：57* 02° + ： 1 + 2000 + B: R*tunV IIEjmI燼元產(chǎn)數(shù)據(jù)g£* &： 457J3O-* n H PThtn 2SO7771 Jis'* H； JTSi倉362# Vi 310" 5<r 45 3-Q:0-* A; - I-!-«.75* B: Return; IfEnd錢元'樂嚴(yán)

36、數(shù)據(jù)7S： 50J-65?* F: If Pr： Thtn lSO780'13d7 W*: 47f43=-S?5-> V; 11° 51° n.l"母 Q; -l-9aJ5-* A; - I 4-52.75 B: RetiiiTi= ffFnd'域元叫廣數(shù)據(jù)SIfP<0 rF>E: Then Cl»: Locate1, "KF ERKOR"J若輸入的粧號(hào)不隹 匝道范團(tuán)內(nèi)1則停止計(jì)爛9號(hào) top： If end d立交匝道坐標(biāo)故樣正反算程序一一欄匝道經(jīng)元數(shù)據(jù)庫子程序；RAW-Dd行號(hào)程序說明10* S:

37、If FE: Then 2SO 7450J47* W： lT?0-t465-* Y: 310"28.7-Q= 0- X: 1 +100 + »: Rftunr liEndT4E-* S； 226-135-* E： H P*? T血 1S0755137S-* H； 17545«_U1- Y； J54° 05* 21 J- + Q: 1-M00-* A: 1 -=-100 + B: Return; IfEiiil*線元數(shù)曙3E* S: 191.035-* E: If P E: Ihen 180761531 * W: 4了 5494.少？4扌程：=6°

38、; 57.6" + Q; 1-MOO14-500 *B: Return IfEnJ*4S： 559M94"*E： rf 尸百E： men 2S07666.319 W： 47 555?.662 "*'i'： 79° 05* «-+ Q: H-?00-* A： l-i-500-*B:RetDJ*n; IfUifl*線元-它-r數(shù)據(jù)5E-* &： 439.W4-* E： U PE： Then 2S07fi7S.lSS + W： 1" 5621.070> Yi S7" 03* -113°Q:

39、l-J-SflO-* X: O + B: R«tunY IfEiid讀元數(shù)菇dIfF<0 OrF>E: men CH: Locate 5. 2. TiF ERROKJ若輸入的杭號(hào)不在 匝道范圍內(nèi)1則停 止計(jì)算JStop: nend<*d匝道和MF匝道數(shù)據(jù)庫子程序略。？t築龍綢-專 Ehulongxom建料卞就就4«龍網(wǎng)數(shù)據(jù)庫格式說明: 備元起點(diǎn)樁唱十S：踐元終點(diǎn)樁號(hào)沖Er If P並¥ Then踐元起點(diǎn)X (N)坐標(biāo):沖申躅元起點(diǎn)YE坐標(biāo)r；戰(zhàn)元起點(diǎn)切線方位甫* Q；線元起點(diǎn)曲率 左轉(zhuǎn)為予A：踐元終點(diǎn)曲率【左轉(zhuǎn)為員)I孑B： ftetumt If

40、End五、程序變量清單立交匝道坐標(biāo)腋樣正反算程廈一一變量蓿單序號(hào)數(shù)學(xué)欖型fe.5S(M)P 計(jì)算器變量揄入(輸出3提示苻單儻說明1g兒呢Ym裟兀起點(diǎn)直的o J)坐標(biāo)r 丄孔Q0 W *線元起點(diǎn)A的切幾方位角1PudVBin線元起終點(diǎn)的曲率4£也S=E裟無起螺直.A . B的榜尋5匚莒XS. YSm側(cè)站蟲坐掠£1Cm線元長席7£Lu待菠點(diǎn)距銭元起/悵度SM. V銭元計(jì)篡中間變量PKPKPfa賂線上任一點(diǎn)的樁號(hào)10RRAMF? 1- 5匝適代碼11T卿?楓正、S®找臥正算T1磁g12XJ：F.GXP,ATin閒錢中點(diǎn)p的(XJ)坐標(biāo)15gZBP J *路線中

41、粧點(diǎn)p的切銭方位肅14J-JAlA I rf極坐掠法放祥參數(shù):方位角1?D.IDIm後坐標(biāo)法放存產(chǎn)數(shù):呼距1$£HD ANCLED $川路繍外一點(diǎn)的右轉(zhuǎn)角rDDm瞌袋外:饌中線的?£離ISO.KXB.YBm路踐外一點(diǎn)的坐標(biāo)六、計(jì)算流程示例1?.坐標(biāo)正算示例？計(jì)算任務(wù)：計(jì)算MN互通式立交c匝道K 0+31 5 .3中樁坐標(biāo)及切線方位角,以及該樁左側(cè)4 .5米、右側(cè)6米的邊樁坐標(biāo), 假設(shè)在導(dǎo)線點(diǎn)(28 0 7 544.340, 4 75613.01 4 )上架設(shè)全站儀，計(jì)算這三個(gè)點(diǎn)位 的極坐標(biāo)放樣數(shù)據(jù)。？?®用立交匝道坐標(biāo)放樣計(jì)算程序 RAM P-4的操作流程 見下表。使