5800公路測(cè)量程序(修改)

1、 CASIO-5800P計(jì)算器以其輕巧靈活、便于攜帶、功能強(qiáng)大、經(jīng)濟(jì)實(shí)用的特點(diǎn)，深受廣大測(cè)量愛(ài)好者的喜愛(ài)。尤其在公路施工測(cè)量方面，全站儀與CASIO-5800P計(jì)算器的組合是目前公路施工測(cè)量應(yīng)用最廣泛的工具。為使其功能得到更好的應(yīng)用，特編輯整理此程序，供廣大公路測(cè)量愛(ài)好者參考。不妥之處敬請(qǐng)指教！ 編者：管東利 2009-3-15簡(jiǎn) 要 說(shuō) 明本程序具有以下特點(diǎn)：1、 簡(jiǎn)潔實(shí)用，結(jié)構(gòu)合理，功能齊全。由項(xiàng)目程序、主程序和子程序構(gòu)成本程序系統(tǒng)。2、 有功能強(qiáng)大的路線(xiàn)坐標(biāo)計(jì)算程序，同時(shí)配備了其它常用的應(yīng)用程序。如：后方交會(huì)、面積計(jì)算、點(diǎn)到直線(xiàn)的距離及兩直線(xiàn)交點(diǎn)坐標(biāo)、距離方位反算等。3、 路線(xiàn)坐標(biāo)計(jì)算：

2、可以將整個(gè)項(xiàng)目的多條路線(xiàn)的多條曲線(xiàn)要素一次編入子程序(P)；豎曲線(xiàn)要素編入子程序(G),橫坡度編入子程序（I）。做到一次編輯，項(xiàng)目程序(如：YL2)多次運(yùn)行，直到本項(xiàng)目結(jié)束，避免每次計(jì)算都必須輸入曲線(xiàn)要素的重復(fù)勞動(dòng)，也減少了計(jì)算出錯(cuò)機(jī)會(huì)，極大地提高工作效率。這一點(diǎn)也是本程序的精華所在。4、 可對(duì)每條曲線(xiàn)進(jìn)行坐標(biāo)計(jì)算：即可使用曲線(xiàn)要素法計(jì)算，也可使用主點(diǎn)樁坐標(biāo)法進(jìn)行計(jì)算。其中主點(diǎn)樁坐標(biāo)法可以用來(lái)計(jì)算任何曲線(xiàn)，尤其適用于對(duì)付互通立交。5、 與設(shè)計(jì)文件緊密結(jié)合。幾乎所有已知曲線(xiàn)要素都可以在設(shè)計(jì)文件中直接找到，避免了重新計(jì)算的麻煩。6、 變量名力求與設(shè)計(jì)、習(xí)慣或數(shù)學(xué)公式相匹配，易于聯(lián)想記憶。如：半徑-

3、R、直緩點(diǎn)-ZH、水平角-HR、里程樁號(hào)-LX等。7、 功能齊全的子程序，使編制新的應(yīng)用程序簡(jiǎn)便易行。CASIO-5800P公路施工測(cè)量應(yīng)用程序(GDL-2009)編制：管東利YL2(程序名：永藍(lán)2段)Lb11:Prog“1”:Prog“P”:Prog“2”: Goto1輸入：LX : 計(jì)算點(diǎn)樁號(hào)（對(duì)應(yīng)變量V）; S: 計(jì)算點(diǎn)距該中樁距離（對(duì)應(yīng)變量S）; W: 計(jì)算點(diǎn)與中樁連線(xiàn)與路線(xiàn)前進(jìn)方向的夾角（對(duì)應(yīng)變量W）計(jì)算并顯示：計(jì)算點(diǎn)坐標(biāo)X ,Y 說(shuō)明:本程序?yàn)轫?xiàng)目程序，先將本項(xiàng)目的平曲線(xiàn)要素編輯到子程序P，一次輸入，長(zhǎng)期使用。YLGC(永藍(lán)高程)Lb11:Prog“1”:Prog“G”: Prog

4、“I”: “H=”:H+I(S-1H Goto1輸入：LX : 計(jì)算點(diǎn)樁號(hào)（對(duì)應(yīng)變量V）; S: 計(jì)算點(diǎn)距該中樁距離（對(duì)應(yīng)變量S）; W: 計(jì)算點(diǎn)與中樁連線(xiàn)與路線(xiàn)前進(jìn)方向的夾角（對(duì)應(yīng)變量W）計(jì)算并顯示： 計(jì)算點(diǎn)對(duì)應(yīng)的路面設(shè)計(jì)高程H說(shuō)明:本程序?yàn)轫?xiàng)目程序，先將本項(xiàng)目的豎曲線(xiàn)要素分別編輯到子程序G和子程序I中，一次輸入，長(zhǎng)期使用。(注：S要大于或等于零；W為±900；1為高程設(shè)計(jì)線(xiàn)到路中線(xiàn)的距離，一般為中央分隔帶寬度的一半，要與設(shè)計(jì)圖紙相符。)ZX(直線(xiàn)段)Prog“8”:Lb1 1:Prog“1”:Prog“Z”:Prog“2”:Goto1已知：LA: 第一點(diǎn)樁號(hào)（對(duì)應(yīng)變量K）; X1

5、: 第一點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量A）; Y1: 第一點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量B）;LN: 第二點(diǎn)樁號(hào)（對(duì)應(yīng)變量N）; X2: 第二點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量C）; Y2: 第二點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量D）輸入：LX: 計(jì)算點(diǎn)樁號(hào)（對(duì)應(yīng)變量V）; S: 計(jì)算點(diǎn)距該中樁距離（對(duì)應(yīng)變量S）; W: 計(jì)算點(diǎn)與中樁連線(xiàn)與路線(xiàn)前進(jìn)方向的夾角（對(duì)應(yīng)變量W）計(jì)算并顯示：計(jì)算點(diǎn)坐標(biāo)X ,Y說(shuō)明： 對(duì)應(yīng)變量，在編輯子程序“P”和“G”時(shí)用的到，要對(duì)照輸入相應(yīng)的值。 YQX(圓曲線(xiàn))Prog“8”:?R:Prog“7”:Lb11:Prog“1”:Prog“Y”:Prog“2”:Goto 1已知：LA: 第一點(diǎn)樁號(hào)（對(duì)應(yīng)變量K）; X1: 第

6、一點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量A）; Y1: 第一點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量B）;LN: 第二點(diǎn)樁號(hào)（對(duì)應(yīng)變量N）; X2: 第二點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量C）; Y2: 第二點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量D）； R: 圓曲線(xiàn)半徑（對(duì)應(yīng)變量R）; Q: 曲線(xiàn)轉(zhuǎn)向(Y=1右轉(zhuǎn) Z=-1左轉(zhuǎn)) （對(duì)應(yīng)變量Q） 輸入：LX: 計(jì)算點(diǎn)樁號(hào); S: 計(jì)算點(diǎn)距中樁距離; W: 中樁與計(jì)算點(diǎn)連線(xiàn)與路線(xiàn)前進(jìn)方向夾角計(jì)算并顯示：計(jì)算點(diǎn)坐標(biāo)X ,Y示意圖如下：HHQX(緩和曲線(xiàn))“ZH”？K：“HZ”？N：“XD”？ C：“YD”? D： “XH”? A：“YH”?B:“R”?R:“T”?T: “LS”? U:Prog“7” :Lb1 1:Prog

7、“1” :Prog “H”:Prog“2” :Goto1已知：ZH:直緩點(diǎn)樁號(hào)（對(duì)應(yīng)變量K）; HZ:緩直點(diǎn)樁號(hào)（對(duì)應(yīng)變量N ） ; XD:交點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量C）; YD: 交點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量D）; XH:后方交點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量A）; YH: 后方交點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量B）; R: 圓曲線(xiàn)半徑（對(duì)應(yīng)變量R）;T: 切線(xiàn)長(zhǎng)（對(duì)應(yīng)變量T）; Ls: 緩和曲線(xiàn)長(zhǎng) (對(duì)應(yīng)變量U）; Q: Y=1右轉(zhuǎn) Z=-1左轉(zhuǎn)（對(duì)應(yīng)變量Q）輸入：LX: 計(jì)算點(diǎn)樁號(hào)（對(duì)應(yīng)變量V）; S: 計(jì)算點(diǎn)距該中樁距離（對(duì)應(yīng)變量S）; W: 計(jì)算點(diǎn)與中樁連線(xiàn)與路線(xiàn)前進(jìn)方向的夾角（對(duì)應(yīng)變量W） 計(jì)算結(jié)果：計(jì)算點(diǎn)坐標(biāo)X ,Y說(shuō)明

8、: 1.適用于標(biāo)準(zhǔn)的緩和曲線(xiàn),既第一,第二緩和曲線(xiàn)長(zhǎng)度相等。2.計(jì)算范圍為：含兩端直線(xiàn)段在內(nèi)的整條曲線(xiàn)。 FHQX(復(fù)合曲線(xiàn))Prog“8”: “R1”? H :“R2”? R: Prog “7”:Lb1 1: Prog “1” :Prog “F”: Prog “2”:Goto1已知：LA: 第一點(diǎn)樁號(hào)（對(duì)應(yīng)變量K）; X1: 第一點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量A）; Y1: 第一點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量B）;LN: 第二點(diǎn)樁號(hào)（對(duì)應(yīng)變量N）; X2: 第二點(diǎn)X坐標(biāo)（對(duì)應(yīng)變量C）; Y2: 第二點(diǎn)Y坐標(biāo)（對(duì)應(yīng)變量D）； Q: 曲線(xiàn)轉(zhuǎn)向(Y=1右轉(zhuǎn) Z=-1左轉(zhuǎn)) （對(duì)應(yīng)變量Q）; R1: 第一點(diǎn)曲線(xiàn)半徑（樁號(hào)L

9、A點(diǎn)) （對(duì)應(yīng)變量H）; R2: 第二點(diǎn)曲線(xiàn)半徑(樁號(hào)LN點(diǎn)) （對(duì)應(yīng)變量R）（如：緩圓點(diǎn)或圓緩點(diǎn)的曲線(xiàn)半徑等于圓曲線(xiàn)半徑R； 直緩點(diǎn)或緩直點(diǎn)的曲線(xiàn)半徑為+,可輸入1G(千兆)）；其他項(xiàng)同HHQX說(shuō)明：1、LA和LN在緩和曲線(xiàn)段上即可，不必是起點(diǎn)或終點(diǎn)；對(duì)應(yīng)的曲率半徑計(jì)算要正確。2、緩和曲線(xiàn)曲率半徑計(jì)算公式：R=A2/L （A為緩和曲線(xiàn)參數(shù)；L為計(jì)算點(diǎn)至直緩點(diǎn)之間的緩和曲線(xiàn)長(zhǎng)度）；3、LA可以大于LNSQX(豎曲線(xiàn))“K1”?A:“K2”?B:“LD”?C:“HD”?D“R”?R:Lb11:“LX”?V:Pros“S”:“H=”HHGoto1已知：K1: 前一段路線(xiàn)縱坡（對(duì)應(yīng)變量A） K2:

10、后一段路線(xiàn)縱坡（對(duì)應(yīng)變量B） LD: 豎曲線(xiàn)交點(diǎn)樁號(hào)（對(duì)應(yīng)變量C） HD： 交點(diǎn)高程（對(duì)應(yīng)變量D） R: 豎曲線(xiàn)半徑（對(duì)應(yīng)變量R） 輸入：LX 計(jì)算點(diǎn)樁號(hào)計(jì)算:LX樁號(hào)的路線(xiàn)設(shè)計(jì)高程 HLX S W(樁號(hào)反算)Lb10:“LC”？V:“X”？X：“Y”？Y:XZ1:YZ2:DO:Prog“P”: Z1E:Z2G: 0= (X-A) 2+(Y-B)2=> E+.0001E: Pol(E-X,G-Y:Icos(J-M)K: V+KV:Lpwhile .005Abs(K:“LX=”:V“S=”:ISJ-MW: 180Abs(W =>W-360Int (W÷360+.5W

11、7;Abs(WW:“W=”:W DMSZ1 X: Z2 Y:Goto 0 已知：猜測(cè)樁號(hào)LC, 已知點(diǎn)P坐標(biāo)（X,Y）。計(jì)算：已知點(diǎn)P（X,Y）相對(duì)于路線(xiàn)的位置。即對(duì)應(yīng)的樁號(hào)LX,距中樁距離S，位于路線(xiàn)的哪一側(cè)（W=90在右側(cè)；W=-90在左側(cè)）。說(shuō)明：1、本程序在路線(xiàn)曲線(xiàn)要素已編入子程序“P”，即項(xiàng)目程序正常運(yùn)行時(shí)方可運(yùn)行。2、輸入程序時(shí)注意區(qū)別：字母O和數(shù)字0、G和1G(千兆)、K和1k(千)、M和1M(兆)。HDZB(涵洞坐標(biāo))Lb11:“LX”？V:“W”？W：“LZ”？ E： “LY”？G: “B/2”？ B：Sin(W)=0=>Goto1:VZ1:WZ2: EZ3: GZ4:

12、 BZ5:Prog“P”: XA: YB: Rec(Z4,M+W:X+IC: Y+JD: 0K: XA: Z4N:-Z3V: -Z2W: Abs(Z5 ÷Sin(WS: Prog“Z”: Rec(S,M+W: IE: JG:“X1=”:X+E“Y1=”:Y+G“X4=”:X-E“Y4=”:Y-G0V: Prog“Z”: “X2=”:X+E“Y2=”:Y+G“X5=”:X-E“Y5=”:Y-GZ4V: Prog“Z”: “X3=”:X+E“Y3=”:Y+G“X6=”:X-E“Y6=”:Y-GZ1V: Z2W: Z3E: Z4G: Z5B: Goto 1 輸入：LX ： 涵中心樁號(hào)（對(duì)應(yīng)

13、變量V） W ： 涵交角（對(duì)應(yīng)變量W）LZ ： 左涵長(zhǎng)（對(duì)應(yīng)變量E） LY ： 右涵長(zhǎng)（對(duì)應(yīng)變量G） B/2 ： 涵正寬的一半（對(duì)應(yīng)變量B）計(jì)算:涵放樣點(diǎn)坐標(biāo)（X1,Y1）-(X6,Y6)說(shuō)明：本程序在路線(xiàn)曲線(xiàn)要素已編入子程序“P”，即項(xiàng)目程序正常運(yùn)行時(shí)方可運(yùn)行。HCJS (涵長(zhǎng)計(jì)算)Lb11:“LX”？U:“W”？W： “B/2”？ B：“Z”？Z：“H+D”？P：BZ1:BS:Sin(W)=0=>Goto1:Abs(S÷Sin(WE:U+Ecos(WV:Prog“G”:Prog“I”: H+I(S-1-.75)-.03H: If8H-Z-P:Then(S+1.5(H-Z-P

14、)÷Sin(WS:Else(S+1.5(H-Z-P)+.25(H-Z-P-8)+2) ÷Sin(WS:IfEnd: “L=”:SZ1B:Goto 1 輸入：LX ： 涵中心樁號(hào)（對(duì)應(yīng)變量V） W ： 涵交角（對(duì)應(yīng)變量W）B/2 ： 計(jì)算一側(cè)的路面寬度（對(duì)應(yīng)變量B） Z：涵底標(biāo)高（對(duì)應(yīng)變量Z） H+D ： 涵底至蓋板頂高度（對(duì)應(yīng)變量P）計(jì)算:對(duì)應(yīng)W值一側(cè)的涵長(zhǎng)L（對(duì)應(yīng)變量S）(計(jì)算另一側(cè)涵長(zhǎng)，將W輸入對(duì)應(yīng)的值，一般為W+180)說(shuō)明：本程序在豎曲線(xiàn)要素已編入子程序“G”，橫坡度要素編入子程序“I”時(shí)方可運(yùn)行,內(nèi)容也要根據(jù)邊坡設(shè)計(jì)圖紙做適當(dāng)修改。TTBX (填土邊線(xiàn))“m1”?

15、E: “m2”?F: “m3”?G: “B1”?O: “B2”?P: EZ3: FZ4: GZ5: OZ6: PZ7:Lb11:“LX”？V:“W”？W： “B/2”？ B：“Z”？Z：BZ1:ZZ2: BS: 1Abs(Sin(W =>Goto1:Prog“G”: Prog“I”: H+I(S-1-.75)-.03H:HZ=>Goto1:If HZ+8:ThenS+ Z3 (H-Z)S: Goto2: IfEnd: If HZ+20:ThenS+ 8Z3 + Z4 (H-Z -8)+OS: Goto2: IfEnd: If HZ+32:Then S+ 8Z3 + 12Z4 +Z5

16、 (H-Z -20)+O+ Z7S: Goto2: IfEnd: HZ+32=>Goto1: Lb12: “TH=”:H-Z“S=”:SProg“P”: Prog“2”: Z1B: Z2Z: Z3E: Z4F: Z5G: Z6O: Z7P: Goto 1 輸入：一級(jí)、二級(jí)、三級(jí)坡比分別為m1、m2、m3；一級(jí)、二級(jí)平臺(tái)寬度分別為B1、B2 LX ： 路中心樁號(hào)（對(duì)應(yīng)變量V） W ：在路的哪一側(cè)，交角±90（對(duì)應(yīng)變量W） B/2 ： 半幅路面寬度（對(duì)應(yīng)變量B） Z：實(shí)測(cè)地面標(biāo)高（對(duì)應(yīng)變量Z）計(jì)算:計(jì)算顯示填土高度“TH=”;填土邊線(xiàn)到中樁距離“S=”;對(duì)應(yīng)W值一側(cè)填土邊線(xiàn)坐標(biāo)(X

17、,Y)說(shuō)明：本程序在在路線(xiàn)曲線(xiàn)要素已編入子程序“P”，豎曲線(xiàn)要素已編入子程序“G”，橫坡度要素編入子程序“I”時(shí)方可運(yùn)行,內(nèi)容也要根據(jù)邊坡設(shè)計(jì)圖紙做適當(dāng)修改。(本次邊坡設(shè)計(jì)見(jiàn)下圖，距中1m為高程設(shè)計(jì)線(xiàn)，土路肩寬度0.75m.暫時(shí)編輯三級(jí)坡以下的。)HJ(后方交匯)Prog“3”:“H”?H:“IH”?K:“RH”?R:“HR1”?O:“HD1”?L:“HR2”?P:“HD2”?S:“VD”?T:Prog“6”:IQ:P-OW:Rec(S,W:Pol(I-L,J:Q÷IQ:Rec(QS,W:0U:0V:QLE:0G:IM:JN:Prog“B”:“Z=”:H-T-K+RZ已知：兩已知點(diǎn)坐

18、標(biāo)（X1,Y1）;（X2,Y2）, H： 任意一點(diǎn)高程 ；實(shí)測(cè)：IH： 儀器高；RH： 棱鏡高； HR1： 第一點(diǎn)水平角讀數(shù)；HD1： 第一點(diǎn)水平距離讀數(shù)；HR2： 第二點(diǎn)水平角讀數(shù)； HD2： 第二點(diǎn)水平距離讀數(shù)； VD： 垂直高差讀數(shù)(對(duì)應(yīng)H) 計(jì)算并顯示 ： 所求測(cè)站點(diǎn)坐標(biāo)(X,Y,Z) FWFS(方位反算) “X0”? A: “Y0” ? B : Lb1 1: “X”?X:“Y”?Y:Pol(X-A,Y-B: “L=”:IL“HR=”:J+180(1-AbsJ÷JDMSGoto 1已知：兩點(diǎn)坐標(biāo)P0(X0,Y0)；P(X,Y)計(jì)算:P0點(diǎn)到P點(diǎn)的距離L 和 方向角HR（顯示度

19、、分、秒）。MJ(面積)Prog“3”:Prog“6”: 0S: IL: 0E:Lb11: “X”？X：“Y”？Y:.5(AD+BX+CY-DX-AY-CBK: “S=”: S+KS(X-C)2+(Y-D) 2G:(X-A)2+(Y-B) 2H: “L=”: L-E+G+HLXC: YD: HE:Goto 1已知:多邊形各角點(diǎn)坐標(biāo)，按順時(shí)針或按逆時(shí)針順序輸入各角點(diǎn)坐標(biāo), 計(jì)算閉合多邊形面積S（為累計(jì)值）及周長(zhǎng)L。示意圖如下:JD(交點(diǎn))Prog“3”:Prog“6”:Lb11:“X3”？E：“Y3”？G:Pol(E-A,G-B: “S=”：Isin(J-FS“X4”？M：“Y4”？N：Pol(

20、M-E,N-G: J-FW:IfInt(W÷180)W÷180:Then“XD=”: (CEB-CMB+AMD-AED+CGM-AGM+AEN-CEN)÷(EB-MB+MD-ED+CG-AG+AN-CNX“YD=”: (DGA-DNA+BNC-BGC+DNE-BNE+BMG-DMG) ÷(GA-NA+NC-GC+DE-BE+BM-DMY IfEnd:Goto 1已知：第一條直線(xiàn)上兩點(diǎn)坐標(biāo)分別為P1（X1,Y1）、P2（X2,Y2）; 第二條直線(xiàn)上兩點(diǎn)坐標(biāo)分別為P3（X3,Y3）、P4（X4,Y4）。計(jì)算并顯示： P3（X3,Y3）到直線(xiàn)（P1P2）的垂直

21、距離S; 以及兩直線(xiàn)交點(diǎn)坐標(biāo)(XD,YD)。示意圖如下：子程序 1 “Lx”？V：“S”？S：“W”？W：Return2IfS0:ThenRec(S,M+W:Else Rec(-S,M+W-180: IfEnd:“X=”: X+IX“Y=”: Y+JY：Return3 “X1”? A: “Y1”? B: “X2”? C: “Y2”? D：Return40Z:K>N=> 180Z: cos(ZP：Return5A+IX: B+JY：Return6Pol(C-A,D-B: JF：Return7 “Y=1, Z=-1”?Q：Return8 “LA”? K: “X1”? A: “Y1”?

22、B: “LN”? N: “X2”? C:“Y2”?D:Return9NK:CA:BD: Return XRU÷LO:L-L(3)÷(40O2)+L(5)÷(3456O(4)-L(7)÷(599040O(6X:L2÷(6O)-L(4)÷(336O(3)+L(6)÷(42240O(5)-L(8)÷(9676800O(7Y：ReturnHU=0=>1U:Prog“4”:Prog“6”:P(V-KL:0H:If(PV)>.5P(K+N:ThenP(N-VL:180H:F+180Q(N-K-PU)÷(R

23、)+HF:IfEnd:Rec(T,F: C-IE: D-JG: IfL0:ThenRec(-L,F+180: F+Z+HM: 1MO:Goto2:IfEnd:IfLU:ThenProg“X”:Pol(X,Y:Rec(I,F+PQJcos(H: F+90PQLcos(H)÷(O)+Z+HM:Goto2:IfEnd: 45(2L-U)÷(RJ: 45U÷(RI: F+2PQJcos(H)+Z+HM: UL:Prog“ X”:Rec(2Rsin(J-I,J+I: X+IX: Y+JY:Pol(X,Y:Rec(I,F+PQJcos(H:Lb1 2: E+IX: G+JY：

24、ReturnS1E:A>B=>-1E:.5RAbs(A-BT: AM:V>C=> BM:If T Abs(V-C:ThenD+M(V-CH:ElseV-C+TG: D-AT+Gtan(tan-1 (A)+90EG÷(RH：IfEnd:ReturnFR(N-K)÷(H-RM: N-K+MU: ML:Prog“X”: XE: YG: UL: Prog“X”:Prog“6”: IZ:Pol(X-E,Y-G: Z÷IZ: F-QJF:V=K=>K+1V:V-K+ML:Prog“X”:Pol(X-E,Y-G:Rec(ZI,F+QJ: F+90Q

25、L÷(OM：Prog“5”：ReturnZProg“4”:Prog“6”:F+ZM: IfVK:ThenRec(V-K,M:Else Rec(K-V,M+180: IfEnd: Prog“5”: 1GO: 1Q：ReturnYProg“6”:Prog“4”:F-90Q(N-K)÷(R)+ZE:90Q(V-K)÷(RG:IfQRsin(G) 0:ThenRec(2QRsin(G, E+G:Else Rec(-2QRsin(G, E+G -180: IfEnd: E+2GM:Prog“5”: RO：ReturnBProg“6”:IQ:Pol(M-E,N-G:Q÷IQ:F-JF:Pol(U-E,V-G:Rec(QI,F+J:”X=”: A+IX“Y=”: B+JY：Return匝道 “1-4：WA-WB：5-8：EA-ED：9WN：10WS：11EN：12ES”?T：Lb1 0：Porg“1”:If T=1:Then Porg“P”：Porg“2”：Goto 0: IfEnd: If T=2: Then Porg“WA”：Porg“2”：Goto0: IfEnd: If T=3:Porg“WB”：Porg“2”：Goto0: IfEndP（示例：永藍(lán)主線(xiàn)K99+000-K106+012）第二緩和曲線(xiàn)終點(diǎn)樁號(hào)N:IfVN:Then第二緩和曲線(xiàn)起