Fx-5800p任意曲线中边桩,平曲+竖曲+隧道超欠挖程序..docVIP

Fx-5800p任意曲线中边桩，平曲+竖曲+隧道超欠挖程序 本程序结合任意曲线中边桩坐标计算，隧道超欠挖，隧道坐标正反算于一体只需运行一个主程序即可。 真正做到全线贯通 本程序由一个主程序 一个正算子程序 两个反算子程序 一个平曲线数据库 一个竖曲线数据库组成 本程序为线元参数，可计算任意曲线中边桩坐标以及隧道三维坐标 主程序（ZBZFS）运行 Fix 3 ：4→ DimZ : ″1.SZ=XY ″: ″2.XY=SZ″: ″3.SZ=XYFH″: ″4.SXY=XYFH″:5.FZA=W″:?N :If N = 1:Then Goto 1: IfEnd If N = 2:Then Goto 2:IfEnd If N=3:Then Goto 3:IfEnd If N=4:Then Goto 4:IfEnd If N=5:Then Goto 5:IfEnd Lb1 1:?S : ?Z :Prog “QYS”: Abs(S-O) →W :Prog “ZS”: “XS=”?X◢ “YS=”?Y◢ Goto 1 Lb1 2:?X : ?Y :?S :X →I:Y→J:Prog “FS”: “S=”?S◢ “Z=”?Z◢ Goto 2 Lb1 3: ?S：?Z：Prog “QYS”： Abs(S-O) → W：Prog ZS： X：Y: F-90→F:S→ K:Prog“SQX”：“XS=”（X正算坐标）:Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y: “BC=”(方位角):Locate6,4, F°:“H=”（高程）:Locate6,4, H◢ Goto 3 Lb1 4:?S：?X：？Y（测站坐标）：Prog“QYS”： X→ I： Y→??J：Prog SDFS： O+W→S：S=：Locate6,4,S: Z=：Locate6,4,Z: S→ K:Prog“SQX” ：F-90→F: “BC=”:Locate6,4, F°: “H=”：H◢ Goto 4 Lb1 5: Prog“SDFS” :?F:? Z: If F＜H-(设计高程到仰拱临界面的高差):Then √(Z2+((设计标高到O3的高差)+H-F)2 )-( O3的半径)→W: Eles If F≥H-(设计高程到仰拱临界面的高差) And F ≤H+(设计高程到O2临界点的高差):Then Abs(Z)-( O2临界宽度)→Z: √((Z2+(H+(设计高程到O2的高差)-F)2-(O2半径)→W : Eles √((F-H-(设计高程到O1的高差))2+Z2)-( O1半径)→W: IfEnd: IfEnd “CQHD”?（衬砌厚度）A:W=”: W-A→W◢ Goto 5 正算子程序（ZS）不运行 0.1739274226→A ：0.3260725774→ B:0.3300094782 →L:0.0694318442→ K:1-L→F:1-K→M:1÷P→C:(P-R)÷（2HPR）→D:180÷π→E:G+QEKW(C+KWD) →Z［1］:G+QELW(C+LWD) →Z［2］:G+QEFW(C+FWD) →Z［3］:G+QEMW(C+MWD) →Z［4］:Acos(Z［1］) →X:X+Bcos(Z［2］) →X:X+Bcos(Z［3］) →X:X+Acos(Z［4］) →X:U+WX→X:Asin(Z［1］) →Y:Y+Bsin(Z［2］) →Y:Y+Bsin(Z［3］) →Y:Y+Asin(Z［4］) →Y:V+WY→Y:G+QEW(C+WD)+90→F:X+Zcos(F) →X:Y+Zsin(F) →Y 道路反算子程序（FS）不运行 Lb1 0:Prog “QYS”:G-90→T:0→Z:Goto 1 Lb1 1:Abs(S-O) →W:Prog “ZS” T+QEW(C+WD) →L:(J-Y)cos(L)-(I-X)sin(L) →z:If Abs(Z)＜10⌒(-6):Then Goto 2:Else O+W+Z→S:Goto 0:IfEnd Lb1 2:0→Z:Prog “ZS” (J-Y)÷sin(F) →Z 隧道反算子程序（SDFS）不运行 G-90→T： Abs((Y-V)cosT-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog SUB1： T+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL → Z：ifAbsZ1E-6：thenGoto1：ElssW+Z??→ W：Goto 0：IfEnd Lbl 1： 0→ Z：Prog SUB1： (J-Y)÷sinF→ Z