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

2、Y坐標(biāo)（E），緩和曲線長(zhǎng)度（F，當(dāng)沒有設(shè)緩和曲線時(shí)，F(xiàn)=0），交點(diǎn)轉(zhuǎn)交（G，向左轉(zhuǎn)彎，G為負(fù)值，向右轉(zhuǎn)彎，G取正值），交點(diǎn)樁號(hào)（H），彎道圓曲線半徑（R）。下圖是一段市政道路設(shè)計(jì)參數(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在面程式中，有兩個(gè)條件轉(zhuǎn)移語句即If L0：Then 9839E:140F:311723H:600R:IfEndIf L1060：Then 12956E:70F:-335048H:600R:IfEnd 如果還有其他彎道

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

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

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

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

8、第一段還是第二緩和曲線，我們通過P的正負(fù)來判斷，第一緩和段P統(tǒng)一用正數(shù)表示，第二緩和段統(tǒng)一用負(fù)號(hào)表示。起點(diǎn)處相連的圓曲線長(zhǎng)度I可以看做0，也可以看做是39.216.由此我們整理下。從整個(gè)線型全部是向右轉(zhuǎn)向，所以R全部取正數(shù)。具體如下：第一段緩和曲線線元參數(shù)：最小半徑處坐標(biāo)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最小半徑處樁號(hào)J= W=35828此段數(shù)據(jù)計(jì)算范圍可以從K0+78.504到匝道結(jié)束。當(dāng)樁號(hào)L位于K0+000

9、 K0+78.504時(shí)，曲線參數(shù)按第一段編寫，當(dāng)L78.504時(shí)，按第二段緩和曲線編寫，當(dāng)然第二段緩和曲線計(jì)算范圍也可以從圓曲線起點(diǎn)K0+039.289到K0+78.504中間任意樁號(hào)開始。下面是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在上面程式中，每個(gè)緩和曲線的線元參數(shù)放在一個(gè)If Then IfEnd循環(huán)語句中，If 后面緊跟計(jì)算的起點(diǎn)范圍，終點(diǎn)范圍從下段的起點(diǎn)范圍結(jié)束。變量定義：1、X、Y 輸入緩和曲線半徑最小處的X、Y坐

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

12、可以看出，E匝道式由一段直線段緩和曲線段圓曲線段緩和曲線段緩和曲線段圓曲線段連接起來的。值得注意的是，在位于K0+248.491處，是兩段反向的緩和曲線連接點(diǎn)，在編寫數(shù)據(jù)程序文件時(shí)，分三段編寫，第一段從K0+000到K0+203.366，第二段從K0+203.366到K0+248.919，第三段從K0+248.919到線路終點(diǎn)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ù)線元名稱起點(diǎn)樁號(hào)偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長(zhǎng)度(m) 線元起點(diǎn)坐標(biāo)、方位角X(m)Y(m)方位角 圓曲線0右偏3265619直線6494991. 262478104. 12315809緩和曲線3右偏65494971. 51115809圓曲線2右偏14016420緩和曲線3右偏6517647直線1右偏85182.58緩和曲線4右偏8585182.58圓曲線4右偏8521137線元名稱起點(diǎn)樁號(hào)偏向半徑或緩和曲線旋轉(zhuǎn)常數(shù)A線元長(zhǎng)度(m) 線元起點(diǎn)坐標(biāo)、方位角X(m)Y(m)方位角 直線11

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

16、件名：FDCH），在數(shù)據(jù)文件調(diào)用完“FDCH”文件后，還要調(diào)用“XLJS”文件。線路計(jì)算程序（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非對(duì)稱線型組合計(jì)算程序（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、程序運(yùn)行分為兩種，第一種是根據(jù)根據(jù)使用者輸入的樁號(hào)和距中距離計(jì)算出所求點(diǎn)的坐標(biāo)和測(cè)站點(diǎn)到該點(diǎn)的方位角和水平距離，可以直接利用計(jì)算器提供的距離和方位角進(jìn)行極坐標(biāo)放樣。另一種是根據(jù)使用者輸入的實(shí)測(cè)坐標(biāo)計(jì)算出該點(diǎn)的樁號(hào)和距中距離，可以根據(jù)樁號(hào)和距中距離進(jìn)行高邊坡、隧道斷面點(diǎn)的設(shè)計(jì)高程、以及進(jìn)行路面高程控制計(jì)算方面很方便。（一）、根據(jù)樁號(hào)和距中距離計(jì)算所求點(diǎn)的坐標(biāo)、及方位角和水平距離。要進(jìn)行程序的線路計(jì)算，直接運(yùn)行數(shù)程序文件就可以了，不需要理會(huì)計(jì)算程序。如果計(jì)算某樁號(hào)L距離中線K處的坐標(biāo)X，Y和該點(diǎn)到測(cè)站點(diǎn)的距離和方位角，運(yùn)行提示如下：X0? 提示輸入測(cè)站點(diǎn)X坐標(biāo)Y0？ 提示輸入測(cè)站點(diǎn)Y坐標(biāo) （測(cè)站點(diǎn)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

38、bi0： “L”？L：“X=”？T：“Y=”？S： /輸入起算假定樁號(hào)，實(shí)測(cè)X Y Prog”GL-FS”: /進(jìn)入公路反算程序 Prog”FS-XS”: /進(jìn)入反算顯示程序 Goto0: 坐標(biāo)正算程序GL-ZS .1739274226I:.3260725774J: .0694318442K:.3300094782E : /四節(jié)點(diǎn)法計(jì)算系數(shù)錄入 1-EF：1-KM： Q+KrO(C+KD) K: /數(shù)據(jù)庫(kù)要用X、Y、Q作為起點(diǎn)坐標(biāo)方位角 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: /計(jì)算出X坐標(biāo) Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M) Y: /計(jì)算出Y坐標(biāo) Q+Or(C+D) Q： /計(jì)算出算點(diǎn)方位角,O是字母,r是弧度: 邊樁坐標(biāo)計(jì)算程序GL-BZ-ZS: XJ?A:X+Zcos(Q+A) G: /計(jì)算出邊樁X坐標(biāo) Y+ZSin(Q+A) M: /計(jì)算出邊樁Y坐標(biāo) 公路反算程序GL-FS Do:Porg”PM-XL-XZ”: /進(jìn)入平面線路選擇程序 Porg”CHAOXIAN-CL”: /里程超限處理程序 Porg”GL-ZS”: /進(jìn)入公路正算4節(jié)點(diǎn)程序 T-XI:S-YJ: /試

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

41、1: K+(L-C)II: /計(jì)算得出無豎曲線部分中樁高程 Lbi2: 邊樁高程計(jì)算程序B-H （L-C）/（D-C）P: /計(jì)算點(diǎn)占本線元長(zhǎng)比例 3P(2(S)-2P(3(S) P: /計(jì)算得線性和高次拋物線系數(shù) F+P（T-F）E： /初步計(jì)算計(jì)算點(diǎn)橫坡 If V=1:Then If N= -1:Then /直線和直緩，緩直,曲線左偏時(shí) If Z0：Then-EE: IfEZ4:ThenZ4E: IfEnd : /計(jì)算左側(cè)時(shí)，橫坡大于一般橫坡取一般橫坡 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: /曲線右偏時(shí)，左側(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è)計(jì)標(biāo)準(zhǔn)路面寬度子程序 CHANG-SHU 12Z1： /錄入12米為路面半寬度，根據(jù)設(shè)計(jì)修改 Z2： /錄入1.5米為綠化帶半寬，根據(jù)設(shè)計(jì)修改，無綠化帶輸入0 -0.02 Z4: /錄入-0。02為公路一般橫坡，根據(jù)設(shè)計(jì)修改 / 注：在以中