[建筑]Fx5800p任意曲线中边桩平曲竖曲隧道超欠挖程序.doc

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: IfEndIf N = 2:Then Goto 2:IfEndIf N=3:Then Goto 3:IfEndIf N=4:Then Goto 4:IfEndIf N=5:Then Goto 5:IfEndLb1 1:?S : ?Z :Prog “QYS”: Abs(S-O) W :Prog “ZS”: “XS=”?X“YS=”?YGoto 1Lb1 2:?X : ?Y :?S :X I:YJ:Prog “FS”: “S=”?S“Z=”?ZGoto 2Lb1 3: ?S：?Z：Prog “QYS”： Abs(S-O) W：Prog "ZS"： X：Y: F-90F:S K:Prog“SQX”：“XS=”（X正算坐标）:Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y: “BC=”(方位角):Locate6,4, F°:“H=”（高程）:Locate6,4, HGoto 3Lb1 4:?S：?X：？Y（测站坐标）：Prog“QYS”： X I： Y  J：Prog "SDFS"： O+WS："S="：Locate6,4,S: "Z="：Locate6,4,Z: S K:Prog“SQX” ：F-90F: “BC=”:Locate6,4, F°: “H=”：HGoto 4Lb1 5: Prog“SDFS” :?F:? Z:If FH-(设计高程到仰拱临界面的高差):Then (Z2+(设计标高到O3的高差)+H-F)2 )-( O3的半径)W:Eles If FH-(设计高程到仰拱临界面的高差) 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-AWGoto 5正算子程序（ZS）不运行0.1739274226A ：0.3260725774 B:0.3300094782 L:0.0694318442 K:1-LF:1-KM:1÷PC:(P-R)÷（2HPR）D:180÷E:G+QEKW(C+KWD) Z1:G+QELW(C+LWD) Z2:G+QEFW(C+FWD) Z3:G+QEMW(C+MWD) Z4:Acos(Z1) X:X+Bcos(Z2) X:X+Bcos(Z3) X:X+Acos(Z4) X:U+WXX:Asin(Z1) Y:Y+Bsin(Z2) Y:Y+Bsin(Z3) Y:Y+Asin(Z4) Y:V+WYY:G+QEW(C+WD)+90F:X+Zcos(F) X:Y+Zsin(F) Y道路反算子程序（FS）不运行Lb1 0:Prog “QYS”:G-90T:0Z:Goto 1Lb1 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+ZS:Goto 0:IfEndLb1 2:0Z:Prog “ZS”(J-Y)÷sin(F) Z隧道反算子程序（SDFS）不运行G-90T： 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：IfEndLbl 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:IfendLb1 A:Return竖曲线数据库（SQX）不运行(变坡点高程)Z1: (变坡点桩号)B: (半径)R: (切线长)T:-. （后纵坡）J: （前纵坡）I: K:B-KC : 1U:I>J-1UIf K<B-T then 0A: I P:Goto 1: IfEnd: If K<B then 1A: IP: Goto 1: IfEnd: If K<B+T then 1A: JP: Goto 1 :IfEnd: If K>B then 0A: JP: Goto 1: IfEndLbI 1: Z1-CP+AU(T-Abs (C)2÷2÷RH: Return本程序简单实用N=1进入道路坐标正算S=待求桩号Z=偏距计算坐标N=2进入道路坐标反算输入XY（任意点坐标）反算SZN=3进入隧道坐标正算隧道同路基输入SZ正算XY以及方位角和高程N=4进入隧道反算输入待求桩号以及测站XY反算SZFHN=5进入隧道三心圆检测输入FZ计算超欠挖(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。