5800公路外業(yè)全測量

1、5800 公路外業(yè)全測量（ 5800計算器）算方位角、距離Lbl 0: “XO” ？M:“YO” N: “XN ?X:“ YN MPol（X-M , Y-N） /“ D二”：JJ /J<0=>J+360J /“ F=” :J*DMJSGotoO/（5800 計算器）方位角、距離算坐標(biāo) XYLbl O: “XO” ?M“: YO” ?N: “D” ?D“: F” F?:Rec （D， F）/“ XN=” :M+JI“ YN=” :N+JJGotoO/公路全線高程 :QXJSCX” /Lb1 1/CLs:Fix 3 /（可有可無，設(shè)置小數(shù)點有效位數(shù)）“ K二” ?k（計算點里程輸入）I

2、f k<67549.755 AND K> 66894.3 :The n -0.00052 A : 0 B :67394.3 S : 67.37 G : 600000 R : Goto 2 : IfEnd /If k<68708.391 AND K> 67549.755 :The n -0.0048 A :-0.00052 B : 68494.3 S :66.8 G : 100000 R : Goto2 : IfEnd /If k<本段豎曲線終點里程AND K前一豎曲線終點里程 :Then -0.0048前坡（大里程向） A : -0.00052后坡（小里程 向）

3、B : 68494.3 豎曲線交點里程 S :66.8 交點高程 G : 100000 曲率半徑 R : Goto 2 : IfEnd /依次類推，計算原始數(shù)據(jù)完成輸入，坡度換算成小數(shù)。直線段半徑輸10八45次方.一般最后輸.Lb1 2/S-K L : A-B W : Abs （R*W/2 ） T : S-T C : S+T D /If K< C : Then G-L*B H : Goto 5 : Else If K< S :Then Goto3 : Else If K< D : Then Goto4 : IfEnd : IfEnd :IfEnd /Lb13/If W>

4、0 : ThenG+(C-K)A 2/2/R- L*BH : Goto 5 : Else IfW<0 : ThenG-(C-K)八2R- L*BH: Goto 5 : IfEnd : IfEnd /Lb14/If W>0 : Then G+(K-D) A2/2/R- L*AH : Goto 5 : Else IfW<0 : ThenG-(K-D)a 2/2/R- L*AH: Goto 5 : IfEnd : IfEnd /Lb15/HH /“ H= H 丄Goto 1 /QXJSCX /Lb1 1/CLs:Fix3 /(可有可無，設(shè)置小數(shù)點有效位數(shù))“ K二” ?k(計算點里

5、程輸入)If k<67549.755 AND K> 66894.3 :The n -0.00052 A : 0 B :67394.3 S : 67.37 G : 600000 R : Goto2 : IfEnd /If k<68708.391 AND K> 67549.755 :The n -0.0048 A :-0.00052 B : 68494.3 S :66.8 G : 100000 RGo: to 2 : IfEnd /If k<本段豎曲線終點里程 AND K前一豎曲線終點里程 :Then -0.0048前坡(大里程向) A : -0.00052 后坡(小

6、里程 向)B : 68494.3 豎曲線交點里程 S :66.8 -交點高程 G : 100000 曲率半徑 R : Goto 2 : IfEnd /依次類推，計算原始數(shù)據(jù)完成輸入，坡度換算成小數(shù)。直線段半徑輸10八45次方.一般最后輸.Lb1 2/S-K L : A-B W : Abs (R*W/2 ) T : S-T C : S+T D /If K< C : Then G-L*B H : Goto 5 : Else If K< S :Then Goto3 : Else If K< D : Then Goto4 : IfEnd : IfEnd :IfEnd /Lb1 3/I

7、f W>0 : ThenG+(C-K)A 2/2/R- L*BH: Goto 5 : Else IfW<0 : Then G-(C-K) A2/2/R- L*BH : Goto 5 : IfEnd : IfEnd /Lb1 4/If W>0 : Then G+(K-D) A2/2/R- L*AH: Goto 5 : Else IfW<0 : Then G-(K-D)a 2/2/R- L*AH : Goto 5 : IfEnd : IfEnd /Lb1 5/HH /“ H= H 丄Goto 1 /QXJSCX /Lb1 1/CLs:Fix3 /（可有可無，設(shè)置小數(shù)點有效位

8、數(shù)）“ K二” ?k（計算點里程輸入）If k<67549.755 AND K> 66894.3 :The n -0.00052 A : 0 B :67394.3 S : 67.37 G : 600000 R : Goto 2 : IfEnd /If k<68708.391 AND K> 67549.755 :The n -0.0048 A :-0.00052 B : 68494.3 S :66.8 G : 100000 R : Goto2 : IfEnd /If k<本段豎曲線終點里程 AND K前一豎曲線終點里程 :Then -0.0048前坡（大里程向） A

9、 : -0.00052后坡（小里程 向） B : 68494.3 豎曲線交點里程 S :66.8 交點高程 G : 100000 曲率半徑 R : Goto 2 : IfEnd /依次類推，計算原始數(shù)據(jù)完成輸入，坡度換算成小數(shù)。直線段半徑輸10八45次方.一般最后輸.Lb1 2/S-KL ： A-BW : Abs (R*W/2)T : S-TC : S+T D /If K< C : Then G-L*B H : Goto 5 : Else If K< S :Then Goto3 : Else If K< D : Then Goto4 : IfEnd : IfEnd :IfEn

10、d /Lb1 3/If W>0 : ThenG+(C-K)A 2/2/R- L*BH: Goto 5 : Else IfW<0 : ThenG-(C-K)八2R- L*BH : Goto 5 : IfEnd : IfEnd /Lb1 4/If W>0 : Then G+(K-D) A2/2/R- L*AH: Goto 5 : Else IfW<0 : ThenG-(K-D)a 2/2/R- L*AH : Goto 5 : IfEnd : IfEnd /Lb1 5/HH /“ H= H 丄Goto 1 /公路坐標(biāo)正反算QXJS-000 主程序Lbl 4: “ 1.SZ=&

11、gt;NE : “2.NE=>SZ :?Q:?S:Prog “QXJSSUB0 /Lbl 0:Q=1 => Goto1:Q=2 => Goto2: /Lbl 1:?Z:Prog “QXJSJB1 : “ N= jNI “ E= EF<0=> F+360F /“ F二” *DMS 丄:Goto4/Lbl 2: “N二” ：？B:“E二” ：？C:B OE:Prog “QXJSUB2 :S二” :S丄:“Z二” N : Goto4/QXJS-SUB0數(shù)據(jù)庫子程序Gotol/同時保存多個曲線時的指針Lbl 1IF s<* （線元終點里程）：Then* A （線元起

12、點方位角）:*宀O （線元起點里程）:* -U （線元起點X） :*?。ň€元起點Y）:* P （線元起點曲率半徑）:* TR （線元終點曲率半徑）：* L（線元起點至終點長度）：Return:lfE nd /IF S<*:Then*_A：*_：*_U：*> V：*> P：*L: Return:IfE nd / 為了便于解讀，每增加一個線元增加一行語句,正算子程序每增加一條曲線增加一個Lbl，每增加一個工程增加一個文件。QXJS-SUB1 0.5 (1*-1 許)-L D:S»X /U+/ (cos(A+(X - P+DX2)X 1800,試)N /V+/ (sin(A+(X - P+DX2)X 1,(0亍 K) E /A+(X - P+DX2)X 180，nFN+Zcos(F+90) N:E+