5800-更新版.doc

(一)、SUB 主程序 ( 5800万能综合 ) 100→DimZ :“1.SZ?=?XY” ：XY?=2.?SZ” ：：“S=”？S :“Z=”？Z ：Prog“SUBθ－Z” ：(P－C)÷(2PC（B－O）)→D ：Abs(S－O)→W ：Prog“SUB1” ：“XS=”：X→X ◢ “YS=”： Y→Y ◢ F－90→F: “F=” ：F ? DMS ◢ Goto?1( Lbl?2: “S=”？S : “X=”？X:“Y=”？Y:Prog“SUBθ－Z” ：(P－C)÷(2PC（B－O）)→D ：X→I:Y→J ：Prog?“SUB2”：O+W→S:“S=”:S→S ◢ “Z=” ：Z→Z ◢ Prog“SH－Z” : “H=” : H → H◢ Prog“SM－Z” ◢ Goto?2 ( (二)、SUB1 子程序(?正算)（注：E=180÷∏ ， F=1－L ，M= 1－K ）。0.1739274226 →Z[99]： 0.3260725774→Z[98]： 0.0694318442 →Z[97]： 0.3300094782→ L ：U+W(Z[99] cos(G+Q（180÷∏）Z[97]W(（1÷P）+ Z[97]WD)) + Z[98] cos(G+（180÷∏）Q LW(（1÷P）+LWD)) + Z[98] cos(G+（180÷∏）（1－L） Q W(（1÷P）+（1－L）WD)) + Z[99] cos(G+（180÷∏）（1－Z[97]）Q W(（1÷P）+（1－Z[97]）WD)))→ X ：V+W(Z[99]sin(G+（180÷∏）Z[97]Q W(（1÷P）+ Z[97]WD)) + Z[98]sin(G+（180÷∏）QLW(（1÷P）+LWD)) + Z[98]sin(G+（180÷∏）（1－L）QW(（1÷P）+（1－L）WD)) + Z[99]sin(G+（180÷∏）（1－Z[97]QW(（1÷P）+（1－Z[97]）WD)))→Y ：（G+（180÷∏）Q W(（1÷P）+WD)）+90 →F ：X+ZcosF → X ： Y+ZsinF → Y ( (三)、SUB2 子程序 ( 反算 ) G－90 →T：Abs((Y－V)cos（T）－(X－U)sin(T)) →W：θ→ Z：Lbl?θ ：Prog?“SUB1” ：T+（180÷∏）QW(（1÷P）+WD)→L ：(J－Y)cos（L）－(I－X)sin(L)→ Z ：If Abs （Z ）＜0.000001 ：Then θ→Z ：Prog “SUB1”：(J－Y) ÷sin（F）→ZElse W+Z → W：Gotoθ: If End ( (四)、SUBθ－Z 子程序（数据库） If S ≥ 2378.450: Then If S ≤3573.369 ：Then 2567962.754 → U :478639.703 → V: 79° 37′10.4 ″→G:3000→P:3000→C :2378.45→O：3573.369→B : －1→ Q : If End : If End ( If S ≥ 3573.369 : Then If S ≤ 4888.217：Then 2568403.409 → U :479741.918→ V: 56° 47′53.82 ″→G:4200→P：4200→C : 3573.369→O : 4888.217→ B : －1→Q: If End : If End( If S ≥4888.217 : Then If S ≤ 5825.888：Then 2569282.517 → U :480712.445→ V: 38° 51′40.30 ″→G:4000→P：4000→C : 4888.217→O : 5825.888→ B : －1→Q: If End : If End ( （五）、SH－Z 子程序 （左线 : 纵坡高程计算 ） If S ≥3300: Then If S ≤ 4375.801：Then 85.626+0.025×(S －3300) → H: If End : If End ( If S ≥4375.801: Then If S ≤ 4675.800：Then 112.521+0.025×(S － 4375.801) －(S － 4375.801)2÷(2×120000)→ H: If End : If End ( （六）、 SM －Z ： 子程序 （ 左线：隧道半径计算 R ）