5800公路測量程序修改

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

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

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

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

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

6、一點X坐標(biāo)（對應(yīng)變量A）; Y1: 第一點Y坐標(biāo)（對應(yīng)變量B）;LN: 第二點樁號（對應(yīng)變量N）; X2: 第二點X坐標(biāo)（對應(yīng)變量C）; Y2: 第二點Y坐標(biāo)（對應(yīng)變量D）； R: 圓曲線半徑（對應(yīng)變量R）; Q: 曲線轉(zhuǎn)向(Y=1右轉(zhuǎn) Z=-1左轉(zhuǎn)) （對應(yīng)變量Q） 輸入：LX: 計算點樁號; S: 計算點距中樁距離; W: 中樁與計算點連線與路線前進方向夾角計算并顯示：計算點坐標(biāo)X ,Y示意圖如下：HHQX(緩和曲線)“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:直緩點樁號（對應(yīng)變量K）; HZ:緩直點樁號（對應(yīng)變量N ） ; XD:交點X坐標(biāo)（對應(yīng)變量C）; YD: 交點Y坐標(biāo)（對應(yīng)變量D）; XH:后方交點X坐標(biāo)（對應(yīng)變量A）; YH: 后方交點Y坐標(biāo)（對應(yīng)變量B）; R: 圓曲線半徑（對應(yīng)變量R）;T: 切線長（對應(yīng)變量T）; Ls: 緩和曲線長 (對應(yīng)變量U）; Q: Y=1右轉(zhuǎn) Z=-1左轉(zhuǎn)（對應(yīng)變量Q）輸入：LX: 計算點樁號（對應(yīng)變量V）; S: 計算點距該中樁距離（對應(yīng)變量S）; W: 計算點與中樁連線與路線前進方向的夾角（對應(yīng)變量W） 計算結(jié)果：計算點坐標(biāo)X ,Y說明

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

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

10、后一段路線縱坡（對應(yīng)變量B） LD: 豎曲線交點樁號（對應(yīng)變量C） HD： 交點高程（對應(yīng)變量D） R: 豎曲線半徑（對應(yīng)變量R） 輸入：LX 計算點樁號計算:LX樁號的路線設(shè)計高程 HLX S W(樁號反算)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 已知：猜測樁號LC, 已知點P坐標(biāo)（X,Y）。計算：已知點P（X,Y）相對于路線的位置。即對應(yīng)的樁號LX,距中樁距離S，位于路線的哪一側(cè)（W=90在右側(cè)；W=-90在左側(cè)）。說明：1、本程序在路線曲線要素已編入子程序“P”，即項目程序正常運行時方可運行。2、輸入程序時注意區(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 ： 涵中心樁號（對應(yīng)

13、變量V） W ： 涵交角（對應(yīng)變量W）LZ ： 左涵長（對應(yīng)變量E） LY ： 右涵長（對應(yīng)變量G） B/2 ： 涵正寬的一半（對應(yīng)變量B）計算:涵放樣點坐標(biāo)（X1,Y1）-(X6,Y6)說明：本程序在路線曲線要素已編入子程序“P”，即項目程序正常運行時方可運行。HCJS (涵長計算)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 ： 涵中心樁號（對應(yīng)變量V） W ： 涵交角（對應(yīng)變量W）B/2 ： 計算一側(cè)的路面寬度（對應(yīng)變量B） Z：涵底標(biāo)高（對應(yīng)變量Z） H+D ： 涵底至蓋板頂高度（對應(yīng)變量P）計算:對應(yīng)W值一側(cè)的涵長L（對應(yīng)變量S）(計算另一側(cè)涵長，將W輸入對應(yīng)的值，一般為W+180)說明：本程序在豎曲線要素已編入子程序“G”，橫坡度要素編入子程序“I”時方可運行,內(nèi)容也要根據(jù)邊坡設(shè)計圖紙做適當(dāng)修改。TTBX (填土邊線)“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 輸入：一級、二級、三級坡比分別為m1、m2、m3；一級、二級平臺寬度分別為B1、B2 LX ： 路中心樁號（對應(yīng)變量V） W ：在路的哪一側(cè)，交角±90（對應(yīng)變量W） B/2 ： 半幅路面寬度（對應(yīng)變量B） Z：實測地面標(biāo)高（對應(yīng)變量Z）計算:計算顯示填土高度“TH=”;填土邊線到中樁距離“S=”;對應(yīng)W值一側(cè)填土邊線坐標(biāo)(X

17、,Y)說明：本程序在在路線曲線要素已編入子程序“P”，豎曲線要素已編入子程序“G”，橫坡度要素編入子程序“I”時方可運行,內(nèi)容也要根據(jù)邊坡設(shè)計圖紙做適當(dāng)修改。(本次邊坡設(shè)計見下圖，距中1m為高程設(shè)計線，土路肩寬度0.75m.暫時編輯三級坡以下的。)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已知：兩已知點坐

18、標(biāo)（X1,Y1）;（X2,Y2）, H： 任意一點高程 ；實測：IH： 儀器高；RH： 棱鏡高； HR1： 第一點水平角讀數(shù)；HD1： 第一點水平距離讀數(shù)；HR2： 第二點水平角讀數(shù)； HD2： 第二點水平距離讀數(shù)； VD： 垂直高差讀數(shù)(對應(yīng)H) 計算并顯示 ： 所求測站點坐標(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已知：兩點坐標(biāo)P0(X0,Y0)；P(X,Y)計算:P0點到P點的距離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已知:多邊形各角點坐標(biāo)，按順時針或按逆時針順序輸入各角點坐標(biāo), 計算閉合多邊形面積S（為累計值）及周長L。示意圖如下:JD(交點)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已知：第一條直線上兩點坐標(biāo)分別為P1（X1,Y1）、P2（X2,Y2）; 第二條直線上兩點坐標(biāo)分別為P3（X3,Y3）、P4（X4,Y4）。計算并顯示： P3（X3,Y3）到直線（P1P2）的垂直

21、距離S; 以及兩直線交點坐標(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（示例：永藍主線K99+000-K106+012）第二緩和曲線終點樁號N:IfVN:Then第二緩和曲線起