[建筑]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 K<B-T then 0→A: I →P:Goto 1: IfEnd: If K<B then 1→A: I→P: Goto 1: IfEnd: If K<B+T then 1→A: J→P: Goto 1 :IfEnd: If K>B 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计算超欠挖
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，
Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。

(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的
值；与圆曲线相接时，曲率半径等于圆曲线的半径。

止点与直线相接时，
曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

希望以上资料对你有所帮助，附励志名言3条：
1、理想的路总是为有信心的人预备着。

2、最可怕的敌人，就是没有坚强的信念。

——罗曼·罗兰
3、人生就像爬坡，要一步一步来。

——丁玲。