自编5800隧道超欠挖综合程序可用非常好

1、任意坐标正反算及隧道超欠挖程序2021-10-221-JIN YU主程序Lbl 4:“1TZS,2TFS,3 tCQW ?N选择计算模式，1为正算，2 为反算，3为超欠挖N=1=Goto 1:N=2=Goto 2:N=3=Goto 3Lbl 1:“K=？S:“P=？Z: Prog“SJ-PM: AbsS-O tW: Prog “SUB1-ZS :“X= ：Locate4,4,X: “Y= ： Locate4,4,Y:F-90 tF:St K:Prog “SJ-GC? : “ H= ： Locate4,4,H :“W= : Locate4,4,F0Goto 4正算-输入待求点里程 Km 输入待求

2、点偏距 Pm 显示待求点里程 Xm 显示待求点里程丫=、显 示待求点里程设计高程 H=Lbl 2: “X= ？ X: “Y= ？ Y:Prog “SJ-PM : X t I : Yt J : Prog SUB2-FS: O+WS: “K=： Locate4,4, S : “P=：Locate4,4, Z：STK:Prog “SJ-GCT : H= : Locate4,4,H:F-90tF: W= : Locate4,4,F0JGoto 4反算-输入实测点 Xm 输入实测点 Y=、显示实测点里程 K=、显示实测点偏距 P=、显示实测点 的设计高程H=Lbl 3:“X=？X: “Y=？ Y:Pro

3、g“SJ-PM: X t I :YtJ : ProgSUB2-FS:O+WS:K=:Locate4,4, S : “P=： Locate4,4, Z :STK:Prog “SJ-GCT : H= : Locate4,4, H J Prog “SJ-CQ 四 JGoto4超欠挖-输入实测点 X=、输入实测点 Y=、显示实测点里程 Km 显示实测点偏距 Pm 显示实测 点的设计高程Hw输入实测高程 H1w 显示超欠挖值及第几圆心上 CAY?=SJ-PM子程序名-平面线形数据库If S 59227.681 线元起点里程：Then 2599818.013 tU 线元起点 X 坐标：496887.918

4、 tV线元起点 Y坐标：59227.681t0线元起点里程：208028 39 tG线元起点方位角：100 tH线元长度：1X1045TP线元起点曲率半径：1X1045TR 线元终点曲率半径： 0 tQ 线兀左右偏标志：左-1右 1 直 0 : IfEndIf S 59327.681 线元起点里程：Then 2599730.112 tU 线元起点 X 坐标：496840.237 tV线元起点 Y坐标：59327.681 -0线元起点里程：208028 39 -G线元起点方位角：90 tH 线元长度：1 X 1045TP 线元起点曲率半径：750TR 线元终点曲率半径：-1 tQ 线兀左右偏标志

5、：左-1 右 1 直 0 : IfEnd注：有多个平面线形，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的 数据或增加一个判断。SJ-GC子程序名-竖曲线数据库If S变坡终点里程 And S变坡起点里程：Then 大里程坡度 tA：小里程坡度 tB：变坡点里程 tO:变坡点高度 tG 半径 tR: Prog “ SUB3-GC :IfEnd注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。2.如整条线只有一个纵坡比喻为 2%,那么程序应为 If Sv 终点里程 AndS起点里程：Then 0.02 tA: 0.02 tB:

6、起点里程 t Q 起点高程 t G 1 x 1045TRProg “SUB3-GC :IfEnd SJ-CQW子程序名-隧道数据库如供？FIf F -H5.845:Then V(Abs (Z)2+(F-H-0.45)2)-7.45TW: “CAY1= :W: IfEnd:(显示超 欠和第 1 圆心)If F -H-1.169: Then V(Abs (Z)-1)2+( Abs (F-H-1.5)2)-6tW.CQtY2= :W:IfEnd:(显示超欠和第 2 圆心)If F-H C : (P-R) - (2HPR) t D : 180 + 兀 t E : 0.1739274226 t A :

7、0.3260725774 t B : 0.0694318442t K: 0.3300094782 t L :1-L t F : 1-Kt M:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+M )tX:V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWI )t Y : G+QEW(C+WD)+90F : X+Zcos(F) t X : Y+Zsin(F) t YSUB2-FS(反算子程序)G

8、-90TT: Abs(Y-V)cos(T)-(X-U)sin(T) t W 0 t Z : Lbl 0: Prog SUB1-ZS: T+QEW(C+WD)t L: (J-Y)cos(L)-(I-X)sin(L) t Z : If Abs(Z)1E-6(注：此处 1E-6 可输入 0.000001) : then Goto1: Else W+Z t W： Goto0 : IfEndLbl 1 : 0 t Z : Prog SUB1-ZS: (J-Y) - sin(F) t ZSUB3-GC(高程子程序)OSTL:A-BW:Abs(R*好 2)TT: OTTMOTFIf S M:ThenG L*

9、BTH:Goto5:Else If S OThen Goto3:Else If S O: Then G+(M-S)2 + 2-R-L*BTH:Goto5: Else If W O: Then G+( S-P)2-2-R- L*ATH:Goto5: Else If W Goto 1:N=2=Goto 2Lbl 1:X1=?M:Y1=?F:S= ?L: W+V= ?A:Rec(L,A):M+ITC:F+JTDClsX2=:Locate 4,1,C:Y2=:Locate 4,2,DJGoto 3Lbl 2: X1=？G:Y1=？H:X=2？N:Y2=？EPol(N-G,E-H)If J0:Then J+360 tY:Else J tY:IfEndClsS =:Locate 4,1,1: W =:Y DM$Goto 3说明：(1 为