5800正反算、隧道超欠挖程序高鐵版

1、5800正反算、隧道超欠挖程序.doc-正算主程序(BBC)-Lb10-?S:?Z:ProgSJK”：Abs(S-O)一W:Prog"SUB1":"XS=":X，-"YS=":Y/F-90一F(需要時可以讓他顯示，不要時不必輸入)：Goto0-反算主程序(AAFS)-Lb10-?S:?X:?Y:SCH"？Z3:ProgSJK"(數(shù)據(jù)庫)：XI:Y一J:Prog"SUB2"(反算)："S=":O+WS，"Z=":Z-2.3-Z2，IfS<5782:Th

2、en286.252+(S-5558)*5.6/1000-(S-5558)2/40000-Z1:IfEndIfS呈5782:Then286.252-(S-5782)*5.6/1000一Z1:IfEndSJH”:Z1+0一Z1/IfZ3叁Z1+0.3:Then:6.86-V(Z22+(Z3-Z1-2.27)2)一Z4:IfEndIfZ3/Z1+0.3:Then:6.86-V(AbsZ2-2.85)2+(Z3-Z1-1.12)2)一Z4:IfEndZ4一"CQW”,GJ”:Z1+2.27-Z3一Z9/TC”:Z3-(Z1-0.83+Abs(Z2*2/100)一Z5/ER”:Z3-Z1-8.

3、73一Z6/Goto0正算子程序(SUB1)-1中一C:(P-R)2HPR)一D:180E:0.1739274226一A:0.3260725774fB:0.0694318442fK:0.3300094782fL:1-LF:1-K-M:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)-X:V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)-Y:G+QEW(C+WD)+90-F:X+

4、ZcosF-X:Y+ZsinFfY反算子程序（SUB2）-G-90-T:Abs（Y-V）cos（T）-（X-U）sin（T）一W:0一Z:Lbl0:Prog"SUB1":T+QEW（C+WD）一L:（J-Y）cosL-（I-X）sinL-Z:ifAbsZ<1E-6:then0一Z:Prog"SUB1":（J-Y）winF-ZElesW+Z-W:Goto。：IfEnd-子程序SJKifS600（線元起點里程）AndSv5786.5807（線元止點里程）：Then2723.6697一U（線元起點X坐標）：1586.0304V（線元起點Y坐標）：5600

5、一O（線元起點里程）：1911008.3°G（線元起點方位角）：186.5807一H（線元長度）：10八（45）一P（線元起點曲率半徑）：10八（45）一R（線元終點曲率半徑）：0一Q（線兀左右偏標志：左負右正）：IfEnd-1-ifS書786.5807（線元起點里程）AndS<6066.5807（線元止點里程）：Then2540.622一U（線元起點X坐標）：1549.889一V（線元起點Y坐標）：5786.5807一O（線元起點里程）：191°10°08.3°一G（線元起點方位角）：280一H（線元長度）：10八（45）一P（線元起點曲率半徑）

6、：5500R（線元終點曲率半徑）：1一Q（線元左右偏標志：左負右正）：IfEnd三、使用說明-1、規(guī)定-(1)以道路中線的前進方向(即里程增大的方向)區(qū)分左右；當線元往左偏時，Q=-1;當線元往右偏時，Q=1;當線元為直線時，Q=0O當所求點位于中線時，Z=0;當位于中線左側(cè)時，Z取負值；當位于中線中線右側(cè)時，Z取正值。-(3)當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。-當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。-(5)當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10白45次代替；與圓曲線相接時，曲率半徑等于圓曲線

7、的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。-(6)當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑.子程序（豎曲線數(shù)據(jù)庫）SQX-SJ-ifS礴99.812（豎曲線終點里程）：then0.0357（前坡度：上坡正下坡負）一E:0.0227（后坡度：上坡正下坡負）一F:600一R（豎曲線半徑）：780一G（變坡點里程）：110一C（變坡點高程）：IfEnd-子程序（豎曲線計算公式）SQX

8、-E-F-J:ifJ>0:then-R一R:曰ssRR:Abs（R*J及）-T:IfEnd-ifSW-T:thenG-SL:C-LE-H:IfEnd-ifS>G-TAndS£:thenG-S一L:（S+T-G）&sup2;受蟲一N:C-LE+NH:IfEnd-ifS>GAndSG+T:thenS-GL:（G+T-S）&sup2;受蟲一N:C+LF+N一H:IfEnd-ifS>G+T:thenS-GL:C+LF一H:IfEnd-ProgSQX-SJ”（豎曲線數(shù)據(jù)庫）：ProgSQX”（豎曲線）：H二”:HJGoto0-隧道3心圓放樣主程序（SD-

9、3XY）-Lb10:ProgFS"：1.5fA:1.65-B:0.89-G:2.27-C:3.3rD:2.41-E:0.51J:H1"：F:ifF+A:thenE-AbsZW:IfEnd:ifF>H+AAndF由+A+B:thenV（D&sup2;-（F-H-A）&sup2;）-G-AbsZ-W:IfEnd:ifF>H+A+B:then，（C&sup2;-（F-H-A-J）&sup2;）-AbsZ-W:IfEnd:W="：W，（水平方向的超欠挖：正為欠，負為超）Goto0-ifS806.748（線元起點里程）AndSv9

10、19.527（線元止點里程）：Then19766.566一U（線元起點X坐標）：28594.574V（線元起點Y坐標）：806.748一O（線元起點里程）：120°25°54.07°一G（線元起點方位角）：112.779一H（線元長度）：221.75P（線元起點曲率半徑）：221.75一R（線元終點曲率半徑）：-1一Q（線元左右偏標志：左負右正）：IfEnd弋1-ifS919.527（線元起點里程）AndSv999.812（線元止點里程）：Then19736.072一U（線元起點X坐標）：28701.893-V（線元起點Y坐標）:919.527一O（線元起點里程）:911730.63。G（線元起點方位角）：80.285一H（線元長度）：221.75P（線元起點曲率半徑）：9579.228一R（線元終點曲率半徑）：-1一Q（線元左右偏標志：左負右正）：IfEnd弋1-ifS999.812（線元起點里程）：Then19744.0