公路工程坐標(biāo)正反算原理及5800計(jì)算器程序

1、.19CASIO fx-5800p計(jì)算器公路測量程序目錄一、坐標(biāo)正算基本公式02二、坐標(biāo)反算原理04三、高程數(shù)據(jù)庫錄入變換05四、計(jì)算器程序0701、ZBZS(坐標(biāo)正算)0702、ZBFS（坐標(biāo)反算）0803、GCJF(高程積分)0904、PJFY（坡腳放樣）1005、JFCX（積分程序）1106、ZBFY（坐標(biāo)放樣）1107、DT（遞推）1208、HP（橫坡）1309、LK（路寬）1410、SJK1（平面數(shù)據(jù)庫）1411、SJK2（縱面數(shù)據(jù)庫）1412、SJK3（左路寬度數(shù)據(jù)庫）1513、SJK4（右路寬度數(shù)據(jù)庫）1514、SJK5（橫坡數(shù)據(jù)庫）1615、SJK6（下邊坡數(shù)據(jù)庫）1616、S

2、JK7（左上邊坡數(shù)據(jù)庫）1717、SJK8（右上邊坡數(shù)據(jù)庫）18五、后記19CASIO 5800計(jì)算器公路工程測量程序l 一、正算所涉及的計(jì)算公式圖表 1在圖1中，A點(diǎn)為回旋曲線起點(diǎn)，B點(diǎn)為回旋曲線止點(diǎn)，I點(diǎn)為所求坐標(biāo)點(diǎn)。設(shè)：A點(diǎn)的X坐標(biāo)為XA ，Y坐標(biāo)為YA ，A點(diǎn)的切線方位角為，A點(diǎn)的曲率為A,A點(diǎn)的里程為LA,B點(diǎn)的曲率為B,B點(diǎn)的里程為LB,I點(diǎn)的曲率為I,I點(diǎn)的里程為LI。I點(diǎn)的切線角為。由于回旋線上各點(diǎn)曲率半徑Ri和該點(diǎn)至曲線起點(diǎn)的距離L成反比。故此任意點(diǎn)的曲率為; (c為常數(shù)) （1）由式(1)可知，回旋曲線任意點(diǎn)的曲率按線性變化，由此回旋曲線上里程為Li點(diǎn)的曲率為; （2）當(dāng)曲

3、線右偏時(shí)B、A取正值，反之取負(fù)值。設(shè)： - 曲率變化率 （3） - I點(diǎn)至起點(diǎn)A的距離 （4）則有： （5）在I點(diǎn)處取一微段，則有: (單位為弧度) （6）對(duì)上式進(jìn)行積分并代入式（3）（4），則有; （7）因已知回旋曲線起點(diǎn)A的切線方位角，則里程為Li點(diǎn)的切線方位角為： （8）將式（7）代入式（8）得：（單位為弧度） （9）對(duì)于式（9），當(dāng)A=0，M=0時(shí)，則i=，式（9）變成計(jì)算直線段上任意點(diǎn)切線方位角的計(jì)算公式；當(dāng)A=c（c為常數(shù)），M=0時(shí)，則i=+AL，式（9）變成計(jì)算圓曲線上任意點(diǎn)切線方位角的計(jì)算公式。由圖1中不難得出回旋曲線上任意點(diǎn)在路線坐標(biāo)系下的坐標(biāo): (10)將式（9）代入式（

4、10），即得本次編程計(jì)算基本公式: (11)l 二、反算原理圖表 2在圖2中，A點(diǎn)為已知坐標(biāo)而待求對(duì)應(yīng)中樁樁號(hào)及邊距的點(diǎn)。B點(diǎn)為假定的A點(diǎn)對(duì)應(yīng)中樁樁號(hào)點(diǎn)。顯然，B點(diǎn)并不對(duì)應(yīng)于A點(diǎn)。做出B點(diǎn)的切線，過A點(diǎn)做輔助線垂直于B點(diǎn)的切線，相交于C點(diǎn)。設(shè)：B點(diǎn)的切線方位角為，B點(diǎn)的樁號(hào)為KB,B點(diǎn)的坐標(biāo)分別為XB、YB，A點(diǎn)的樁號(hào)為KA,A點(diǎn)的坐標(biāo)分別為XA、YA，“B-A”的方位角為，“B-A”的距離為N， “B-C”的距離為L，“C-A”的距離為Z。根據(jù)前面的坐標(biāo)正算的公式可以得到，XB、YB值。根據(jù)計(jì)算器內(nèi)置的Pol（XA-XB，YA-YB）公式（直角坐標(biāo)轉(zhuǎn)換為極坐標(biāo)）能得到，N值。 （1） （2）

5、當(dāng)L=0時(shí)，B點(diǎn)是對(duì)應(yīng)于A點(diǎn)的，KB=KA，Z即為A點(diǎn)的距中樁的距離。當(dāng)L0時(shí)，則采用KB=KB+L,對(duì)B點(diǎn)進(jìn)行新的假定，進(jìn)而再次對(duì)L進(jìn)行解算，直至L=0，或則L值在容許誤差范圍之內(nèi)。l 三、高程數(shù)據(jù)庫錄入變換計(jì)算圖表 3為利用前面已知的積分公式對(duì)高程進(jìn)行求算，故需對(duì)設(shè)計(jì)給定的縱斷面數(shù)據(jù)進(jìn)行換算。如圖3中所示，以高程H軸代替平面坐標(biāo)系的X軸，以里程L代替平面坐標(biāo)系的Y軸，以H軸為起點(diǎn)，順時(shí)針方向旋轉(zhuǎn)而得到方位角。由設(shè)計(jì)圖中已知數(shù)據(jù)為：縱坡i，豎曲線半徑R，坡長L等。根據(jù)通用的縱斷面高程計(jì)算公式，容易解算出每個(gè)線形變化點(diǎn)的里程及高程，即圖3中，A、B、C、D點(diǎn)的“H、L”值。由于縱坡坡度所采用的

6、為坡度值，即： (1)利用反三角函數(shù)，即能解算出以L軸為起點(diǎn)，逆時(shí)針方向旋轉(zhuǎn)的角值。 (2)顯然： (3)同時(shí)結(jié)合平面線元，凸曲線可以看為右偏線元，曲率取正值。反之為負(fù)值。圖表 4由于積分程序代入運(yùn)算的為坡線長度，即上圖中的的0A、AB，而已知里程為水平距離，即上圖中的0A、AB。所以在計(jì)算出起點(diǎn)積分運(yùn)算的基本要素：圖3中的（，H，L）后，我們需將水平距離L換算為坡線長度L或弧線長度L。直線換算比較簡單，利用三角函數(shù)即能得出下式： （4）豎曲線形式，一般采用二次拋物線或圓曲線，在圓心角很小而半徑相對(duì)較大的使用范圍內(nèi)，二者的吻合是良好的。以下推導(dǎo)采用圓曲線作為豎曲線的形式。在圖4中，A點(diǎn)為線元起

7、點(diǎn)（直線OA與圓弧AB的切點(diǎn)），B點(diǎn)為待求弧長點(diǎn)，F(xiàn)點(diǎn)為曲線對(duì)應(yīng)圓心。根據(jù)互余角相等原理得出： 運(yùn)用三角函數(shù)計(jì)算得出： ；根據(jù)圓曲線方程：得出： ,根據(jù)圖示： 利用反三角函數(shù)：從而：根據(jù)弧長計(jì)算公式得： （5）l 四、卡西歐5800程序;Ø 1、文件名：“ZBZS”(坐標(biāo)正算)KI=?H:(輸入計(jì)算點(diǎn)樁號(hào)并賦值于變量H)ProgSJK1:(進(jìn)入數(shù)據(jù)庫1中讀取數(shù)據(jù))ProgJFCX:(進(jìn)入積分程序進(jìn)行運(yùn)算)BL=?P:(輸入計(jì)算點(diǎn)距中樁距離并賦值于變量P,左為“-”，右為“+”。如果需要計(jì)算設(shè)計(jì)路幅寬度“加寬段”，則計(jì)算左幅時(shí)輸入“-1”，右幅為“+1”) IF ABS(1)=1：（如

8、果路寬的絕對(duì)值為1，則計(jì)算設(shè)計(jì)路幅寬度）THEN PROG”LK”: （進(jìn)入路寬程序計(jì)算出路幅寬度值）“BS=”:EPP（對(duì)路幅寬度代入±號(hào)以區(qū)分左右）“BL=”:?P: （是否對(duì)邊距重新賦值，如路塹墻，即邊距等于路幅寬度加上水溝寬度）IF END: （判斷結(jié)束）X=:S+PCos(W+90)U (顯示邊樁X坐標(biāo)并賦值于變量U,可對(duì)90度進(jìn)行調(diào)整，如斜交30度或其他，但是角度不分左右，即90度=-90度=270度)Y=:T+PSin(W+90)V (顯示邊樁Y坐標(biāo)并賦值于變量V)PROG”GCJF”: (進(jìn)入高程積分程序，計(jì)算設(shè)計(jì)高程)PROG”HP”: (進(jìn)入橫坡計(jì)算程序，計(jì)算橫坡

9、)“H=”:S+ABS(E)FQ (顯示計(jì)算點(diǎn)設(shè)計(jì)高程，設(shè)計(jì)高程加上橫坡高差)Ø 2、文件名：“ZBFS”(坐標(biāo)反算)KI=?H:(輸入假定樁號(hào)并賦值于變量H)XI=?V:(輸入反算點(diǎn)X坐標(biāo)并賦值于變量V)YI=?Y:(輸入反算點(diǎn)Y坐標(biāo)并賦值于變量Y)HI=?Z:(輸入反算點(diǎn)高程并賦值于變量Z)Lbl 0：(轉(zhuǎn)移起點(diǎn)命令)ProgSJK1:(進(jìn)入數(shù)據(jù)庫1中讀取數(shù)據(jù))ProgJFCX:(進(jìn)入積分程序進(jìn)行運(yùn)算)Pol(V-S,Y-T) N：(將直角坐標(biāo)轉(zhuǎn)換為極坐標(biāo)并將極經(jīng)賦值于變量N)JU：(將極角賦值于變量U。注意：在Pol（）函數(shù)中，計(jì)算生成的r值被自動(dòng)賦值于I，值被賦值于J)NCo

10、s（U-W）R：(計(jì)算假定樁號(hào)的偏差并賦值于變量R)Abs（R）0.001=>Goto 1：(判斷語句，如果R的絕對(duì)值小于容許誤差則程序跳轉(zhuǎn)至Lbl 1處運(yùn)行，否則將順序運(yùn)行)H+R+0.001H：(對(duì)假定樁號(hào)H值重新賦值,此處增加的：“+0.001”是為了避免直線段計(jì)算中樁時(shí)出現(xiàn)Pol(0,0)的錯(cuò)誤。)Goto 0：(程序跳轉(zhuǎn)入Lbl 0處重新開始運(yùn)行)Lbl 1：(轉(zhuǎn)移起點(diǎn)命令)KI=:H (顯示解算出來的樁號(hào))BL=: NSin（U-W）P(計(jì)算反算點(diǎn)至中樁距離并賦值于變量P,右為+)ProgGCJF:(進(jìn)入高程積分程序進(jìn)行運(yùn)算)PROG”LK”: (進(jìn)入路寬程序，計(jì)算路幅寬度)

11、IF P0: (如果反算邊距大于0，即右幅)THEN “BL0=”:P-EG(反算點(diǎn)距離右邊線距離，+為超挖，-為欠挖)ELSE “BL0=”:ABS(P)-EG(反算點(diǎn)距離左邊線距離，+為超挖，-為欠挖)IF END: (判斷結(jié)束)PROG “HP”: (進(jìn)入橫坡計(jì)算程序，計(jì)算反算點(diǎn)橫坡)IF ABS(P)E: (如果反算點(diǎn)在路幅內(nèi)，則計(jì)算該點(diǎn)挖填，反之則計(jì)算該點(diǎn)對(duì)應(yīng)路幅邊緣點(diǎn)挖填，并賦值于Q變量)THEN “ZI=”:(S+ABS(P)F)-ZQ：ELSE “ZI=”:(S+ABS(E)F)-ZQ：IF END (判斷結(jié)束)Ø 3、文件名：“GCJF”(高程積分)ProgSJK2

12、:(進(jìn)入數(shù)據(jù)庫2調(diào)用數(shù)據(jù))H-FX:(計(jì)算水平距離并賦值于變量X)If D=0:(根據(jù)曲率判斷直線或圓曲線)Then Abs(X÷C0S(90-C) X:(如果為直線則計(jì)算坡線長并賦值于變量X)Else COS(C) ÷Abs(D) B:(如果為曲線，則開始計(jì)算弧長，具體參照第三節(jié)理解)Sin(C) ÷Abs(D) E:(參照第三節(jié)理解)（1÷D）2-(X-B)2）G:(參照第三節(jié)理解)tan-1（G-E）÷X）T:(參照第三節(jié)理解)Abs（90-C-T）÷90÷Abs(D)X:(計(jì)算出弧長并賦值于變量X)IfEnd:(條件

13、判斷結(jié)束)A+（Cos（C+DrX2）,0,X）S:（計(jì)算設(shè)計(jì)高程值并賦值于S）Ø 4、文件名：“PJFY”(坡腳放樣)ProgZBFS(執(zhí)行坐標(biāo)反算程序，并顯示)PROG “LK”: (執(zhí)行路寬程序)IF Q0: (如果為填方，則進(jìn)入SJK6，調(diào)用下邊坡數(shù)據(jù))THEN PROG “SJK6”: ELSE IF Q0 AND P0: (如果為挖方，且在路左，則調(diào)用左側(cè)上邊坡數(shù)據(jù))THEN PROG”SJK7”: ELSE PROG”SJK8”: (調(diào)用右側(cè)上邊坡數(shù)據(jù))IF END: (第二判斷結(jié)束)IF END: (第一判斷結(jié)束)Abs（Q）B=>E+ Abs（Q）AZ：(高差

14、小于第1級(jí)坡高時(shí)，計(jì)算理論平距并賦值于變量Z)Abs（Q）(B+F)And Abs（Q）B =>E+AB+C+ (Abs（Q）-B)DZ：(高差小于第2級(jí)坡高時(shí)，計(jì)算理論平距并賦值于變量Z)Abs（Q）(B+F+L)And Abs（Q）(B+F)=>E+AB+C+DF+G+ (Abs（Q）-B-F)KZ：(高差小于第3級(jí)坡高時(shí)，計(jì)算理論平距并賦值于變量Z)Abs（Q）(B+F+L)=>E+AB+C+DF+G+KL+M+ (Abs（Q）-B-F-L)NZ：(高差大于第3級(jí)坡高時(shí)，計(jì)算理論平距并賦值于變量Z)LI=:Z- Abs（P）(計(jì)算并顯示坡腳點(diǎn)距假定點(diǎn)的距離，+為遠(yuǎn)離中線

15、)Ø 5、文件名：“JFCX”(積分程序)（E-D）÷（G-F）M:（計(jì)算線元曲率變化率并賦值于變量M）H-FX:（計(jì)算點(diǎn)至線元起點(diǎn)距離并賦值于變量X。注意：此變量僅能為X，因下步積分運(yùn)算中，計(jì)算器對(duì)除X以外的所有變量都將視為常數(shù)）C+DrX+0.5rMX2W:(計(jì)算點(diǎn)切線方位角并賦值于變量W。注意：Dr、0.5r中的上標(biāo)r，為弧度轉(zhuǎn)化符號(hào)其值為180/，計(jì)算器內(nèi)有此符號(hào))A+（Cos（C+DrX+0.5rMX2）,0,X）S:（計(jì)算中樁X坐標(biāo)值并賦值于S）B+（Sin（C+DrX+0.5rMX2）,0,X）T（計(jì)算中樁Y坐標(biāo)值并賦值于T）Ø 6、文件名：“ZBF

16、Y”，坐標(biāo)放樣PROG “ZBZS” （進(jìn)入坐標(biāo)正算程序，并顯示）POL(U-*),(V-*)L: （計(jì)算放樣點(diǎn)和置站點(diǎn)的距離和方位角，*，置站點(diǎn)的X，Y坐標(biāo)）IF J0：（如果方位角大于0，則直接計(jì)算，反之則需要加上360度）THEN GOTO 0: ELSE J+360J: IF END: （判斷結(jié)束）LB1 0: “L=”:LL（顯示置站點(diǎn)至放樣點(diǎn)的距離）JW:”W=”:W DMS（顯示置站點(diǎn)至放樣點(diǎn)的方位角，并轉(zhuǎn)化為度分秒）“HS=”?Z: （輸入實(shí)測高程，并賦值于Z）”HC=”:Q-Z（計(jì)算放樣點(diǎn)的挖填，-為挖，+為填）Ø 7、文件名：“DT”，線元要素遞推程序“XQ=”?

17、A: （將起點(diǎn)坐標(biāo)、方位角、起止點(diǎn)曲率、樁號(hào)進(jìn)行分別賦值）“YQ=”?B: “WQ=”?C: “1/RQ=”?D: “1/RZ=”?E: “KQ=”?F: “KZ=”?G:GH: （計(jì)算樁號(hào)等于線元止點(diǎn)樁號(hào)）PROG “JFCX”: （進(jìn)入積分程序，將X,Y顯示并賦值于起點(diǎn)變量）“XZ=”:SA“YZ=”:TB GF: ED: WC: （將止點(diǎn)參數(shù)賦值于起點(diǎn)）“WZ=”:C DMS（將方位角轉(zhuǎn)化為以度分秒為單位）Ø 8、文件名：“HP”(橫坡計(jì)算程序中軸旋轉(zhuǎn)線性變化)PROG “SJK5”: （進(jìn)入數(shù)據(jù)庫5，調(diào)用超高參數(shù)）IF P0: （區(qū)分左右，并將橫坡百分比化）THEN 0.01

18、CC: 0.01DD:ELSE 0.01EC: 0.01FD:IF END:IF D=C: （判斷直線和全超高路段，即橫坡不變化路段）THEN CF: GOTO 0:ELSE B-AG: （LS，計(jì)算緩和段長度）IF END:IF C0 OR D0: （判斷超高方向，即平曲線內(nèi)外）THEN C+(H-A)(D-C)÷GF: GOTO 0: （線性內(nèi)插）ELSE G- G ABS(D-C) ÷(ABS(D)-C)K: （L0，計(jì)算臨界長度）IF END:IF ABS(D)ABS(C): （判斷ZH-HY或YH-HZ）THEN H-AL: ELSE B-HL:IF END:IF

19、 LK: （超高變化段內(nèi)側(cè)，判斷臨界長度以內(nèi)或以外）THEN CF: GOTO 0:ELSE C+(L-K)(D-C)÷(G-K)F: GOTO 0: （線性內(nèi)插）IF END:FFØ 9、文件名：“LK”(路幅寬度計(jì)算程序加寬線性變化)IF P0: （區(qū)分左右，分別調(diào)用數(shù)據(jù)）THEN PROG “SJK3”:ELSE PROG “SJK4”:IF END:C+(H-A)(D-C)÷(B-A)E: （線性內(nèi)插）Ø 10、文件名：“SJK1”(數(shù)據(jù)庫1，平面數(shù)據(jù)庫)If H線元止點(diǎn)樁號(hào)：（判斷計(jì)算點(diǎn)所屬線元）Then *A:（線元起點(diǎn)X坐標(biāo)賦值于變量A）*

20、B:（線元起點(diǎn)Y坐標(biāo)賦值于變量B）*C:（線元起點(diǎn)方位角賦值于變量C）±*÷*D:（線元起點(diǎn)曲率賦值于變量D。注意：線元右偏為+，反之為-，曲率等于1/R,即半徑的倒數(shù)，直線曲率為0。）±*÷*E:（線元止點(diǎn)曲率賦值于變量E。注意：線元右偏為+，反之為-，曲率等于1/R,即半徑的倒數(shù)，直線曲率為0。）*F:（線元起點(diǎn)樁號(hào)賦值于變量F）*G：（線元止點(diǎn)樁號(hào)賦值于變量G）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 11、文件名：“SJK2”(數(shù)據(jù)庫2，縱面數(shù)據(jù)庫)If H線元止點(diǎn)樁號(hào)：

21、（判斷計(jì)算點(diǎn)所屬線元）Then *A:（線元起點(diǎn)高程賦值于變量A）*C:（線元起點(diǎn)方位角賦值于變量C）±*÷*D:（線元起點(diǎn)曲率賦值于變量D。注意：凸曲線為+，反之為-，曲率等于1/R,即半徑的倒數(shù)，直線曲率為0。）*F:（線元起點(diǎn)樁號(hào)賦值于變量F）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 12、文件名：“SJK3”(數(shù)據(jù)庫3，左路幅寬度數(shù)據(jù)庫)If H線元止點(diǎn)樁號(hào)：（判斷計(jì)算點(diǎn)所屬線元）Then *A:（線元起點(diǎn)樁號(hào)賦值于變量A）*B:（線元止點(diǎn)樁號(hào)賦值于變量B）*C:（線元起點(diǎn)左路幅寬度賦值于變

22、量C）*D:（線元止點(diǎn)左路幅寬度賦值于變量D）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 13、文件名：“SJK4”(數(shù)據(jù)庫4，右路幅寬度數(shù)據(jù)庫)If H線元止點(diǎn)樁號(hào)：（判斷計(jì)算點(diǎn)所屬線元）Then *A:（線元起點(diǎn)樁號(hào)賦值于變量A）*B:（線元止點(diǎn)樁號(hào)賦值于變量B）*C:（線元起點(diǎn)右路幅寬度賦值于變量C）*D:（線元止點(diǎn)右路幅寬度賦值于變量D）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 14、文件名：“SJK5”(數(shù)據(jù)庫5，橫坡數(shù)據(jù)庫)If H線

23、元止點(diǎn)樁號(hào)：（判斷計(jì)算點(diǎn)所屬線元）Then *A:（線元起點(diǎn)樁號(hào)賦值于變量A）*B:（線元止點(diǎn)樁號(hào)賦值于變量B）*C:（線元起點(diǎn)左路橫坡（±i）上坡為+，如2%輸入2，-2%輸入-2，即可）*D:（線元止點(diǎn)左橫坡賦值于變量D）*E:（線元起點(diǎn)右橫坡賦值于變量E）*F:（線元止點(diǎn)右橫坡賦值于變量F）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 15、文件名：“SJK6”(數(shù)據(jù)庫6，下邊坡坡率數(shù)據(jù)庫)If （H起點(diǎn)樁號(hào) AND H止點(diǎn)樁號(hào)） OR （H起點(diǎn)樁號(hào) AND H止點(diǎn)樁號(hào)）OR （H起點(diǎn)樁號(hào) AND H止點(diǎn)樁

24、號(hào)）：（判斷計(jì)算點(diǎn)所屬線元）Then *A:（距中線第1段坡的坡率）*B:（距中線第1段坡的坡高）*C:（距中線第1段坡的護(hù)坡道寬度）*D:（距中線第2段坡的坡率）*F:（距中線第2段坡的坡高）*G:（距中線第2段坡的護(hù)坡道寬度）*K:（距中線第3段坡的坡率）*L:（距中線第3段坡的坡高）*M:（距中線第3段坡的護(hù)坡道寬度）*N:（距中線第4段坡的坡率）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 16、文件名：“SJK7”(數(shù)據(jù)庫7，左上邊坡坡率數(shù)據(jù)庫)If （H起點(diǎn)樁號(hào) AND H止點(diǎn)樁號(hào)） OR （H起點(diǎn)樁號(hào) AND H止點(diǎn)樁號(hào)）OR （H起點(diǎn)樁號(hào) AND H止點(diǎn)樁號(hào)）：（判斷計(jì)算點(diǎn)所屬線元）Then *A:（距中線第1段坡的坡率）*B:（距中線第1段坡的坡高）*C:（距中線第1段坡的護(hù)坡道寬度）*D:（距中線第2段坡的坡率）*F:（距中線第2段坡的坡高）*G:（距中線第2段坡的護(hù)坡道寬度）*K:（距中線第3段坡的坡率）*L:（距中線第3段坡的坡高）*M:（距中線第3段坡的護(hù)坡道寬度）*N:（距中線第4段坡的坡率）Return：（從子程序返回調(diào)用此子程序的程序）IfEnd （條件判斷結(jié)束）（重復(fù)進(jìn)行下個(gè)線元數(shù)據(jù)錄入）Ø 17、文