CasiofxP編程計(jì)算器三個(gè)公路基本測(cè)量程序編寫與應(yīng)用PPT教學(xué)課件

1、公路工程施工前要做好的三項(xiàng)測(cè)量工作公路工程施工前要做好的三項(xiàng)測(cè)量工作中樁測(cè)設(shè)與復(fù)核，為線路調(diào)查做中樁測(cè)設(shè)與復(fù)核，為線路調(diào)查做準(zhǔn)備準(zhǔn)備 （與測(cè)量坐標(biāo)正反算程序?qū)?yīng)）公路全線填挖土方量的外業(yè)測(cè)量，為公路全線填挖土方量的外業(yè)測(cè)量，為0#臺(tái)帳做臺(tái)帳做準(zhǔn)備準(zhǔn)備 （與任意點(diǎn)高程確定程序?qū)?yīng)）公路用地邊線的測(cè)設(shè)與復(fù)核，為路基清表做公路用地邊線的測(cè)設(shè)與復(fù)核，為路基清表做準(zhǔn)備準(zhǔn)備（與邊坡放樣程序?qū)?yīng)）第1頁(yè)/共39頁(yè)存在問(wèn)題： 十五個(gè)外業(yè)測(cè)量人員用三臺(tái)南方GPS移動(dòng)站一周之內(nèi)僅完成一公里上述測(cè)量任務(wù)，給工程進(jìn)展造成嚴(yán)重阻礙。原因：1. 按圖紙?zhí)峁┑恼麡短?hào)中樁坐標(biāo)測(cè)設(shè)，在地形復(fù)雜處不能即時(shí)算出非整樁號(hào)中樁及邊樁坐

2、標(biāo)，漏測(cè)點(diǎn)較多。2. 在地形起伏變化較大的位置，加密測(cè)量后，內(nèi)業(yè)計(jì)算不熟練，非整數(shù)樁點(diǎn)高程計(jì)算不正確。3、對(duì)高邊坡放樣不熟練，多次復(fù)測(cè)均無(wú)法正確定出坡角線，與原征地邊線誤差較大。 對(duì)外業(yè)測(cè) 量數(shù)據(jù)計(jì) 算不熟練 對(duì)利用計(jì)算器 編程進(jìn)行培訓(xùn) 對(duì)上述三個(gè)問(wèn)題 引入程序計(jì)算解決辦法4第2頁(yè)/共39頁(yè)公路路線任意樁號(hào)坐標(biāo)正反算公路路線任意樁號(hào)坐標(biāo)正反算公路任意樁號(hào)高程計(jì)算公路任意樁號(hào)高程計(jì)算高邊坡邊坡放樣高邊坡邊坡放樣12435 注：有關(guān)casiofx5800P編程計(jì)算器程序編寫的資料在網(wǎng)上唾手可得，但良莠不齊，錯(cuò)漏很多。其說(shuō)明書(shū)中也附帶三十六個(gè)公路施工測(cè)量程序，分別對(duì)應(yīng)不同的線形和需要，應(yīng)用者往往不勝

3、其煩，也常因應(yīng)用熟練程度問(wèn)題，出現(xiàn)計(jì)算錯(cuò)誤而不自知。三個(gè)基本測(cè)量程序的概念是我們?cè)谑┕?shí)踐中提出來(lái)的，目的是便于測(cè)量人員對(duì)相關(guān)業(yè)務(wù)知識(shí)的掌握，本文坐標(biāo)正反算程序采用了目前最好的算法，不同的平面線元計(jì)算不需切換算法；高程與高邊坡放樣程序則是在施工測(cè)量中反復(fù)總結(jié)出來(lái)的原創(chuàng)，對(duì)施工測(cè)量有很好的指導(dǎo)性。它們包括了公路外業(yè)測(cè)量中絕大部分的計(jì)算工作，可使初學(xué)者在最短時(shí)間內(nèi)找到便捷之門而登堂入室，值得在我局基礎(chǔ)設(shè)施項(xiàng)目中推廣，也是合格的測(cè)量人員應(yīng)該掌握的。第3頁(yè)/共39頁(yè)正算是根據(jù)測(cè)量者輸入的樁號(hào)和正算是根據(jù)測(cè)量者輸入的樁號(hào)和距中樁距離計(jì)算出所求點(diǎn)的坐標(biāo)距中樁距離計(jì)算出所求點(diǎn)的坐標(biāo)和測(cè)站點(diǎn)到該點(diǎn)的方位角、水

4、平和測(cè)站點(diǎn)到該點(diǎn)的方位角、水平距離。反算是根據(jù)使用者輸入的距離。反算是根據(jù)使用者輸入的實(shí)測(cè)坐標(biāo)計(jì)算出該點(diǎn)的樁號(hào)和距實(shí)測(cè)坐標(biāo)計(jì)算出該點(diǎn)的樁號(hào)和距中樁距離?？捎糜谟?jì)算公路綜合中樁距離?？捎糜谟?jì)算公路綜合線形，在計(jì)算器內(nèi)存許可的條件線形，在計(jì)算器內(nèi)存許可的條件下，不受下，不受“斷鏈斷鏈”的影響，也沒(méi)的影響，也沒(méi)有計(jì)算里程的限制。有計(jì)算里程的限制。公路任意樁號(hào)高程計(jì)算高邊坡邊坡放樣第4頁(yè)/共39頁(yè)公路路線任意樁號(hào)坐標(biāo)正反算在輸入所求點(diǎn)距離路在輸入所求點(diǎn)距離路面的厚度、所求點(diǎn)樁面的厚度、所求點(diǎn)樁號(hào)、路面橫坡值、路號(hào)、路面橫坡值、路面某點(diǎn)至中樁距離后面某點(diǎn)至中樁距離后顯示該點(diǎn)高程。顯示該點(diǎn)高程。高邊坡邊坡

5、放樣第5頁(yè)/共39頁(yè)公路路線任意樁號(hào)坐標(biāo)正反算公路任意樁號(hào)高程計(jì)算根據(jù)現(xiàn)場(chǎng)測(cè)量得的根據(jù)現(xiàn)場(chǎng)測(cè)量得的坐標(biāo)和高程數(shù)據(jù)，坐標(biāo)和高程數(shù)據(jù)，利用程序求出立鏡利用程序求出立鏡點(diǎn)與邊坡點(diǎn)的距離，點(diǎn)與邊坡點(diǎn)的距離，逐步漸近求得邊坡逐步漸近求得邊坡坡腳線位置。坡腳線位置。第6頁(yè)/共39頁(yè)12435第7頁(yè)/共39頁(yè)第8頁(yè)/共39頁(yè)：按順序執(zhí)行各語(yǔ)句，在此之后將會(huì)顯示最后一個(gè)表達(dá)式的結(jié)果按順序執(zhí)行各語(yǔ)句，在此之后將會(huì)顯示最后一個(gè)表達(dá)式的結(jié)果遇到該分隔符時(shí)，執(zhí)行會(huì)暫停，顯示此時(shí)的計(jì)算結(jié)果遇到該分隔符時(shí)，執(zhí)行會(huì)暫停，顯示此時(shí)的計(jì)算結(jié)果第9頁(yè)/共39頁(yè)第10頁(yè)/共39頁(yè)第11頁(yè)/共39頁(yè)第12頁(yè)/共39頁(yè)第13頁(yè)/共39

6、頁(yè)第14頁(yè)/共39頁(yè)第15頁(yè)/共39頁(yè)條件分支命令第16頁(yè)/共39頁(yè)二、程序編寫二、程序編寫 casiofx-5800P計(jì)算器測(cè)量程序在計(jì)算機(jī)網(wǎng)絡(luò)上多有流傳，但有計(jì)算器測(cè)量程序在計(jì)算機(jī)網(wǎng)絡(luò)上多有流傳，但有的測(cè)量主程序算法復(fù)雜，編程繁瑣；有的程序內(nèi)容表達(dá)錯(cuò)誤，有的的測(cè)量主程序算法復(fù)雜，編程繁瑣；有的程序內(nèi)容表達(dá)錯(cuò)誤，有的不能進(jìn)行綜合線形的測(cè)設(shè)、能應(yīng)用于工程實(shí)際的廖廖無(wú)幾。本文通不能進(jìn)行綜合線形的測(cè)設(shè)、能應(yīng)用于工程實(shí)際的廖廖無(wú)幾。本文通過(guò)對(duì)公路測(cè)量三個(gè)基本程序（公路路線任意樁號(hào)坐標(biāo)正反算、公路過(guò)對(duì)公路測(cè)量三個(gè)基本程序（公路路線任意樁號(hào)坐標(biāo)正反算、公路任意樁號(hào)高程計(jì)算、高邊坡邊坡放樣）的介紹，提出了

7、任意樁號(hào)高程計(jì)算、高邊坡邊坡放樣）的介紹，提出了casiofx-5800P標(biāo)準(zhǔn)程序，聊供同行參考。標(biāo)準(zhǔn)程序，聊供同行參考。12435各測(cè)量程序分為二個(gè)部各測(cè)量程序分為二個(gè)部分：數(shù)據(jù)庫(kù)程序和主程分：數(shù)據(jù)庫(kù)程序和主程序。序。數(shù)據(jù)庫(kù)為線路對(duì)應(yīng)的設(shè)計(jì)參數(shù)，隨工程而定。主程序?yàn)樗惴?，一般固定不變。?7頁(yè)/共39頁(yè)1 1、公路路線坐標(biāo)算法、公路路線坐標(biāo)算法 宜采用緩和曲線在坐標(biāo)系下任意位置的通用積分公式，它完全適應(yīng)宜采用緩和曲線在坐標(biāo)系下任意位置的通用積分公式，它完全適應(yīng)緩和曲線左偏、右偏、緩和曲線左偏、右偏、Rs Re Rs Re 、Rs ReRs NE1.SZ=NE”: :“2.NE=SZ2.NE=

8、SZ”:?Q:?S:Prog:?Q:?S:Prog“QXJS-SUB0QXJS-SUB0” 提示輸入提示輸入“1 1”，“2 2”，調(diào)用數(shù)據(jù)庫(kù)子程序；，調(diào)用數(shù)據(jù)庫(kù)子程序；Lbl 0:Q=1 = Goto1:Q=2 = Goto2:Lbl 0:Q=1 = Goto1:Q=2 = Goto2: 選擇進(jìn)入正算或反算程序；選擇進(jìn)入正算或反算程序；Lbl 1:?Z:ProgLbl 1:?Z:Prog“QXJS-SUB1QXJS-SUB1”: :“N=N=”:N:N“E=E=”:E:E“F=F=”:F DMS:F DMS: : Goto3Goto3 輸出正算坐標(biāo)；輸出正算坐標(biāo)；Lbl 2: Lbl 2:

9、“N=N=”:?B: :?B: “E=E=”:?C:BN: CE:Prog:?C:BN: CE:Prog“QXJS-SUB2QXJS-SUB2”: : “S=S=”:S:S“Z=Z=”:Z:ZGoto4Goto4 輸出反算中樁號(hào)及距中樁距離；輸出反算中樁號(hào)及距中樁距離；Lbl 3Lbl 3：I IPolPol（N NZ Z1 1,E,EZ Z2 2）：）：J J0 0J JJ+360J+360：“DISTDIST”：I I “FWFW”：J DMSJ DMS Goto4 Goto4 輸出與測(cè)站點(diǎn)的距離和方位角；返回主程序提示輸入界面；輸出與測(cè)站點(diǎn)的距離和方位角；返回主程序提示輸入界面；（Z Z

10、1 1為測(cè)站點(diǎn)為測(cè)站點(diǎn)X X坐標(biāo)，坐標(biāo)，Z Z2 2為測(cè)站點(diǎn)為測(cè)站點(diǎn)Y Y坐標(biāo)）坐標(biāo)）第19頁(yè)/共39頁(yè)2 2、數(shù)據(jù)庫(kù)子程序、數(shù)據(jù)庫(kù)子程序QXJS-SUB0 QXJS-SUB0 數(shù)據(jù)庫(kù)子程序數(shù)據(jù)庫(kù)子程序Goto1 Goto1 同時(shí)保存多個(gè)曲線時(shí)的指針同時(shí)保存多個(gè)曲線時(shí)的指針Lbl 1Lbl 1IF SIF S* * * *（線元終點(diǎn)里程）（線元終點(diǎn)里程）:Then:Then* * * *AA（線元起點(diǎn)方位角）（線元起點(diǎn)方位角）: :* * * *OO（線元起點(diǎn)里程）（線元起點(diǎn)里程）: :* * * *UU（線元起點(diǎn)（線元起點(diǎn)X X）: :* * * *VV（線元起點(diǎn)（線元起點(diǎn)Y Y）: :*

11、* * * PP（線元起點(diǎn)曲率半徑）（線元起點(diǎn)曲率半徑）: :* * * *RR（線元終點(diǎn)曲率半徑）（線元終點(diǎn)曲率半徑）: : * * * *LL（線（線元起點(diǎn)至終點(diǎn)長(zhǎng)度）元起點(diǎn)至終點(diǎn)長(zhǎng)度）: : Return:IfEnd Return:IfEnd IF SIF S0.0001 = Goto1Abs(W)0.0001 = Goto1Lbl 2: 0ZLbl 2: 0Z：ProgProg“QXJS-SUB1QXJS-SUB1”:(C-E) :(C-E) sin(F+90) Zsin(F+90) Z第22頁(yè)/共39頁(yè)3 3、使用說(shuō)明、使用說(shuō)明1 1）規(guī)定）規(guī)定 (1) (1) 以道路中線的前進(jìn)方向

12、（即里程增大的方向）區(qū)分左右；當(dāng)曲以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)曲線半徑在左時(shí)，線半徑在左時(shí)，P P、R R取負(fù)值，當(dāng)曲線半徑在右時(shí)，取負(fù)值，當(dāng)曲線半徑在右時(shí)，P P、R R取正值，當(dāng)曲線取正值，當(dāng)曲線半徑為無(wú)窮大（即直線）時(shí)，半徑為無(wú)窮大（即直線）時(shí)，P P、R R以以1010的的4545次代替。次代替。 (2) (2) 當(dāng)所求點(diǎn)位于中線時(shí)，當(dāng)所求點(diǎn)位于中線時(shí)，Z=0Z=0；當(dāng)位于中線左鍘時(shí)，；當(dāng)位于中線左鍘時(shí)，Z Z取負(fù)值；當(dāng)取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，位于中線中線右側(cè)時(shí)，Z Z取正值。取正值。 (3) (3) 當(dāng)線元為圓曲線時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲

13、當(dāng)線元為圓曲線時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。率半徑均等于圓弧的半徑。 (4) (4) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以窮大，以1010的的4545次方代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半次方代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以1010的的4545次代替；與圓曲次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。線相接時(shí)，曲率半徑等于圓曲線的半徑。 (5) (5) 當(dāng)線元為非完整緩和

14、曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。徑等于圓曲線的半徑。第23頁(yè)/共39頁(yè)2 2）輸入與顯示說(shuō)明）輸入與顯示說(shuō)明 輸入部分：輸入部分： 1. SZ = XY 1. SZ = XY 2. XY = SZ 2. XY = SZ Q ? Q ? 選擇計(jì)算方式，輸入選擇計(jì)算方式，輸入1

15、 1表示進(jìn)行由里程、邊距計(jì)表示進(jìn)行由里程、邊距計(jì)算坐標(biāo)算坐標(biāo) ；輸入；輸入2 2表示由坐標(biāo)反算里程和邊距。表示由坐標(biāo)反算里程和邊距。第24頁(yè)/共39頁(yè)4 4、公路縱斷面高程算法、公路縱斷面高程算法主程序的算法原理：主程序的算法原理：第25頁(yè)/共39頁(yè)Filename:Filename:* * * * * * *（自定主程序名）（自定主程序名）N-MPN-MP：Abs(P)Abs(P)PS:Abs(P)PS:Abs(P)R R2T:If LD-T:Then 2T:If LD-T:Then C-MT+(M+(L-D+T)SIf LD-T:Then C-MT+(M+(L-D+T)S2 2R)R)(L

16、-(L-D+T)H:Ifend D+T)H:Ifend 判斷輸入點(diǎn)是否進(jìn)入曲線段；判斷輸入點(diǎn)是否進(jìn)入曲線段；If LD+T:Then C+(L-D)NH:Ifend If LD+T:Then C+(L-D)NH:Ifend 判斷輸入點(diǎn)是否位于曲線的前進(jìn)里程樁號(hào)直線段；判斷輸入點(diǎn)是否位于曲線的前進(jìn)里程樁號(hào)直線段；H-E-KIHH-E-KIH：“H=H=”：H H第26頁(yè)/共39頁(yè)5 5、公路縱斷面數(shù)據(jù)程序、公路縱斷面數(shù)據(jù)程序 每個(gè)縱斷面由縱坡和豎曲線組成，程序中每一個(gè)變坡點(diǎn)每個(gè)縱斷面由縱坡和豎曲線組成，程序中每一個(gè)變坡點(diǎn)計(jì)算范圍是從豎曲線前的縱坡任意樁號(hào)開(kāi)始到豎曲線后縱坡計(jì)算范圍是從豎曲線前的縱

17、坡任意樁號(hào)開(kāi)始到豎曲線后縱坡上的任一樁號(hào)結(jié)束。上的任一樁號(hào)結(jié)束。Filename:Filename:* * * * * * *（自定子程序名）（自定子程序名）Lbl 0: Lbl 0: “DhDh”? :E? :E”L=L=”?L:?L:”I=I=”?I:?I:”K=K=”?K?KIf LIf L* * * * *( (曲線段小里程樁號(hào)之前的直線段任一樁曲線段小里程樁號(hào)之前的直線段任一樁號(hào)號(hào)) ):Then:Then* * * * *（變坡點(diǎn)高程）（變坡點(diǎn)高程）C: C: * * * * *（變坡點(diǎn)樁號(hào)）（變坡點(diǎn)樁號(hào)）D: D: * * * * *（變坡點(diǎn)小里程段縱坡坡度）（變坡點(diǎn)小里程段縱坡

18、坡度）M:IM:I* * * * *（變坡點(diǎn)小里（變坡點(diǎn)小里程段縱坡坡度）程段縱坡坡度）N: N: * * * * *（豎曲線半徑）（豎曲線半徑）R: R: * * * * *（變坡（變坡點(diǎn)樁號(hào)）點(diǎn)樁號(hào)）C: IfendC: Ifend：ProgProg“* * * * *（主程序名）（主程序名）”: : Goto0 Goto0 依次輸入各變坡點(diǎn)設(shè)計(jì)參數(shù)；依次輸入各變坡點(diǎn)設(shè)計(jì)參數(shù)；第27頁(yè)/共39頁(yè)6 6、使用說(shuō)明、使用說(shuō)明 “DhDh”提示使用者輸入所求點(diǎn)距離路面的厚度，提示使用者輸入所求點(diǎn)距離路面的厚度， “L=L=”，輸，輸入所求點(diǎn)樁號(hào)入所求點(diǎn)樁號(hào), ,”I I”= =表示輸入路面橫坡值

19、，表示輸入路面橫坡值，“K=K=”表示輸入路面表示輸入路面某點(diǎn)至中樁距離，均為正值。以上數(shù)據(jù)均在程序運(yùn)行時(shí)輸入。某點(diǎn)至中樁距離，均為正值。以上數(shù)據(jù)均在程序運(yùn)行時(shí)輸入。 L L表示豎曲線前縱坡任意里程的樁號(hào)，本程序每段豎曲線參表示豎曲線前縱坡任意里程的樁號(hào)，本程序每段豎曲線參數(shù)計(jì)算范圍是從豎曲線前的縱坡上任意點(diǎn)到豎曲線后縱坡上任意數(shù)計(jì)算范圍是從豎曲線前的縱坡上任意點(diǎn)到豎曲線后縱坡上任意點(diǎn)的樁號(hào)。點(diǎn)的樁號(hào)。第28頁(yè)/共39頁(yè)7 7、高邊坡放樣算法、高邊坡放樣算法利用程序進(jìn)行邊坡放樣，工作步驟如下：利用程序進(jìn)行邊坡放樣，工作步驟如下： 司鏡員走到目的地后，先測(cè)出一個(gè)點(diǎn)的坐標(biāo)和高程；司鏡員走到目的地后

20、，先測(cè)出一個(gè)點(diǎn)的坐標(biāo)和高程； 利用坐標(biāo)正反算程序求出該點(diǎn)在線路中的樁號(hào)和距中距離，然后利利用坐標(biāo)正反算程序求出該點(diǎn)在線路中的樁號(hào)和距中距離，然后利用高程計(jì)算程序，計(jì)算出該點(diǎn)所在樁號(hào)道路邊樁設(shè)計(jì)高程，最后根據(jù)本用高程計(jì)算程序，計(jì)算出該點(diǎn)所在樁號(hào)道路邊樁設(shè)計(jì)高程，最后根據(jù)本程序計(jì)算出立鏡點(diǎn)至距中距離差值程序計(jì)算出立鏡點(diǎn)至距中距離差值K K，指揮司鏡員靠近道路中線或者往，指揮司鏡員靠近道路中線或者往外偏移多少米。外偏移多少米。 重復(fù)上述步驟，至重復(fù)上述步驟，至K K 小于邊坡寬度控制精度要求為止。小于邊坡寬度控制精度要求為止。算法原理如下圖示：算法原理如下圖示：第29頁(yè)/共39頁(yè)第30頁(yè)/共39頁(yè)

21、根據(jù)根據(jù)HcHc、HsHs的高差計(jì)算出的高差計(jì)算出K2K2，按照，按照P P點(diǎn)的高程，邊坡頂距中樁的理論寬度點(diǎn)的高程，邊坡頂距中樁的理論寬度K K理論理論，具體計(jì)算如下：具體計(jì)算如下：K K理論理論=K1+h=K1+h* *n1+m+hn1+m+h* *n2+m+n2+m+（Hc-Hs-2hHc-Hs-2h）* *n3 n3 （K1K1為設(shè)計(jì)值）為設(shè)計(jì)值） 則則K=K- KK=K- K理論理論 K K 求出來(lái)后，可以指揮司鏡員靠近道路求出來(lái)后，可以指揮司鏡員靠近道路K K米，然后重復(fù)以上步驟，直到米，然后重復(fù)以上步驟，直到K K值能滿足邊坡控制精度。填方邊坡的算法原理是同樣的。值能滿足邊坡控制

22、精度。填方邊坡的算法原理是同樣的。第31頁(yè)/共39頁(yè)8 8、高邊坡放樣程序、高邊坡放樣程序Filename:Filename:* * * * * * *（程序名可自定）（程序名可自定） 主程序主程序Lbl 0:Lbl 0:“Hs=Hs=” ?A: ?A: “Lc=Lc=” ?B: ?B: “Hc=Hc=” ?C ?C 提示輸入測(cè)點(diǎn)所在橫斷面邊樁的設(shè)計(jì)高程提示輸入測(cè)點(diǎn)所在橫斷面邊樁的設(shè)計(jì)高程HsHs、距中樁的距離、距中樁的距離LcLc（可由（可由前二個(gè)基本程序得出）、測(cè)點(diǎn)高程前二個(gè)基本程序得出）、測(cè)點(diǎn)高程HcHc；A-CD: A-CD: If DIf D0:Then 0:Then ProgPro

23、g“* * * * *-SUB0-SUB0”：Goto 1Goto 1:Ifend:Ifend； 轉(zhuǎn)入挖方邊坡計(jì)算子程序，轉(zhuǎn)入挖方邊坡計(jì)算子程序，* * * * *-SUB0-SUB0為挖方邊坡計(jì)算子程序名；為挖方邊坡計(jì)算子程序名；第32頁(yè)/共39頁(yè)If D8If D8（挖方邊坡第一階高度，本例取為（挖方邊坡第一階高度，本例取為8 8）:Then:Then* *+(D-+(D-8)8)1.751.75( (* *為常數(shù)，為常數(shù)， 1.751.75為第二階坡比，均根據(jù)設(shè)計(jì)參數(shù)為第二階坡比，均根據(jù)設(shè)計(jì)參數(shù)定定) )E:IfendE:Ifend 依次按設(shè)計(jì)輸入各階放坡參數(shù)；依次按設(shè)計(jì)輸入各階放坡參數(shù)

24、；-E-BF: If FE-BF: If F0:Then0:Then” F=F=”:F:FIfendIfend F F表示向遠(yuǎn)離中樁方向移動(dòng)；表示向遠(yuǎn)離中樁方向移動(dòng)；If F0:ThenIf F0:Then” F=F=”:Abs(F):Abs(F)Ifend: Goto 0Ifend: Goto 0 F F表示向中樁方向移動(dòng)；表示向中樁方向移動(dòng)；第33頁(yè)/共39頁(yè)Lbl 1Lbl 1 用于控制挖方邊坡計(jì)算結(jié)果的顯示用于控制挖方邊坡計(jì)算結(jié)果的顯示E-BF: If FE-BF: If F0:Then0:Then” F=F=”:F:FIfendIfend F F表示向中樁方向移動(dòng)；表示向中樁方向移動(dòng)

25、； If F0:ThenIf F0:Then” F=F=”:Abs(F):Abs(F)Ifend: Goto 0Ifend: Goto 0 F F表示向遠(yuǎn)離中樁方向移動(dòng)；表示向遠(yuǎn)離中樁方向移動(dòng)；第34頁(yè)/共39頁(yè)挖方邊坡計(jì)算子程序挖方邊坡計(jì)算子程序Filename:Filename:* * * * * * *-SUB0 -SUB0 子程序名可自定子程序名可自定If DIf D-0.01:Then-0.01:Then* *+Abs(D)+Abs(D)0.50.5( (* *為常數(shù)，為常數(shù)， 1.751.75為第二階坡比，均根據(jù)為第二階坡比，均根據(jù)設(shè)計(jì)參數(shù)定設(shè)計(jì)參數(shù)定) )E:Ifend E:If

26、end -If DIf D-24:Then-24:Then* *+Abs(D+24)+Abs(D+24) ( (* *為常數(shù)，為常數(shù)， 1 1為第四階坡比，均根據(jù)設(shè)計(jì)參為第四階坡比，均根據(jù)設(shè)計(jì)參數(shù)定數(shù)定) )E:IfendE:Ifend：ReturnReturn 依次按設(shè)計(jì)輸入挖方各階放坡參數(shù)依次按設(shè)計(jì)輸入挖方各階放坡參數(shù), ,本例至第四階。本例至第四階。 程序編制后的復(fù)核用施工測(cè)量軟件來(lái)對(duì)照復(fù)核。用施工測(cè)量軟件來(lái)對(duì)照復(fù)核。對(duì)每個(gè)平面線元、豎曲線、高邊坡對(duì)每個(gè)平面線元、豎曲線、高邊坡的每個(gè)臺(tái)階都要逐段與設(shè)計(jì)圖的數(shù)的每個(gè)臺(tái)階都要逐段與設(shè)計(jì)圖的數(shù)據(jù)對(duì)照復(fù)核。據(jù)對(duì)照復(fù)核。第35頁(yè)/共39頁(yè)612435優(yōu)質(zhì)高效優(yōu)質(zhì)高效數(shù)據(jù)準(zhǔn)確數(shù)據(jù)準(zhǔn)確 靈活機(jī)動(dòng)靈活機(jī)動(dòng)