5800公路測量程序使用說明

1、一、程序使用流程 本程序數(shù)據(jù)和主程序是分開的，編程時將不同的工程數(shù)據(jù)存放到不同的數(shù)據(jù)文件里，如A匝道，文件名為A，將匝道A所有的曲線線元參數(shù)輸入A文件里。運行時只要運行文件名A的程序就可以了，具體運行流程見下圖：二、數(shù)據(jù)文件的編寫（一）交點法數(shù)據(jù)文件編輯交點法編寫數(shù)據(jù)文件必須是對稱型的，即直線段緩和曲線段圓曲線段緩和曲線段直線段，（如果任意一端沒有直線段，則把直線段長度看做是0），另外圓曲線兩側(cè)緩和曲線的旋轉(zhuǎn)常數(shù)必須相等，并且和直線段連接處的半徑必須是無窮大。交點法數(shù)據(jù)文件編寫一般是根據(jù)設(shè)計圖紙?zhí)峁┑钠矫媲€參數(shù)一覽表提供的參數(shù)來編寫，每個彎道包括：彎道起點方位角（C），交點X坐標（D），交點

2、Y坐標（E），緩和曲線長度（F，當沒有設(shè)緩和曲線時，F(xiàn)=0），交點轉(zhuǎn)交（G，向左轉(zhuǎn)彎，G為負值，向右轉(zhuǎn)彎，G取正值），交點樁號（H），彎道圓曲線半徑（R）。下圖是一段市政道路設(shè)計參數(shù)數(shù)據(jù)。根據(jù)上圖提供的數(shù)據(jù)，可以編輯成如下的數(shù)據(jù)文件：文件名:CHLNR3DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L)/1000Z3:Lbl 0:If Z30.0001: Then ?L: Else “Xp”?X:”Yp”?Y:XZ1：YZ2：IfEnd:Lbl 1:If L0 :Then 9839E：140F：311723H:600R:IfEnd: If L1060

3、 Then 12956E：70F：-335048H:600R:IfEnd:Prog”XLJS”:If Z30.0001:Then Goto 0:Else (Z1X)cos()(Z2Y)sin()N:LNL:(Z1X)sin(O)+(Z2Y)cos（O）K：If Abs（N）0.001：Then Goto 1：Else “L=“:L“K=”:KIfEnd:Goto 0: IfEnd在面程式中，有兩個條件轉(zhuǎn)移語句即If L0：Then 9839E:140F:311723H:600R:IfEndIf L1060：Then 12956E:70F:-335048H:600R:IfEnd 如果還有其他彎道

4、，可以繼續(xù)完后加。在這些存放設(shè)計參數(shù)的語句前后的程序表達式是固定的。說明：編輯曲線參數(shù)時，每個曲線參數(shù)放在一個If L*.*（兩個彎道中間直線段上的任意樁號） :Then *.*C（彎道起點方位角）：*.*D（交點X坐標）：*.*E（交點Y坐標）：*.*F（緩和曲線長度：*G（轉(zhuǎn)角，向左轉(zhuǎn)為負值，向右轉(zhuǎn)為正值）：*.*H（交點里程樁號）:*R（圓曲線半徑）:IfEnd 條件式語句里，如果有多個彎道，一直按上述形式編下去，變量說明：1、 L*.*彎道參數(shù)的起點范圍，可以是彎道起點，也可以是彎道前直線段里的任意點樁號2、 *.*C 彎道起點方位角3、*.*D、*.*E交點X坐標、Y坐標4、*.*F

5、緩和曲線長度，如果沒設(shè)置緩和曲線，則緩和曲線長度看做05、*G 轉(zhuǎn)角，向左轉(zhuǎn)為負值，向右轉(zhuǎn)為正值6、*.*H、交點里程樁號7、*R 圓曲線半徑注意，運行程序時，第一部是輸入測站坐標X0，Y0，然后輸入近似樁號，主要是為了加快收斂，輸入時注意當根據(jù)樁號和距中距離計算所求點坐標時，請不要把小數(shù)點第四位輸入0.0001，如K21+369.0921，請把樁號輸入21369.092即可，相反，當根據(jù)坐標反算樁號和距中距離時，請在輸入時把第四位小數(shù)數(shù)位0.0001，如K21+200，輸入時請輸入21200.0001。（二）線元法數(shù)據(jù)文件編輯線元法數(shù)據(jù)文件編輯適合于各種各樣的線型組合，特別是在大型立交區(qū)或者

6、是不規(guī)則的線型組合地方，如小區(qū)道路、重丘區(qū)山路等有特別明顯的有點，本程序為了減少使用者設(shè)計參數(shù)的輸入，特別把直線與緩和曲線以及圓曲線連接的地方只要輸入緩和曲線參數(shù)就可以了，這樣可以減少輸入很多設(shè)計參數(shù)，同時節(jié)約大量的內(nèi)存?？聪聢D，該圖是一個半喇叭型的互通立交，一共是5條匝道，我們以D匝道為例，來看看線元法數(shù)據(jù)文件的建立。下表是D匝道的線元表：線元名稱起點樁號偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長度(m) 線元起點坐標、方位角X(m)Y(m)方位角 緩和曲線右偏55926038圓曲線右偏40477989. 87330218緩和曲線右偏6535828D匝道線元數(shù)據(jù)分析：從上表中可以看出，D匝道由三個線

7、元組成，第一段是緩和曲線段，根據(jù)上表判斷，該緩和曲線屬于第一段緩和曲線，其最小半徑處樁號為J=K0+039.289，該處坐標X=494347.926,Y=477989. 873，半徑為R=40米，方位角W=30218，緩和曲線旋轉(zhuǎn)常數(shù)P=55，在緩和曲線終點K0+039.289處，有一圓曲線與其相連接，長度I=39.216。第二段是圓曲線，第三段又是一段緩和曲線，根據(jù)上表判斷，該曲線屬于第二緩和曲線，曲線最小半徑位于與園曲線連接處，樁號J=K0+78.504，坐標為X=494380.677，Y=477971.271,方位角W=35828，最小半徑R=40，緩和曲線旋轉(zhuǎn)常數(shù)P=-65（為了判斷是

8、第一段還是第二緩和曲線，我們通過P的正負來判斷，第一緩和段P統(tǒng)一用正數(shù)表示，第二緩和段統(tǒng)一用負號表示。起點處相連的圓曲線長度I可以看做0，也可以看做是39.216.由此我們整理下。從整個線型全部是向右轉(zhuǎn)向，所以R全部取正數(shù)。具體如下：第一段緩和曲線線元參數(shù)：最小半徑處坐標X=494347.926 Y=477989. 873最小半徑R=40最小半徑處方位角：W=30218緩和曲線旋轉(zhuǎn)常數(shù)P=55第二段緩和曲線線元參數(shù)最小半徑R=40最小半徑處方位角：W=35828緩和曲線旋轉(zhuǎn)常數(shù)P=65最小半徑處樁號J= W=35828此段數(shù)據(jù)計算范圍可以從K0+78.504到匝道結(jié)束。當樁號L位于K0+000

9、 K0+78.504時，曲線參數(shù)按第一段編寫，當L78.504時，按第二段緩和曲線編寫，當然第二段緩和曲線計算范圍也可以從圓曲線起點K0+039.289到K0+78.504中間任意樁號開始。下面是D匝道的數(shù)據(jù)程序文件（文件名“DZD”）：3DimZ：X0”?A:”Y0”?B:“Ln”?L: Abs(L)-Int(Abs(1000L)/1000Z3:Lbl 0:If Z30.0001: Then ?L: Else “Xp”?X:”Yp”?Y:XZ1：YZ2：IfEnd:Lbl 1:If L0 :Then X：477989. 873Y：40R：3021826W：55J：IfEnd: If L78.

10、504：Then X：Y：40R：35828W：-65J：IfEnd:Prog”FDCH”: Prog”XLJS”: If Z30.0001:Then Goto 0:Else (Z1X)cos()(Z2Y)sin()N:LNL:(Z1X)sin(O)+(Z2Y)cos（O）K：If Abs（N）0.001：Then Goto 1：Else “L=“:L“K=”:KIfEnd:Goto 0: IfEnd在上面程式中，每個緩和曲線的線元參數(shù)放在一個If Then IfEnd循環(huán)語句中，If 后面緊跟計算的起點范圍，終點范圍從下段的起點范圍結(jié)束。變量定義：1、X、Y 輸入緩和曲線半徑最小處的X、Y坐

11、標2、R 緩和曲線最小半徑，當線路左轉(zhuǎn)時，半徑數(shù)據(jù)前面加“-”號，以判斷線路轉(zhuǎn)向。3、W 輸入緩和曲線半徑最小處的方位角4、P 緩和曲線旋轉(zhuǎn)常數(shù)，第一緩和曲線長度為正數(shù)，第二緩和曲線常數(shù)為負數(shù)。當不設(shè)緩和曲線時，P=05、I 與緩和曲線最小半徑端連接的圓曲線長度。6、J緩和曲線小半徑段的樁號。再看看E匝道數(shù)據(jù)文件編輯E匝道線元設(shè)計數(shù)據(jù)表線元名稱起點樁號偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長度(m) 線元起點坐標、方位角X(m)Y(m)方位角 直線7949緩和曲線右偏120727949圓曲線右偏2009008緩和曲線右偏9510721緩和曲線左偏7511349圓曲線左偏9224在E匝道線元表中，我們

12、可以看出，E匝道式由一段直線段緩和曲線段圓曲線段緩和曲線段緩和曲線段圓曲線段連接起來的。值得注意的是，在位于K0+248.491處，是兩段反向的緩和曲線連接點，在編寫數(shù)據(jù)程序文件時，分三段編寫，第一段從K0+000到K0+203.366，第二段從K0+203.366到K0+248.919，第三段從K0+248.919到線路終點K0+331.13。具體文件如下：（文件名“EZD”）3DimZ：X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L)/1000Z3:Lbl 0:If Z30.0001: Then ?L: Else “Xp”?X:”Yp”?Y:XZ1：YZ2

13、：IfEnd:Lbl 1:If L6Y：200R：9008W：120J：IfEnd: If LY：200R：10721W：-95J：IfEnd: If L248.491：Then X：R：922419W：75J：IfEnd: Prog”FDCH”: Prog“XLJS”：If Z30.0001:Then Goto 0:Else (Z1X)cos()(Z2Y)sin()N:LNL:Int(1000L)L:(Z1X)sin(O)+(Z2Y)cos（O）K：If Abs（N）0.001：Then Goto 1：Else “L=“:L“K=”:KIfEnd:Goto 0: IfEnd為了讓使用者熟悉掌

14、握數(shù)據(jù)程序文件的編寫線元法的數(shù)據(jù)程序文件，現(xiàn)在將C、F、G等匝道的線元數(shù)據(jù)列出來，供使用者練習(xí)。C匝道數(shù)據(jù)線元名稱起點樁號偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長度(m) 線元起點坐標、方位角X(m)Y(m)方位角 圓曲線0右偏3265619直線6494991. 262478104. 12315809緩和曲線3右偏65494971. 51115809圓曲線2右偏14016420緩和曲線3右偏6517647直線1右偏85182.58緩和曲線4右偏8585182.58圓曲線4右偏8521137線元名稱起點樁號偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長度(m) 線元起點坐標、方位角X(m)Y(m)方位角 直線11

15、525232緩和曲線5右偏10090.90925232圓曲線4右偏11027612緩和曲線8右偏12032852F匝道數(shù)據(jù)G匝道數(shù)據(jù)線元名稱起點樁號偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長度(m) 線元起點坐標、方位角X(m)Y(m)方位角 緩和曲線0右曲線2右偏23019933緩和曲線6右偏19023642三、道路計算程序道路計算程序是核心程序，但是道路計算程序是固定的，使用者不需要做任何修改，也不直接運行道路計算程序分為兩部分，第一部分是常規(guī)的對成型線型組合計算的程序（文件名：XLJS），利用交點法編輯的數(shù)據(jù)文件可以直接調(diào)用；第二部分是適用于非對稱的線型組合計算文件（文

16、件名：FDCH），在數(shù)據(jù)文件調(diào)用完“FDCH”文件后，還要調(diào)用“XLJS”文件。線路計算程序（XLJS）Deg:Fix 4:GAbs(G)V:F2(24R)-F(4)(2688R(3)+F(6)(506880R(5)-F(8)(154828800R(7)P:F2-F(3)（240R2）+F（5）(34560R（4）)-F（7）(8386560R（6）)+F（9）(3158507520R（8）)Q:Q+(R+P)Vtan(G2)T:RGV180+FI:IF LH-T:Then L-HJ:Goto 1:IfEnd:If LH-T+F:Then L-H+TJ:CZ:1S:Goto 2:IfEnd:I

17、f LH-T+I-F:Then L-H+TJ:CZ:1S: Goto 3:IfEnd:If LH-T+I:Then H-T+I-LJ:C+GC:-1S:Goto 2:If LH-T+I:Then L-H-I+2TJ:C+GC:Goto 1:IfEnd:Lbl 1:D+Jcos CX:E+Jsin CY:CO: Goto C:Lbl 2:(J-J(5)40(RF)2+J(9)(3456(RF)(4)-J(13)(599040(RF)(6)+J(17)(175472640(RF)(8)-T)SM:(J(3)(6RF)-J(7)(336(RF)(3)+J(11)(42240(RF)(5)-J(15)

18、(9676800(RF)(7)+J(19)(3530097000(RF)(9)VN:C+90J2SVRFO:Goto BLbl 3:180(J-0.5F) RO:Q+Rsin (O)-TM:(P+R(1-cos (O)VN:C+VOO：Goto BLbl B:D+Mcos(C)-Nsin(C)X:E+Msin(C)+Ncos(C)Y :Goto C:Lbl C:If Z30.0001:Then ?K: M?U:K180-U U:O+UAbs(K)(K+10(-10) Z:X+Abs(K)cos(Z)XY+Abs(K)sin(Z)Ytan-1(Y-B)(X-A+10(-10)WX-AW+180W

19、:WW+360W:(X-A)2+(Y-B)2)SDIS: SFW: WDMSIfEnd非對稱線型組合計算程序（FDCH）Abs(P+10(-10)）(P+10(-10)S：Abs (R)RV:Abs(R)R:P2RF:180(I+F)V(R)G:90FSV(R)O:If S=1:Then W-OC:Else If S=-1:Then W-O-GC :IfEnd:IfEnd:If C360:Then C-360C:IfEnd:F2(24R)-F(4)(2688R(3)+F(6)(506880R(5)-F(8)(154828800R(7)P:F2-F(3)(240R2)+F5(34560R(4)-

20、F(7)(8386560R6)+F9(3158507520R(8)Q:Q+(R+P)Vtan(G2)T:If S=1:Then J-F+TH:CZ:If S=-1:Then J-I-F+TH:C+GZ:IfEnd:IfEnd:(F-F(3)(40R2)+F(5)(3456R(4)-F(7)(599040R(6)+F(9)(175472640R(8)-T)SM:(F2(6R)-F(4)(336R(3)+F(6)(42240R(5)-F(8)(9676800R(7)+F(10)(3530097000R(9)VN:X-Mcos(Z)+Nsin(Z)D:Y-Msin(Z)-Ncos(Z)E四、程序執(zhí)行

21、程序運行分為兩種，第一種是根據(jù)根據(jù)使用者輸入的樁號和距中距離計算出所求點的坐標和測站點到該點的方位角和水平距離，可以直接利用計算器提供的距離和方位角進行極坐標放樣。另一種是根據(jù)使用者輸入的實測坐標計算出該點的樁號和距中距離，可以根據(jù)樁號和距中距離進行高邊坡、隧道斷面點的設(shè)計高程、以及進行路面高程控制計算方面很方便。（一）、根據(jù)樁號和距中距離計算所求點的坐標、及方位角和水平距離。要進行程序的線路計算，直接運行數(shù)程序文件就可以了，不需要理會計算程序。如果計算某樁號L距離中線K處的坐標X，Y和該點到測站點的距離和方位角，運行提示如下：X0? 提示輸入測站點X坐標Y0？ 提示輸入測站點Y坐標 （測站點

22、的位數(shù)和數(shù)據(jù)程序文件里坐標取位要一致）Ln? 計算點近似樁號 近似樁號輸入第四位小數(shù)后不能等于0.0001，L？ 輸入計算點準確樁號 近似樁號輸入第四位小數(shù)后不能等于0.0001，K？ 提示輸入距離中樁的樁號 如果計算點位于線路的左幅，則在數(shù)據(jù)前加入“-”號，如果是計算中樁坐標，則輸入0M？ 輸入該點與線路的前進方向的按順時針轉(zhuǎn)過的角度，常于斜交的涵洞，橋梁等構(gòu)造物。X 顯示所求點的X坐標Y 顯示所求點的Y坐標FW 顯示所求點至測站點的方位角DIS 顯示所求點至測站點的距離要繼續(xù)計算則從L?開始，計算新點的坐標。具體流程見程序流程圖的左邊部分。例：要計算D匝道的DK0+020中樁坐標、DK0+

23、080左邊5.3米的坐標、Dk0+240斜交7558、距中右側(cè)5米處的坐標，并計算出該點至坐標為X=，Y=控制點的水平距離和方位角，運行文件“DZD”提示如 下： X0? 測站X坐標 Y0？ 測站Y坐標 L？ 20 輸入所求點樁號 K? 0 輸入距中距離 M? 90 輸入斜交角度 X= 494341.482 顯示所求點X坐標 Y= 478007.903 顯示所求點Y坐標DIS 666.2959 顯示所求點至測站平距 FW 18411顯示所求點至測站方位角L？ 80 輸入下點的樁號M？ 90FW 18816L？ 240M？ 7558FW 17520（二）、根據(jù)坐標反算樁號和距中如果是根據(jù)某點的坐

24、標，計算出該點在線路中的樁號和距離，程序運行時提示如下：X0? 提示輸入測站點X坐標Y0？ 提示輸入測站點Y坐標 （測站點的位數(shù)和數(shù)據(jù)程序文件里坐標取位要一致）Ln? 計算點近似樁號 近似樁號輸入第四位小數(shù)后不能等于0.0001，Xp？ 所求點P的X坐標Yp？ 所求點P的Y坐標L 顯示所求點的樁號K 顯示所求點的距中距離，如果位于線路的左邊，則顯示結(jié)果為負值，如果K為0時，則該點在線路中線上。計算新點的樁號和距中距離，則從?Xp 開始。如此循環(huán)計算。具體流程見流程圖的右邊部分例：求點X=494382.2290，Y=477965.9594在D匝道中的位置，運行文件“DZD”如下：X0? 測站X坐

25、標(可輸入0)Y0？ 測站Y坐標(可輸入0)Xp? 494382.2290 輸入所求點X坐標Yp？ 477965.9594 輸入所求點Y坐標 L= 79.999999 顯示所求點樁號 K= -5.2989 顯示所求點距中距離, “-“ 表示該點位于中樁左側(cè)五、程序應(yīng)用（一）本程序在高邊坡放樣中的應(yīng)用高邊坡放樣是目前公路道路測量工作普遍要做的一項工作，邊坡坡頂線或者填方邊坡坡腳線是邊坡放樣最繁瑣的工作，利用本程序進行邊坡放樣，工作步驟如下：1、 司鏡員走到目的地后，先測出一個點的坐標和高程；2、 利用本程序求出該點在線路中的樁號和距中距離，然后根據(jù)計算出來的樁號和設(shè)計圖紙，內(nèi)插出道路邊樁高程，根

26、據(jù)道路邊樁高程和道路設(shè)計寬度、坡度、設(shè)計碎落平臺的寬度和間隔高度、實測點的高程計算出按實測高程，邊坡距中距離。3、 根據(jù)高程算出的距中距離和程序計算出立鏡點至距中距離差值dK，指揮司鏡員靠近道路中線或者往外偏移多少米。4、 重新做13工作，直到dK 小于邊坡寬度控制精度要求為止。如上圖，司鏡員在P點立鏡，測出P點坐標和高程后，用本程序計算出P點到的中樁樁號和距離中樁距離K，根據(jù)中樁樁號和有關(guān)設(shè)計數(shù)據(jù)內(nèi)插出邊坡坡腳點的設(shè)計高程Hs和距離中樁的距離K1，根據(jù)Hc、和Hs的高差計算出K2，按照P點的高程，邊坡頂距中樁的理論寬度K理論，具體計算如下：K理論=K1+h*n1+m+h*n2+m+（Hc-H

27、s-2h）*n3 則dK=K- K理論 dK 求出來后，可以指揮司鏡員靠近道路dK米，然后重復(fù)以上步驟，直到dK值能滿足邊坡控制精度。（二）本程序在隧道斷面欠挖、超挖放樣中的應(yīng)用。利用本程序進行隧道斷面開挖的欠挖和超挖計算，看下圖：用全站儀測出P點的坐標和標高后，根據(jù)坐標算出P點的中樁樁號和距中距離K，根據(jù)中樁樁號查看P點的路面高程，算出P點至設(shè)計路面的高差h，根據(jù)P點所在圓弧的圓心O2在斷面中的位置（K2，h2）算出P點到O2點距離R2，用R2-R2的差距就是P點的超挖或者欠挖的數(shù)據(jù)。（三）本程序在路面施工控制放樣中的應(yīng)用路面施工時，路面的軸線偏位、路面寬度、路面高程是測量的重要控制指標，也

28、是道路施工控制最嚴格的一道測量控制。利用本程序輸入樁號和距中距離，可以直接計算出所求點至測站點的水平距離和方位角，從而直接通過極坐標法直接放出該點在實地的位置。（四）處理線路設(shè)計中的“斷鏈”問題斷鏈是線路設(shè)計中經(jīng)常出現(xiàn)的問題，斷鏈分為長鏈與短鏈，如果是短鏈，那么只要彎道的計算范圍從短鏈處分界就可以了，如果是長鏈，則需要把線路分成兩個文件，從開始出現(xiàn)斷鏈處分，這樣可以避免樁號相同，但位置不同的情況。（五）本程序在道路竣工驗收過程中的應(yīng)用道路竣工驗收，其主要方面就是軸線偏位和寬度，可以通過現(xiàn)場測量道路中線的坐標，通過坐標反算出該點和設(shè)計中線的偏移值K（軸線偏位值）。附：附表一：CHLNR計算出來的

29、逐樁坐標表C匝道坐標一覽表樁號X(m)Y(m)樁號X(m)Y(m)樁號X(m)Y(m)8106CK75500CK9804CK29208CK46604CK30027094024067021031058076025079001042D匝道坐標一覽表XYXYXY4943547794樁號坐標樁號坐標樁號坐標E匝道坐標一覽表F匝道坐標一覽表G匝道坐標一覽表六、公路縱斷面高程計算公路縱斷面計算也是采用計算程序和數(shù)據(jù)程序分開的原則，數(shù)據(jù)文件是專門存放道路縱斷面設(shè)計參數(shù)，對于多個工程，可以建立多個數(shù)據(jù)文件，這樣每個數(shù)據(jù)文件通過調(diào)用計算程序就可以計算出該點的高程。（一） 數(shù)據(jù)文件每個縱斷面由縱坡和豎曲線組成，本

30、程序每一個變坡點計算范圍是從豎曲線前的縱坡任意樁號開始到豎曲線后縱坡上的任一樁號結(jié)束。下表是某線路路基縱斷面設(shè)計的參數(shù)一覽表：根據(jù)上表編程數(shù)據(jù)文件如下：文件名BBR從上面程序看， 這個語句是固定的，“Dh”提醒使用者輸入所求點距離路面的厚度，比如路面底基層距離路面厚度為37cm，則輸入0.37，表示所求點是路面底基層頂面高程，“L=”，輸入所求點樁號,”I”=表示輸入路面橫坡值，“K=”表示輸入路面某點至中樁距離，均為正值。以上數(shù)據(jù)均在程序運行時輸入。在每一個變坡點處，要求輸入的參數(shù)有：C；輸入變坡點高程D：輸入邊坡點樁號M：輸入變坡點小里程段縱坡坡度N：輸入變坡點大里程側(cè)縱坡坡度R：豎曲線半

31、徑L表示豎曲線前縱坡任意里程的樁號，本程序每段豎曲線參數(shù)計算范圍是從豎曲線前的縱坡上任意點到豎曲線后縱坡上任意點的樁號。（二） 高程計算程序（文件名：GCJS）高程計算文件代碼如下：（三） 運行運行BBR程序顯示如下Dh？ 提示輸入至路面厚度L=? 提示輸入樁號i？ 提示輸入橫坡度K？ 提示輸入距中距離，均為正數(shù)H= 提示輸出所求點高程例：根據(jù)上表計算K38+660中樁高程、K38+900右側(cè)4.5米高程、K39+600底基層面左側(cè)4.5米高程（假設(shè)路面瀝青厚度為6cm，封釉層1cm，水泥穩(wěn)定層基層厚度為30cm）運行BBR文件Dh？ 0L=？ 38660i？ 0K？ 0L=？ 38900退出

32、程序，重新運行L=？ 39600附：5800計算器公路三維全能程序.(丟掉圖紙輕松測量)說明清晰！請大家不要因為我的程序去買5800計算器了,建議買9860,我有時間了,就把這個程序改成9860 請大家經(jīng)常關(guān)注程序B-H的更新 2009,5,10日修改見超高子程序B-H黃色部分,另超高數(shù)據(jù)庫增加在超高緩和段輸入超高為公路外側(cè)超高說明 2009，5，8日正反算選擇程序：ZS-FS 更改小錯，詳見紫色修改內(nèi)容 2009,4,30日更改如下：把原來的個子程序分解成個子程序，解決了一個大的豎曲線不能包含幾個超高變化段，另外程序內(nèi)也有兩處改變請看紅色區(qū)域本程序經(jīng)過綜合考慮的設(shè)計缺陷，計算速度較慢故只使用

33、高斯四節(jié)點法為計算內(nèi)核支持多條線路正反算,中樁,邊樁高程計算,超高計算,超高緩和計算,加寬計算,加寬緩和計算,邊坡開口線計算,擋土墻坡腳線計算，考慮了中間綠化帶的影響，適用與國家高速公路至鄉(xiāng)村四級公路計算和放樣，路基路面工程可以直接得出中邊樁的設(shè)計三維坐標，去掉加寬和超高影響的計算困難，邊坡和坡腳線計算可直接在邊坡上提取坐標帶入程序，經(jīng)過所有設(shè)計因素的綜合，得出更改邊距并顯示修改偏差后的坐標反算速度明顯提高,只需要3秒.程序無錯，可放心輸入，另本程序可以增加隧道超欠挖計算子程序,非常方便,因為每個隧道的斷面數(shù)據(jù)不一樣,所以在此沒有明確寫出,有需要的可以聯(lián)系我：本人QQ691150484，只為交

34、友。不懂的可以跟貼提問，如果有成功的朋友跟貼說說你的經(jīng)驗一起交流！ 計算器主程序：ZHU-CHENG-XU Lbi0:“1，ZS=FS，2ZS，3FS，4XYSG，5?！保縐: U=1Prog”ZS-FS”: 進入公路三維程序 U=2Porg”ZS”: 進入坐標正算程序 U=3Porg”FS”: 進入坐標反算程序 U=4Porg”XY SG”: 進入大地坐標轉(zhuǎn)施工坐標程序 Goto0: 說明：計算器總的主程序，進入選擇各種分支計算程序。1為公路三維計算，2為普通正算，3為普通反算，4為大地坐標轉(zhuǎn)施工坐標。選擇錯誤重新選擇。此程序可以不用輸入，只為給大家一個思路,可以把計算器所有程序集中到一個主

35、程序內(nèi)管理. 公路三維部分 正反算選擇程序：ZS-FS Deg: /設(shè)置角度模式 20DimZ: /擴展變量“1LZXY，2XYLZ,3BIANPO-FY”？U： /正反算選擇，正算選1，反算選2,坡口坡腳選3 If U=1: ThenProg”ZS-XH”:IfEnd: /進入正算循環(huán)主程序 IfU=2:Then Prog”FS-XH”:IfEnd: /進入反算循環(huán)主程序 IfU=3:ThenProg”BP-FY”:IfEnd: /進入邊坡開挖主程序 正算循環(huán)主體程序ZS-XH “1PT-2SJ”？W： /普通計算和設(shè)計邊距計算選擇 “XL-XZ“？U： /選擇線路 1N If W=1: T

36、hen /運行普通計算模式 邊踞自由輸入 Lbi0:”L=”?L:”Z=”?Z: /輸入樁號和邊距 Porg”ZS-XH-1“：Goto0:IfEnd: /運行正算循環(huán)子程序 If W=2:Then /運行設(shè)計計算模式 邊距按設(shè)計輸入 Lbi1:”L=”? L： /輸入樁號 Porg”0。5LUKUAN”: /錄入公路加寬后，左右側(cè)設(shè)計邊距 Porg”ZS-XH-1“：Goto0:IfEnd: /運行正算循環(huán)子程序 正算循環(huán)子程序ZS-XH-1 Prog”PM-XL-XZ”: /進入平面線路選擇程序?qū)€路線元進行選擇 Prog”CHAOXIAN-CL”: /里程超限處理 Prog”GL-ZS”

37、: /進入坐標正算程序 Prog”GL-BZ-ZS”: /進入公路邊樁正算程序 Prog”GC-XL-XZ”: /進入高程線路選擇程序?qū)€路線元進行選擇 Prog”GC”: /進入高程部分提取中樁高程 ProgCG-XL-XZ: /進入超高數(shù)據(jù)庫提取超高數(shù)據(jù) If W=1:ThenProg”B-H”: /普通計算時進入邊樁高程部分提取邊樁高程 ElseZ3 Z: Porg“B-H”：/按設(shè)計計算時候代入減去半邊綠化帶后的路基邊距，提取邊樁高程 Ifend:Prog”ZS-XS”: /進入正算顯示程序，提取正算三維結(jié)果 反算循環(huán)主體程序FS-XH 0Z:“XL-XZ”？U： /選擇線路 1N L

38、bi0： “L”？L：“X=”？T：“Y=”？S： /輸入起算假定樁號，實測X Y Prog”GL-FS”: /進入公路反算程序 Prog”FS-XS”: /進入反算顯示程序 Goto0: 坐標正算程序GL-ZS .1739274226I:.3260725774J: .0694318442K:.3300094782E : /四節(jié)點法計算系數(shù)錄入 1-EF：1-KM： Q+KrO(C+KD) K: /數(shù)據(jù)庫要用X、Y、Q作為起點坐標方位角 Q+ErO(C+ED) E: /r是弧度,輸入方法FUNCTION 選5 Q+FrO(C+FD) F: Q+MrO(C+MD) M: X+O(ICos(K)+

39、JCos(E)+JCos(F)+ICos(M) X: /計算出X坐標 Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M) Y: /計算出Y坐標 Q+Or(C+D) Q： /計算出算點方位角,O是字母,r是弧度: 邊樁坐標計算程序GL-BZ-ZS: XJ?A:X+Zcos(Q+A) G: /計算出邊樁X坐標 Y+ZSin(Q+A) M: /計算出邊樁Y坐標 公路反算程序GL-FS Do:Porg”PM-XL-XZ”: /進入平面線路選擇程序 Porg”CHAOXIAN-CL”: /里程超限處理程序 Porg”GL-ZS”: /進入公路正算4節(jié)點程序 T-XI:S-YJ: /試

40、算點與測點X，Y距離差 Pol(I,J):J-QJ: /方位角轉(zhuǎn)換為接近試算點到測點的值： Rec(I,J): /計算出X差和Y差（X里程，J邊） L+IL： /修改后的里程 Abs(I) I: /修改值的絕對值 LpWhile I0.001: /小于一毫米通過，大于一毫米循環(huán)計算 中樁高程計算程序GC If I-A0:Then1H:IfEnd: /開口向上部分賦值 IfI-A=0:ThenGoto1: IfEnd: /無豎曲線部分賦值 IfI-A0:Then-1H:IfEnd: /開口向下時賦值 (L-C)I+K+(L-C)2/(2E)HI： /計算得出豎曲線部分中樁高程 Goto2:Lbi

41、1: K+(L-C)II: /計算得出無豎曲線部分中樁高程 Lbi2: 邊樁高程計算程序B-H （L-C）/（D-C）P: /計算點占本線元長比例 3P(2(S)-2P(3(S) P: /計算得線性和高次拋物線系數(shù) F+P（T-F）E： /初步計算計算點橫坡 If V=1:Then If N= -1:Then /直線和直緩，緩直,曲線左偏時 If Z0：Then-EE: IfEZ4:ThenZ4E: IfEnd : /計算左側(cè)時，橫坡大于一般橫坡取一般橫坡 I+Abs(Z)EO: IfEnd : /左側(cè)高程 IfZ0:Then I+ZFO:IfEnd: Ifend: /右側(cè)高程得數(shù) If N=

42、1:Then IfZ0:Then I+Abs(Z)EO:IfEnd: /曲線右偏時，左側(cè)高程得得 IfZ0:Then-EE:If EZ4:Then Z4E:IfEnd /右側(cè)高程橫坡大于一般橫坡，取一般橫坡 I+ZEO:IfEnd: IfEnd: IfEnd: /右側(cè)高程得數(shù) IfV=2:ThenIf Z0:Then I+ZEO:IfEnd:/圓曲線全超高和S曲線超高漸變部分右側(cè)高程得數(shù) IfZ0:ThenI-Abs(Z)EO:IfEnd:IfEnd: / 圓曲線全超高和S曲線超高漸變部分左側(cè)高程得數(shù) 設(shè)計標準路面寬度子程序 CHANG-SHU 12Z1： /錄入12米為路面半寬度，根據(jù)設(shè)計修改 Z2： /錄入1.5米為綠化帶半寬，根據(jù)設(shè)計修改，無綠化帶輸入0 -0.02 Z4: /錄入-0。02為公路一般橫坡，根據(jù)設(shè)計修改 / 注：在以中