卡西欧5800隧道放样程序Word下载.docx
- 文档编号:17219857
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:19
- 大小:81.03KB
卡西欧5800隧道放样程序Word下载.docx
《卡西欧5800隧道放样程序Word下载.docx》由会员分享,可在线阅读,更多相关《卡西欧5800隧道放样程序Word下载.docx(19页珍藏版)》请在冰豆网上搜索。
直线起点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]:
G+Abs(A-L)Z[1]→Z[2]:
IfL≤A-T:
ThenZ[2]→Z[4]:
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]:
AAndL≤A+T:
Then(A+T-L)2÷
A+T:
Z[4]+2.43→Z[5]:
将计算出来的设计高程(无横坡的)转换算到隧道圆心高度
C-Z[5]→D:
C值直接由主程序中提取,求算出实测点与圆心的高差关系
"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.28
T
0.10
0.25
0.28
R
7.05
7.10
7.15
7.20
H
2.13
E
0.50
F
1.27
1.50
A
12.981
W
17.61
17.71
17.76
17.81
17.86
V
0.15
M
2.83
2.88
2.93
2.98
N
0.8
0.55
0.52
U
18°
40′18″
P
55°
00′47″
Q
0~0.10
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◢差值显示到第四行上,负为欠,正为超
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)<
Z[9]+NAndD<
-H:
Then"QJ+-=":
Locate10,4,-(D+H+F)◢
Z[13]AndAbs(S)<
Z[9]AndD<
-Z[6]:
Then"YG+-=":
表示仰拱实测与设计差
Locate10,4,Abs(D)-Z[7]-√(Abs((M+Q)2-(Abs(S)-Z[15])2))◢
IfAbs(S)≤Z[13]AndD<
Locate10,4,Abs(D)+A-√((W+Q)2-S2)◢
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:
√(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]:
-H-FAndD≤-Z[6]:
IfD<
-HAndAbs(S)<
Z[7]:
表示下半部仰拱部分,如果这里的判断条件取得不好,在交界位置会跟随BQ结果一起出现
Then"YG+-=":
Locate10,4,A-√(W2-S2)-D◢
Return
…………………………………………………………………………………………
隧道断面图纸样式
Ⅲa衬砌断面图
IⅤb衬砌断面图
Ⅴc衬砌断面图
第二种放样程序FY-02
这个程序主要应用在电缆沟及道床顶面的测量工作。
高程抄平程序CPJS
变坡点里程→O:
变坡点高程→G:
竖曲线半径→R:
路线后纵坡→E:
路线前纵坡→F:
切线长度→T:
“DG=”?
对于全站仪是仪器点的高程值,对于水准仪是后视点的高程值
“YG=”?
对于全站仪是仪器高度,对于水准仪是后视读数
“FYG+-=”?
放样点到圆心的垂直高度(圆心以下为负,以上为正)
Lbl0:
4→DimZ:
“KM=”?
L:
待求点里程
IfL≤O:
Then-0.001E→Z[4]:
Else-0.001F→Z[4]:
Abs(O-L)→Z[1]:
G+Z[1]Z[4]→Z[2]:
IfL≤O-TOrL>
O+T:
ThenZ[2]→Z[2]:
O-TAndL≤O:
Then(L-O+T)2÷
ThenZ[2]+Z[3]→Z[2]:
ElseZ[2]-Z[3]→Z[2]:
OAndL≤O+T:
Then(O+T-L)2÷
Z[2]+2.43→H:
2.43表示内轨到圆心的垂直高度
“READ=”?
K:
前视读数(全站仪观测的高差之相反数,水准仪的前视的读数值)
“GCCZ+-=”:
计算出要量取的高程差值
Locate10,4,A+B-K-H-P◢高程差值显示在第四行,负低于设计,正高于设计
IfK=0:
以K为0值作为本站结束标志,否则继续下一点观测计算
ThenStop:
ElseGoto0:
IfEnd
这个程序主要要求必须先知道里程才能计算。
K输入0后仍会先算出结果才能真正结束。
第三种放样程序FY-03
QXJS-000主程序
Deg:
Lbl4:
“1.SZ=>
NE”:
“2.NE=>
SZ”:
“1,2=”?
→Q:
“LICHENG”?
→S:
Prog“QXJSSUB0”
IfQ=1:
ThenGoto1:
IfQ=2:
ThenGoto2:
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=”?
“GC=”:
G-(78.7156-0.0058(7900-S)+2.27)→D◢
?
“R+-=”:
√(Z2+D2)-R
◢Goto4
QXJSSUB0白石坪2#出口数据子程序
Goto1:
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:
4976.210
Then7901.826→U
2540.185→V:
3270.353→O:
92-59-50.86→A:
1705.857→L:
5500→P:
5396.210
Then7551.980→U
4202.804→V:
4976.210→O:
110-46-05.09→A:
10^(45→R:
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:
6600.470
Then7087.2396→U
5313.7225→V:
6180.470→O:
7132.315
Then6928.3767→U
5702.4894→V:
6600.470→O:
110-46-05.15→A:
531.845→L:
-5500→P:
-5500→R:
7552.315
Then6764.1103→U
6208.1131→V:
7132.315→O:
105-13-39.53→A:
-5500→P
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:
QXJSSUB2坐标反算子程序
0→Z:
1→Q:
Prog“QXJSSUB0”:
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:
Prog“QXJSSUB1”:
(C-E)/sin(F+90)→Z:
第四种放样程序FY-04
中桩坐标正反算程序
根据4800P源程序改写5800P
FY主程序
“1.SZ=>
XY”:
“2.XY=>
SZ”:
“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:
“S=”?
S:
里程
“Z=”?
Z:
偏移量
Abs(S-O)→W:
Prog“ZS”:
“Xp=”:
“Yp=”:
Locate7,1,X:
Locate7,2,Y◢
“FWJ=”:
F-90→F:
“Xp”?
X:
X→I:
“Yp”?
Y:
Y→J:
Prog“FS”:
O+W→S:
“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:
T+QEW(C+WD)→L:
(J-Y)cos(L)-(I-X)sin(L)→Z:
IfAbs(Z)<
10^(-6):
ElseW+Z→W:
Goto0:
(J-Y)/sin(F)→Z
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 卡西欧 5800 隧道 程序
![提示](https://static.bdocx.com/images/bang_tan.gif)