卡西欧5800隧道放样程序.docx
- 文档编号:30730654
- 上传时间:2023-08-19
- 格式:DOCX
- 页数:22
- 大小:57.76KB
卡西欧5800隧道放样程序.docx
《卡西欧5800隧道放样程序.docx》由会员分享,可在线阅读,更多相关《卡西欧5800隧道放样程序.docx(22页珍藏版)》请在冰豆网上搜索。
卡西欧5800隧道放样程序
5800P隧道施工放样程序
第一种放样程序FY-01
隧道情况:
我队四个中小隧道全部位于直线段内,只有一个隧道处于竖曲线变坡点位置。
各个隧道围岩衬砌类型,洞门明洞设计不一,这里只放置了暗洞内的内容。
由于实际施工中里程位置及尺寸大小都经常自行变位,所以现场放样中要随时注意变动。
FY-5800P主程序
"X0="?
X:
实测坐标X值
"Y0="?
Y:
实测坐标Y值
"Z0="?
C:
实测高程Z值
Prog"ZLS":
转入直线里程反算子程序
Prog"SQX":
转入竖曲线子程序
xx→B:
xx→Q:
B是拱部初衬变数,Q是仰拱初衬变数;使用前根据放样或检查尺寸来定
IfL>45090AndL≤45125:
ThenProg"5b":
IfEnd:
IfL>45125AndL≤45135:
ThenProg"4a":
IfEnd:
IfL>45135AndL≤45330:
ThenProg"3a":
Stop:
IfEnd:
IfL>45330AndL≤45345:
ThenProg"4a":
IfEnd:
IfL>45345AndL≤45383:
ThenProg"5b":
IfEnd:
IfL>45510AndL≤45540:
ThenProg"5b":
IfEnd:
IfL>45540AndL≤45550:
ThenProg"4a":
IfEnd:
IfL>45550AndL≤45650:
ThenProg"3a":
Stop:
IfEnd:
IfL>45650AndL≤45660:
ThenProg"4a":
IfEnd:
IfL>45660AndL≤45680:
ThenProg"5b":
IfEnd:
IfL>46085AndL≤46100:
ThenProg"5c":
IfEnd:
IfL>46100AndL≤46110:
ThenProg"4c":
IfEnd:
IfL>46110AndL≤46275:
ThenProg"3a":
Stop:
IfEnd:
IfL>46275AndL≤46285:
ThenProg"4b":
IfEnd:
IfL>46285AndL≤46310:
ThenProg"5b":
IfEnd:
Prog"45DMJS":
转入断面放样计算子程序
Stop
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
ZLS-5800P子程序(直线段里程反算)
313242.908→M:
直线起点X坐标
485714.351→N:
直线起点Y坐标
43263.493→Q:
直线起点里程
186°30'41.37"→T:
直线起点方位角
Pol(X-M,Y-N):
这里的X、Y自动在主程序中提取
J<0=>360+J→J:
Rec(I,J-T):
Q+I→L:
这里反映是由小里程向大里程方向计算的结果存放在变量L里
J-2.5→S:
设计中线位于隧道中心线的左侧2.5米处,计算的偏中距存放在变量S里
Cls:
Fix3:
"KM=":
里程标示
"DISP=":
偏中距标示
Locate7,1,L:
显示计算的里程结果到第一行
Locate10,2,S◢显示偏中距结果到第二行,负在左,正在右
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
SQX-5800P子程序(竖曲线设计高程计算)
46150→A:
竖曲线变坡点里程
68.787→G:
竖曲线变坡点高程
30000→R:
竖曲线半径
13.86→E:
竖曲线变坡点小里程方向的纵坡
-9.7→F:
竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,这里要加上
353.385→T竖曲线切线长
5→DimZ:
IfL≤A:
自动由子程序ZLS中提取L
Then-0.001E→Z[1]:
高铁是千分比坡度,公路是百分比坡度,这里用的是高铁
Else0.001F→Z[1]:
高铁是千分比坡度,公路是百分比坡度,这里用的是高铁
IfEnd:
G+Abs(A-L)Z[1]→Z[2]:
IfL≤A-T:
ThenZ[2]→Z[4]:
IfEnd:
IfL>A-TAndL≤A:
Then(L-A+T)2÷(2R)→Z[3]:
IfE≤F:
ThenZ[2]+Z[3]→Z[4]:
ElseZ[2]-Z[3]→Z[4]:
IfEnd:
IfEnd:
IfL>AAndL≤A+T:
Then(A+T-L)2÷(2R)→Z[3]:
IfE≤F:
ThenZ[2]+Z[3]→Z[4]:
ElseZ[2]-Z[3]→Z[4]:
IfEnd:
IfEnd:
IfL>A+T:
ThenZ[2]→Z[4]:
IfEnd:
Z[4]+2.43→Z[5]:
将计算出来的设计高程(无横坡的)转换算到隧道圆心高度
C-Z[5]→D:
C值直接由主程序中提取,求算出实测点与圆心的高差关系
Fix3:
"h+-=":
表示实测点与圆心的高差关系
Locate10,3,D◢设置在第三行显示,负在下,正在上
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
断面计算过程中定义的14个变量含义:
B:
进入断面放样工作,开挖或支护厚度(变数)
R:
断面净空半径与二衬厚度之和
H:
圆心到检修道的垂直高度
E:
二衬边缘边墙起点高到检修道的垂直高度
F:
检修道到边墙脚的垂直高度
A:
仰拱圆心到拱部圆心的垂直高度
W:
仰拱半径与衬砌厚度之和
V:
这里是设计拱墙喷砼厚度
T:
这里是设计仰拱喷砼厚度
M:
衬砌仰拱小半径
N:
边墙基础设计宽度
U:
拱部部分自检修道到拱部圆心位的夹角
P:
衬砌仰拱小半径所夹角度
Q:
仰拱开挖或支护厚度(变数)
以下表格的内容就是建立数据子程序的(3A、4A、4B、4C、5B、5C)
变量
Ⅲa
Ⅳa
Ⅳb
Ⅳc
Ⅴb
Ⅴc
B
0~0.15
0~0.25
0~0.25
0~0.25
0~0.28
0~0.28
T
0.10
0.25
0.25
0.28
0.28
R
7.05
7.05
7.10
7.10
7.15
7.20
H
2.13
2.13
2.13
2.13
2.13
2.13
E
0.50
0.50
0.50
0.50
0.50
0.50
F
1.27
1.50
1.50
1.50
1.50
1.50
A
12.981
12.981
12.981
12.981
12.981
12.981
W
17.61
17.71
17.76
17.76
17.81
17.86
V
0.15
0.25
0.25
0.25
0.28
0.28
M
2.83
2.88
2.88
2.93
2.98
N
0.8
0.55
0.55
0.52
0.50
U
18°40′18″
18°40′18″
18°40′18″
18°40′18″
18°40′18″
P
55°00′47″
55°00′47″
55°00′47″
55°00′47″
55°00′47″
Q
0~0.10
0~0.25
0~0.25
0~0.28
0~0.28
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
。
45DMJS-5800P
15→DimZ:
Pol(Abs(S),D):
J→Z[1]:
I→Z[2]:
√(R2-(H-E)2)→Z[3]:
sin-1((H-E)/R)→Z[4]:
Rec(R+V,Z[4]):
I→Z[5]:
J→Z[6]:
Rec(R-M,U):
I→Z[15]:
表示小圆心到大圆心的水平距离
J→Z[7]:
表示小圆心到大圆心的垂直高度
H+F→Z[8]:
I+√(Abs((M+T)2-(Z[8]-Z[7])2))→Z[9]:
(Z[5]-Z[9]-N)/(H-Z[6]+F)→Z[10]:
Z[10]表示边墙的斜率
Rec(R+B,Z[4]):
I→Z[11]:
J→Z[12]:
Rec(M+T,U+P):
I+Z[15]→Z[13]:
表示大圆水平边缘
J+Z[7]→Z[14]:
表示大圆垂直边缘
IfZ[1]≥-Z[4]:
表示上半部圆部分
Then"R+-=":
表示上半部圆部分实测与设计差
Locate10,4,Z[2]-R-B◢差值显示到第四行上,负为欠,正为超
IfEnd:
IfD>-H-FAndD≤-Z[6]AndAbs(S)>Z[9]:
表示下半部边墙部分
Then"BQ+-=":
表示边墙实测与设计差
Locate10,4,Abs(S)-Z[11]+(Abs(D)-Z[12])Z[10]◢
差值显示到第四行上,负为欠,正为超
IfEnd:
IfAbs(S)>Z[9]AndAbs(S) Then"QJ+-=": Locate10,4,-(D+H+F)◢ IfEnd: IfAbs(S)>Z[13]AndAbs(S) Then"YG+-=": 表示仰拱实测与设计差 Locate10,4,Abs(D)-Z[7]-√(Abs((M+Q)2-(Abs(S)-Z[15])2))◢ 差值显示到第四行上,负为欠,正为超 IfEnd: IfAbs(S)≤Z[13]AndD<-H: Then"YG+-=": 表示仰拱实测与设计差 Locate10,4,Abs(D)+A-√((W+Q)2-S2)◢ 差值显示到第四行上,负为欠,正为超 IfEnd: 3a-5800P (它是个特殊情况,无小圆心) xxx→B: 进入断面放样工作,开挖或支护厚度(变数) 7.05→R: 断面净空半径与二衬厚度之和 2.13→H: 圆心到检修道的垂直高度 0.5→E: 二衬边缘边墙起点高到检修道的垂直高度 1.27→F: 检修道到边墙脚的垂直高度 12.981→A: 仰拱圆心到拱部圆心的垂直高度 17.61→W: 仰拱半径与衬砌厚度之和 0.15→V: 这里的0.15是设计拱墙喷砼厚度 12→DimZ: Pol(Abs(S),D): J→Z[1]: I→Z[2]: √(R2-(H-E)2)→Z[3]: sin-1((H-E)/R)→Z[4]: Rec(R+V,Z[4]): I→Z[5]: J→Z[6]: √(W2-(H+F+A)2)→Z[7]: Z[5]-Z[7]→Z[8]: H+F-Z[6]→Z[9]: Z[8]/Z[9]→Z[10]: Z[10]表示边墙的斜率 Rec(R+B,Z[4]): I→Z[11]: J→Z[12]: IfZ[1]≥-Z[4]: 表示上半部圆部分 Then"R+-=": 表示上半部圆部分实测与设计差 Locate10,4,Z[2]-R-B◢差值显示到第四行上,负为欠,正为超 IfEnd: IfD>-H-FAndD≤-Z[6]: 表示下半部边墙部分 Then"BQ+-=": 表示边墙实测与设计差 Locate10,4,Abs(S)-Z[11]+(Abs(D)-Z[12])Z[10]◢ 差值显示到第四行上,负为欠,正为超 IfEnd: IfD<-HAndAbs(S) 表示下半部仰拱部分,如果这里的判断条件取得不好,在交界位置会跟随BQ结果一起出现 Then"YG+-=": 表示仰拱实测与设计差 Locate10,4,A-√(W2-S2)-D◢ 差值显示到第四行上,负为欠,正为超 IfEnd: Return ………………………………………………………………………………………… 隧道断面图纸样式 ………………………………………………………………………………………… Ⅲa衬砌断面图 IⅤb衬砌断面图 ………………………………………………………………………………………… 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 Ⅴc衬砌断面图 ………………………………………………………………………………………… 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 第二种放样程序FY-02 这个程序主要应用在电缆沟及道床顶面的测量工作。 高程抄平程序CPJS 变坡点里程→O: 变坡点高程→G: 竖曲线半径→R: 路线后纵坡→E: 路线前纵坡→F: 切线长度→T: “DG=”? A: 对于全站仪是仪器点的高程值,对于水准仪是后视点的高程值 “YG=”? B: 对于全站仪是仪器高度,对于水准仪是后视读数 “FYG+-=”? P: 放样点到圆心的垂直高度(圆心以下为负,以上为正) Lbl0: 4→DimZ: Cls: “KM=”? L: 待求点里程 IfL≤O: Then-0.001E→Z[4]: Else-0.001F→Z[4]: IfEnd: Abs(O-L)→Z[1]: G+Z[1]Z[4]→Z[2]: IfL≤O-TOrL>O+T: ThenZ[2]→Z[2]: IfEnd: IfL>O-TAndL≤O: Then(L-O+T)2÷(2R)→Z[3]: IfE≤F: ThenZ[2]+Z[3]→Z[2]: ElseZ[2]-Z[3]→Z[2]: IfEnd: IfEnd: IfL>OAndL≤O+T: Then(O+T-L)2÷(2R)→Z[3]: IfE≤F: ThenZ[2]+Z[3]→Z[2]: ElseZ[2]-Z[3]→Z[2]: IfEnd: IfEnd: Z[2]+2.43→H: 2.43表示内轨到圆心的垂直高度 “READ=”? K: 前视读数(全站仪观测的高差之相反数,水准仪的前视的读数值) Fix3: “GCCZ+-=”: 计算出要量取的高程差值 Locate10,4,A+B-K-H-P◢高程差值显示在第四行,负低于设计,正高于设计 IfK=0: 以K为0值作为本站结束标志,否则继续下一点观测计算 ThenStop: ElseGoto0: IfEnd 这个程序主要要求必须先知道里程才能计算。 K输入0后仍会先算出结果才能真正结束。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 。 第三种放样程序FY-03 QXJS-000主程序 Fix3: Deg: Lbl4: “1.SZ=>NE”: “2.NE=>SZ”: “1,2=”? →Q: “LICHENG”? →S: Prog“QXJSSUB0” Lbl0: IfQ=1: ThenGoto1: IfEnd: IfQ=2: ThenGoto2: IfEnd Lbl1: “OUTJL=”? →Z: “OUTJD=”? →G: Prog“QXJSSUB1”: “XZB=”: N→N◢ “YZB=” : E→E◢ “QXFWJ=”: F→F: F►DMS◢ Goto4 Lbl2: “XZB=”? →B: “YZB=”? →C: B→N: C→E: Prog“QXJSSUB2”: “LICHENG=”: S→S◢ “OUTJL=”: Z±a→Z◢ “CDG=”? →G: “GC=”: G-(78.7156-0.0058(7900-S)+2.27)→D◢ ? R: “R+-=”: √(Z2+D2)-R ◢Goto4 QXJSSUB0白石坪2#出口数据子程序 Goto1: Lbl1: IfS<3270.353: Then7913.106→U: 2120.363→V: 2850.353→O: 90-48-35.26→A: 420→L: 10^(45→P: 5500→R: Return: IfEnd IfS<4976.210 Then7901.826→U 2540.185→V: 3270.353→O: 92-59-50.86→A: 1705.857→L: 5500→P: 5500→R: Return: IfEnd IfS<5396.210 Then7551.980→U 4202.804→V: 4976.210→O: 110-46-05.09→A: 420→L: 5500→P: 10^(45→R: Return: IfEnd IfS<6180.470 Then7393.1168→U 4591.5709→V: 5396.210→O: 112-57-20.71→A: 784.26→L: -10^(45→P: -10^(45→R: Return: IfEnd IfS<6600.470 Then7087.2396→U 5313.7225→V: 6180.470→O: 112-57-20.71→A: 420→L: -10^(45→P: 5500→R: Return: IfEnd IfS<7132.315 Then6928.3767→U 5702.4894→V: 6600.470→O: 110-46-05.15→A: 531.845→L: -5500→P: -5500→R: Return: IfEnd IfS<7552.315 Then6764.1103→U 6208.1131→V: 7132.315→O: 105-13-39.53→A: 420→L: -5500→P -10^(45→R: Return: IfEnd QXJSSUB1坐标正算子程序 0.5(1/R-1/P)/L→D: S-O→X: U+∮(cos(A+(X/P)+DX2)*180/π,0,X)→N: V+∮(sin(A+(X/P)+DX2)*180/π,0,X)→E: A+(X/P)+DX2)*180/π,0,X)→F: N+Zcos(F+G)→N: E+Zsin(F+G)→E: Return QXJSSUB2坐标反算子程序 Lbl1: 0→Z: 1→Q: Prog“QXJSSUB0”: 0.5(1/R-1/P)/L→D: S-O→X: U+∮(cos(A+(X/P)+DX2)*180/π,0,X)→N: V+∮(sin(A+(X/P)+DX2)*180/π,0,X)→E: A+(X/P)+DX2)*180/π,0,X)→F: N+Zcos(F+90)→N: E+Zsin(F+90)→E: Pol(N-B+10^(-46),E-C+10^(-46)): Isin(F-90-J)→W: S+W→S: IfAbs(W)>0.0001: ThenGoto1: IfEnd Lbl2: 0→Z: Prog“QXJSSUB1”: (C-E)/sin(F+90)→Z: Return 第四种放样程序FY-04 中桩坐标正反算程序 根据4800P源程序改写5800P FY主程序 Cls: Fix3: “1.SZ=>XY”: “2.XY=>SZ”: ? N: “X0”? U: 线元起点X坐标 “Y0”? V: 线元起点Y坐标 “S0”? O: 线元起点桩号 “F0”? G: 线元起点方位角 “LS”? H: 线元起点长度 “R1”? P: 线元起点半径 “R2”? R: 线元终点半径 “-0+”? Q: 线元转向方向(直线为0,左为-1,右为1) 1/P→C: (P-R)/(2HPR)→D: 180/π→E: IfN=1: ThenGoto1: ElseGoto2: IfEnd: Lbl1: “S=”? S: 里程 “Z=”? Z: 偏移量 Abs(S-O)→W: Prog“ZS”: Cls: “Xp=”: “Yp=”: Locate7,1,X: Locate7,2,Y◢ “FWJ=”: F-90→F: F►DMS◢ Goto1: Lbl2: “Xp”? X: X→I: “Yp”? Y: Y→J: Prog“FS”: O+W→S: Cls: “S”: “Z”: Locate10,1,S: Locate10,2,Z◢ Goto2 ZS正算子程序 0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: 1-L→F: 1-K→M: U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD)) +Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y: G+QEW(C+WD)+90→F: X+Zcos(F)→X: Y+Zsin(F)→Y FS反算子程序 G-90→T: Abs((Y-V)cos(T)-(X-U)sin(T))→W: 0→Z: Lbl0: Prog“ZS”: T+QEW(C+WD)→L: (J-Y)cos(L)-(I-X)sin(L)→Z: IfAbs(Z)<10^(-6): ThenGoto1: ElseW+Z→W: IfEnd: Goto0: Lbl1: 0→Z: Prog“ZS”: (J-Y)/sin(F)→Z
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 卡西欧 5800 隧道 程序