建筑路線坐標(biāo)放樣計(jì)算程序ROAD精品

1、道路坐標(biāo)&樣計(jì)算程序（主程序）；R0AD-1一、前言CASIO fx-580OP計(jì)算與道路坐標(biāo)放樣計(jì)算出版一年多，經(jīng)過測量實(shí)踐、 網(wǎng)友交流等途徑，對教材第五章中的路線坐標(biāo)放樣計(jì)算程序ROAD-1進(jìn)行了優(yōu)化，本次優(yōu)化是基于編程技術(shù)、程序精簡方面的，功能方面無任何變動。為了大家能理解，也為了共同提高編程水平，將本次改寫的要點(diǎn)羅列如下：1. 為了提高計(jì)算速度，在通過驗(yàn)證保證公路放樣計(jì)算精度的前提下，對曲 線要素計(jì)算的P、q參數(shù)計(jì)算公式均只取前兩項(xiàng)（原程序取前三項(xiàng)），對緩和曲線局部坐標(biāo)計(jì)算公式取前兩項(xiàng)（原程序取前三項(xiàng)），詳情參見日志“關(guān)于高速鐵路精密緩和曲線公式的質(zhì)疑”2. 部分簡單的邏輯判斷

2、語句不使用If-Then-Else-lfEnd的語句，而采用老的 邏輯判斷語句以簡化代碼，如原語句：1 LfO«>r Then -1 IfEnd:O 扌 A#改寫知1: 0<0>-1>W: WO 序A03. 對中線坐標(biāo)計(jì)算子程序做了進(jìn)一步優(yōu)化，使之更加簡潔；4. 曲線要素計(jì)算子程序刪除了外距 E、曲中QZ樁號的計(jì)算，因?yàn)檫@些參 數(shù)對中線坐標(biāo)計(jì)算無太多作用；5. 充分利用5800計(jì)算器新的Locate顯示定位函數(shù)，編寫了計(jì)算結(jié)果顯示 子程序，使計(jì)算結(jié)果能一次性全屏顯示，更加人性化，且簡化了操作；6. 通過設(shè)置相應(yīng)的右角及距離，將中樁坐標(biāo)與邊樁坐標(biāo)計(jì)算歸總到一起，

3、 使程序更加簡潔，操作更加簡單。、程序清單 道路坐標(biāo)放樣計(jì)算程序包括一個主程序和五個子程序。1.主程序清單：ROAD 1行號程序說明1DeE：rix3：10'* DimZ*基本設(shè)置與定文艦外變星r亠'X(JD)"?X; YCJD)"'7Y:輸入原始數(shù)據(jù)：平曲線交點(diǎn)坐標(biāo)及交 點(diǎn)之前直線段方直角WA A： "Pr'A： ?R TS1"?B： XS2"TCt 霊(11>)帕4輸入原始數(shù)據(jù):轉(zhuǎn)角（左轉(zhuǎn)為15 X曲 袋半徑、緩和曲線長度、交點(diǎn)樁號41-* w： A<o- 1-* w：M+A->y；nA-*

4、 A點(diǎn)判別路線轉(zhuǎn)向，計(jì)算交點(diǎn)之肓直線段 方位角5Prog ROAD- QX S 唧調(diào)用子程序計(jì)算曲線要素及主點(diǎn)樁號6Prog HOADX占調(diào)用曲線要素計(jì)算結(jié)果顯示子程序?*xs ?v： "vsYvd輸入測站點(diǎn)坐標(biāo)SLblO: "KP"?F輸入特計(jì)®中樁9Pros KOAD- LVZB"<*調(diào)用子程序計(jì)宦道路中坐標(biāo)10Lbll:90"*H: VJ ?H: H=&Goto 0:孚D輸入右角及距離，若右角為0則返回 樁號輸入11F+D<oHZ+H)-* Zlll：G+D»m<Z+ti)-*Zl2坐標(biāo)計(jì)算1

5、?FolCZll- V,Z11|-T-: j£0J+360 寺Prog KOAD-XSl14Goto 142 .子程序1清單：ROAD QXYS功能：計(jì)算非對稱型道路平曲線要素及主點(diǎn)樁號。道路坐標(biāo)fe樣計(jì)算程序（子程序1）： ROAD-QXS行號程序說明1B'-=-21-=-R- B *<!)-=-268S-=-R (3) 疋6V冷-1CH-24-i-R- C"Cn+M昭+K"C5)中可7|扌計(jì)負(fù)屁3B4-1- B"C3)-S-24O-R4C-S-2-C""i)4-240-S-R-'*Z(9|<*計(jì)算環(huán)：5

6、Z(S.1| + (R+Z|7J- (R+Z( 6 |)co i( A) -S- liiU A)計(jì)算I：6ZP1|+(R+ZI6- (R+Z7Dtoi(A)H-iin<A)計(jì)算匚1URA5t-J-lSO + (P + C)-!-2'*L<*計(jì)算£SL- BY y 點(diǎn)計(jì)算£9K- s-zri*計(jì)算ZH點(diǎn)樁號10ZE11+B'*Z21計(jì)算HY點(diǎn)樁號HZ1-hL- C 申 Z4<*計(jì)算YH點(diǎn)樁號12Z4+C*ZS1«*計(jì)算HZ點(diǎn)樁號3 .子程序2清單：ROAD LXZB 功能：計(jì)算道路中線坐標(biāo)。道路坐標(biāo)詼樣計(jì)算程序（子程序2）： ROA

7、D-LXZB行號程序說明1nPZll：Thcn<JZH點(diǎn)之前的直線段坐標(biāo)計(jì)負(fù)rY*G; P-K 性1*1： 0 (17p M 立口J: M 立：Goto 2; lIEnd*JP>Z4|Gfltol<*4X- Stoi(>n F:Siiii(M) f g4ZH點(diǎn)坐標(biāo)%_If p£疋門:Then 祇第一緩和段內(nèi)坐標(biāo)計(jì)算6F- Z1 L +Z114J： b+Z1?|: Prog 'ROAD XY、科壬1 7 +Zl7t；M+9OMT-5-(BRJi) Z; Goto J: I飯n胡lfPZJl；Tl»n*圓曲線段內(nèi)坐標(biāo)計(jì)算sP- Zril*D?0C

8、2L-兀9llun4Z 13J)+ZIS'*£« 1： WfRO - coMZmD)+2L6j) *Z(I7J: M+WZl；-*ZiGoto 2: ifEiidd10Ltol l:X+Tco*(N)-*r： Y+T*m(57HZ點(diǎn)坐標(biāo)11IfP<751：Thcn<J第二緩和段內(nèi)坐標(biāo)計(jì)算12ZE51-P-*U L '*Z141： C ZI151： P«e- Z(161 *Z(16t MZIlTpZIlTI：密兀)Z: Goto iIfEndR13F- Zr '£!61； fl 'Zll： XNHZ點(diǎn)之后的直線段

9、坐標(biāo)計(jì)算14Lbl2<*15y+Zl61toi<Zll31)-Zl71tinCZlJ)*r*坐標(biāo)轉(zhuǎn)換16G+ZI6»m(Zl3D+Zl7J«>»CZiJDG<J17Z<0>Z+J60'*Z： Z>0>Z- 360 */ 注：1. 因筆誤，第七行程序中的Z3請改為Z4，特在此說明，不再重傳程序 圖片了。2. 第17行筆誤，改為：Z<0= >Z+36（HZ:Z>360= >Z-360乙 （感謝網(wǎng)友 “沙漠中的海”指正）4 .子程序3清單：ROAD XY功能：計(jì)算緩和曲線上一點(diǎn)的局部坐標(biāo)。道

10、路坐標(biāo)放;樣計(jì)算程序（子程序3）: ROADXY行號程序說明1IfZl4=ft Then 0ZI6: 0書 Z17: tUed1Zn 4|-zi U e (5)-S-40-S-<RZll51)* + Zl 揚(yáng) WX坐標(biāo)rZ|141(l)-!-6-=-(RZ15l)-ZU(7)'=-i36-=-(KZ(13)P)i+Zfl71<*丫坐標(biāo)4IfEndd5 .子程序4清單：ROAD XS1 功能：顯示平曲線要素等計(jì)算結(jié)果。道路坐標(biāo)放樣計(jì)算程序（子程序4h R0AD-XS1行昌程序說明1Cti： "PQX RESULTS/: TJ = ' Locate £

11、; 1,駅血 R =": Local# 5,艮民Locate 4. KJ顯示主要原始數(shù)霽2CU: Tl=*: Locate 5, 1, S: 11=Locate £ 乙 T: 1=: Locate s, 3, Q： 1 三冷 Locite £ 4. LJ顯示曲錢要素計(jì)算結(jié)果Cl>： 'ZH= ': Locate 5, 1, ZflJ: m=': Locate 5, i, Z(l|: Locate 5, J, ZPJj "HZ=”: Locate 5,4, Z5P顯示主點(diǎn)樁務(wù)計(jì)葛結(jié)果ACli<*6 .子程序5清單：ROA

12、D XS2功能：顯示坐標(biāo)計(jì)算結(jié)果。道路坐標(biāo)啟樣計(jì)算S序（子程序5J： road-XS2行號程序說明1CIrFix 爭4r"X=": Locate 4, 1, 21:Locate 4, 2, Z1J: Fix 4:Locate 4 3, IlU(J>+0-01 lnt(60Fia<(J»+0JOMFme (60rnic(J)iFix3; D=:Locat* 4.43顯示坐標(biāo)計(jì)算結(jié)果-HJCM#、變量清單道路坐標(biāo)放樣計(jì)算程序變量清單見表。道路坐標(biāo)放樣計(jì)算程序變量港單序g數(shù)學(xué)模型 變量fa-58（X）P 計(jì)算器變量輸入（輸出）提示符單位說明1X,YX(JD)

13、, Y(JD)m交點(diǎn)的坐標(biāo)a J，）2X-1MFWJ/ MHZ點(diǎn)切線方位角，交點(diǎn)之前的直線段方位角34N/ JTZH點(diǎn)切點(diǎn)方位角，交點(diǎn)之后的直線段方位角4aAPJ/ M路線轉(zhuǎn)角，左偏為負(fù)值5W路線轉(zhuǎn)向符號 > 左偏W 1,右偏W-16KrKK(JD)m交點(diǎn)樁號，以數(shù)字輸入7RRRm曲線半徑S厶”厶：B.CLSLLS2m第一、第二緩和曲線長度9STTtT2m第一、第二切線長度10AQLYm圓曲線長度11LLLm平曲線長度12Z1Z2Z4Z5K(ZHXK(HY)K(yHXK(I辺m平曲錢的四個主點(diǎn)樁號，以數(shù)字表示13Z6LZrm值14ZS.Z9mg血值15u,vXS, YSm測站點(diǎn)坐標(biāo)16P

14、點(diǎn)樁號pKPm道路中線上任一點(diǎn)樁號17F.GmSS線中樁點(diǎn)P的坐標(biāo)1Sz賂線中樁點(diǎn)P的切線方位角190HYJ5S線外一點(diǎn)的右轉(zhuǎn)角20dDDm需線外:X鱷中線的距離21兀，耳Z11,ZI2KYmK銭坐標(biāo)計(jì)算結(jié)果22z(i3WZr坐標(biāo)計(jì)算臨時中間變量四、程序使用示例己知交點(diǎn)JD22的主要參數(shù)如下.交點(diǎn)(ID22)坐標(biāo)：X-373S6.996 m, 235,994m；交點(diǎn)樁號：K6+S72.905i交點(diǎn)之前直線段方位角：4=35211 19' ；轉(zhuǎn)角；a嚴(yán)席OOTIJ左轉(zhuǎn)！半徑：R - 300 m !緩和曲線長度！ G = 40m , G =60m ；路基半幅寬度，左右半幅均為3.75m!全

15、站儀測站坐標(biāo)：.Y,=37400.415m.扎=61251 一514 m.使用道路坐標(biāo)放樣計(jì)算程序ROAD - 1計(jì)算以下指標(biāo)：(1) JD22的平曲線要素；(2) 計(jì)算 K6+800、K6+820、K6+888.714、K6+960 四個中樁的坐標(biāo)及 全站儀極坐標(biāo)放樣數(shù)據(jù)；(3) 計(jì)算K6+800處的路面邊緣坐標(biāo)及全站儀極坐標(biāo)放樣數(shù)據(jù)。 計(jì)算程序的操作流程見下表。ROAD-1計(jì)算程序操作流程步驟顯示回面惣髏操作說明1XCJD)i? XXX373S6.996 國輸入JD22的區(qū)坐新4Y(JD)7 XXX輸入JD： Y坐標(biāo)EJ7 XXXJ靈匸日和日19曰回輸入交點(diǎn)后直線戦方位角4PJ? XXX-

16、1*1 -IfiftlTLe闊輸入EH的轉(zhuǎn)角值注意左偏為負(fù)值5R? X XX300輸入匾1抽線半徑值6LSI? XXXJO禍輸入策一緩和曲線檢度JII_S2? XXX60回輸入第二緩和曲銭氏度SK(JD)? XXX輸入JDH的榕號9PQX RESULTS； pj=- ig* o;ii7 R= 300.000 JD-6872.905顯示交點(diǎn)主要數(shù)據(jù)10T1=6SJ54 T2 = 76,694 iyJ4J64 L =144264顯示曲銭要素計(jì)算結(jié)果11ZH=6SO4>i51 H' = 6S44451 YH = 6S88.715HZ=6948.715畫顯示主點(diǎn)樁號計(jì)篡結(jié)果12XS? X

17、XX37400“國輸入測站點(diǎn)X坐標(biāo)13YS? XXX61251.5M 回輸入測站點(diǎn)Y坐標(biāo)14KP? XXX6800 回輸入待求的樁號W80015YJ? XXX90回輸入右角1611D? X X X0冋輸入距離，計(jì)算蟲飆砂17X=37314.767 Y=61245903 A=183U454D = 85.831畫顯示K6800坐標(biāo)及極坐標(biāo)計(jì)算結(jié)果(苴中A顯示為小數(shù)形式的角度 > 即183度 44分54秒)ISYJ? 90.000*1輸入右角19D?0.000J.75 回輸入右邊距離20X=37315.277Y=61249.61S A=1S1.1635DM5.159顯示K6-800右邊樁坐標(biāo)及

18、極坐標(biāo)計(jì)算結(jié)果21yj? 90.000輸入右角22D? 3.750-375咚J輸入左邊距離，以負(fù)值輸入23X=J7314J5S ¥ = 61242.187 A=186.1042D-86.661屈顯示K6-8(X)左邊樁坐掠及極坐標(biāo)計(jì)算結(jié)果251VJ* XXX0冋右角輸入0表示跳出,進(jìn)行另一樁號的計(jì)算26KF? XXX6820 回輸入特求的樁號K&82027YJ? XXXonEI輸入右角28D? X X X0回輸入距離，計(jì)算彌螂碗29X«37334575 ¥ = 61243.133 A=187.1516D = 66372回顯示K6-820坐標(biāo)及極坐標(biāo)計(jì)算結(jié)果30YJ? XXX11oEl右角輸入0表示跳出,進(jìn)行另一樁號的計(jì)算31KP? XXX6888.714115®)輸入待求的樁號