卡西欧5800隧道放样程序

1、5800P隧道施工放样程序第一种放样程序FY-01隧道情况：我队四个中小隧道全部位于直线段内，只有一个隧道处于竖曲线变坡点位置。各个隧道围岩衬砌类型， 洞门明洞设计不一， 这里只放置了暗洞内的内容。由于实际施工中里程位置及尺寸大小都经常自行变位，所以现场放样中要随时注意变动。FY-5800P 主程序X0=X:实测坐标X值Y0=Y:实测坐标Y值Z0=C:实测高程Z值Prog Z LS:转入直线里程反算子程序Prog SQX:转入竖曲线子程序xxt B:xxt Q:B是拱部初衬变数,Q是仰拱初衬变数；使用前根据放样或检查尺寸来定If L45090 And L 45125 And L 45135 A

2、nd L 45330 And L 45345 And L 45510 And L 45540 And L 45550 And L 45650 And L 45660 And L 46085 And L 46100 And L 46110 And L 46275 And L 46285 And L 46310:Then Prog 5b :lfE nd:Prog 45DMJS:转入断面放样计算子程序StopoooooooooooooooooooooooooooooooooooZ LS-5800P子程序(直线段里程反算)f M:直线起点X坐标T N:直线起点Y坐标f Q:直线起点里程186 30/

3、t T:直线起点方位角Pol(X-M,Y-N):这里的X、Y自动在主程序中提取J 360+J J:Rec(l,J -T):Q+It L:这里反映是由小里程向大里程方向计算的结果存放在变量L里TS:设计中线位于隧道中心线的左侧米处，计算的偏中距存放在变量S里Cis:Fix 3:KM=:DISP=:里程标示 偏中距标示Locate 7,1 丄：显示计算的里程结果到第一行Locate 10,2,S显示偏中距结果到第二行，负在左,正在右SQX-5800P子程序(竖曲线设计高程计算)46150 t A:竖曲线变坡点里程t G:竖曲线变坡点高程30000 t R:竖曲线半径t E:竖曲线变坡点小里程方向的

4、纵坡t F:竖曲线变坡点大里程方向的纵坡，设计资料上是没有负号的，这里要加上TT竖曲线切线长5t DimZ:If LA:自动由子程序 Z LS中提取LThen tZ1:高铁是千分比坡度，公路是百分比坡度,这里用的是高铁Else t Z1:高铁是千分比坡度，公路是百分比坡度，这里用的是高铁IfEn d:G+Abs(A-L)Z1T Z2:If LA-T And L A:Then (L-A+T)2 (2R)tZ3:If EA And L A+T:Then (A+T-L) 2* (2R)tZ3:If EA+T:Then Z2 t Z4:IfEn d:Z4+ f Z5:将计算出来的设计高程（无横坡的）转

5、换算到隧道圆心高度C-Z5f D:C值直接由主程序中提取，求算出实测点与圆心的咼差关系Fix 3:h+-=:表示实测点与圆心的高差关系Locate 10,3,D /设置在第二行显示，负在卜，止在上断面计算过程中定义的14个变量含义B:进入断面放样工作，开挖或支护厚度（变数）R:断面净空半径与二衬厚度之和H:圆心到检修道的垂直咼度E:二衬边缘边墙起点咼到检修道的垂直咼度F:检修道到边墙脚的垂直咼度A:仰拱圆心到拱部圆心的垂直高度W:仰拱半径与衬砌厚度之和V:这里是设计拱墙喷砼厚度T:这里是设计仰拱喷砼厚度M:衬砌仰拱小半径N:边墙基础设计宽度U:拱部部分自检修道到拱部圆心位的夹角P:衬砌仰拱小半

6、径所夹角度Q:仰拱开挖或支护厚度（变数）以下表格的内容就是建立数据子程序的（3A、4A、4B、4C、5B、5C）变量皿aIV aV bV cV bV cB000000TRHEFAWVMNU18 40 1818 40 1818 40 1818 40 1818 40 18P55 00 4755 00 4755 00 4755 00 4755 00 47Q00000OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO45DMJS-5800P15乍 DimZ:Pol(Abs(S), D):J Z1:If Z2:V (R2-(H-E)2) Z3:si n-1(H-E)/R) Z4:Re

7、c(R+V,Z4):If Z5:Z6:Rec(R-M,U):IfZ15:表示小圆心到大圆心的水平距离JfZ7:表示小圆心到大圆心的垂直高度H+FfZ8:I+V(Abs(M+T)2-( Z8-Z7)2)fZ9:(Z5-Z9-N)/(H-Z 6+F) f Z10:Z10表示边墙的斜率Rec(R+B,Z4):IfZ11:JfZ12:Rec(M+T,U+P):I+Z15fZ13:表示大圆水平边缘J+Z7fZ14:表示大圆垂直边缘If Z1 -Z4:表示上半部圆部分Then R+-=：表示上半部圆部分实测与设计差Locate 10 , 4,Z2-R-B差值显示到第四行上，负为欠，正为超IfEnd:If

8、D-H-F And DZ9:表示下半部边墙部分Then BQ+-=:表示边墙实测与设计差Locate 10 , 4, Abs(S)-Z11+( Abs(D)-Z12)Z10 / 差值显示到第四行上 ，负为欠 ，正为超IfEnd:If Abs(S)Z9 And Abs(S)Z9+N And DZ13 And Abs(S)Z9 And D-Z6:Then YG+-= :表示仰拱实测与设计差Locate 10,4, Abs(D)-Z7- V(Abs(M+Q)2-(Abs(S)-Z15)2)R差值显示到第四行上 ，负为欠 ，正为超IfEnd:If Abs(S) Z13 And D -Z4:表示上半部圆

9、部分Then R+-=：Locate 10， 4,Z2-R-BAIfEnd:表示上半部圆部分实测与设计差差值显示到第四行上 ,负为欠 ,正为超If D-H-F And D -Z6:表示下半部边墙部分Then BQ+-=:表示边墙实测与设计差Locate 10 , 4, Abs(S)-Z11+( Abs(D)-Z12)Z10 A差值显示到第四行上 ,负为欠 ,正为超IfEnd：If D-H And Abs(S)Z7:表示下半部仰拱部分，如果这里的判断条件取得不好，在交界位置会跟随BQ结果一起出现Then YG+-= :表示仰拱实测与设计差Locate 10,4, A-V(W2-S2)-DA差值显

10、示到第四行上 ,负为欠 ,正为超IfEnd:Return隧道断面图纸样式IV b衬砌断面图ooooooooooo o o o o o o o o o o o oooooooooooooooo o o o o o ooooooooooooooooooooo o o o oooooooooooo o o o o o o o o o o o oooooooooooooooo o o o o o ooooooooooooooooooooo o o o o第二种放样程序FY-02这个程序主要应用在电缆沟及道床顶面的测量工作。高程抄平程序 CPJS 变坡点里程t0: 变坡点高程tG: 竖曲线半径tR： 路

11、线后纵坡t E: 路线前纵坡t F: 切线长度t T:DG=”A:对于全站仪是仪器点的高程值，对于水准仪是后视点的高程值YG=”B:对于全站仪是仪器高度，对于水准仪是后视读数FYG+-=P:放样点到圆心的垂直高度（圆心以下为负，以上为正）Lbl 0:4t DimZ:Cls:待求点里程KM=”L:If L 0:Then Z4:Else t Z4:IfEnd:Abs(O-L)tZ1:G+Z1Z4tZ2:If LO+T:Then Z2tZ2:IfEnd:If LO-T And L O:Then (L-O+T)2* (2R)tZ3:If EO And L O+T:Then (O+T-L)2* (2R)

12、tZ3:If ENE”:“=SZ”:“1，2=”tQ:“LICHENG”tS:Prog “QXJSSUB0”Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEndLbl 1:Out jl=t z：OUT JD=J G:Prog“QXjSSUB”1:“XZB=”:Nt N /“YZB=”:Et Ej“QXFWJ=”:FtF:F?DMSjGoto 4Lbl 2:“XZB=”tB:“YZB=”tC:BtN:CtE:Prog“QXJSSUB”2:“LICHENG=”:StSj“OUT JL=”:ZatZj“CDG=”tG:“GC=”:G- 4QX

13、JSSUB0 白石坪 2#出口数据子程序Goto 1:Lbl 1:If S:Then tU:tV:tO:tA:420tL:10A(45 t P：5500tR:Return:IfEndIf SThen Ut V:t O:tA: tL:5500 t P:5500 t R:Return:IfEndIf SThen tUtV:tO:tA:420tL:5500 t P:10A(45 t r：Return:IfEndIf SThen tUtV:tO:tA: tL:-10A(45 tP: -10A(45 tR: Return:IfEndIf SThen tUtV:tO:tA:420tL: -10A(45 t

14、P:5500tR:Return:IfEndIf SThen tUtV:T O:T A:TL:-5500 T P:-5500 T R:Return:IfEndIf S:Then Goto 1:IfEndLbl 2:Ot Z:Prog “QXJSSUB1”: (C-E)/sin(F+9O)tZ: Return第四种放样程序 FY-O4 中桩坐标正反算程序 根据 48OOP 源程序改写 58OOP FY 主程序Cls:Fix 3:“= XY”:“= SZ”:N:“ X0” ： U线元起点X坐标“ 丫0” :戡元起点Y坐标“ SOO”： 线元起点桩号“ F0 ”：线元起点方位角“ LS”：线元起点长度

15、“R1” ：P 线元起点半径“R2” ：R 线元终点半径-0+Q:线元转向方向(直线为0，左为-1,右为1)1/PtC:(P-R)/(2HPR)tD:180/ nT E：If N=1:Then Goto 1:Else Goto 2:IfEnd:Lbl 1:“S=”S:里程“Z=”Z:偏移量Abs(S-O)TW:Prog “ZS”:Cls:“Xp=”:“Yp=”:Locate 7,1,X:Locate 7,2,丫丄“FWJ=” :F-90TF:F?DMSGoto 1:Lbl 2:“Xp”X:XT I:“Yp”Y:YTJ:Prog “FS”:O+WTS:Cls:“S”:“Z”:Locate 10,1,S:Locate 10,2,ZGoto 2ZS 正算子程序TA:TB:TK:TL:1-LTF:1-KT M:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)TX:V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW