[建筑]Fx-5800p任意曲线中边桩_平曲+竖曲+隧道超欠挖程序6页

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：ifAbsZ<1E-6：thenGoto1：ElssW+Z → W：Goto 0：IfEnd

Lbl 1： 0→ Z：Prog "SUB1"： (J-Y)÷sinF→ Z

平曲线数据库（QYS）不运行

If S≥起点桩号：Then 起点X坐标→U:起点Y坐标→V：起点桩号→O：起点方位角→G:线元长度→H:线元起点半径→P:线元终点半径→R:(左转-1 右转1 直线0) →Q：Goto A:Ifend ………………………………………………………………………………………………………………………………………Lb1 A:Return

竖曲线数据库（SQX）不运行

(变坡点高程)→Z[1]: (变坡点桩号)→B: (半径)→R: (切线长)→T:-. （后纵坡）→J: （前纵坡）→I: K:B-K→C : 1→U:I>J＝＞-1→U

If KB then 0→A: J→P: Goto 1: IfEnd

LbI 1: Z[1]-CP+AU(T-Abs (C))2÷2÷R→H: Return

本程序简单实用N=1进入道路坐标正算S=待求桩号Z=偏距计算坐标

N=2进入道路坐标反算输入XY（任意点坐标）反算SZ

N=3进入隧道坐标正算隧道同路基输入SZ正算XY以及方位角和高程

N=4进入隧道反算输入待求桩号以及测站XY反算SZFH

N=5进入隧道三心圆检测输入FZ计算超欠挖