卡西欧5800隧道放样程序Word格式.docx
《卡西欧5800隧道放样程序Word格式.docx》由会员分享，可在线阅读，更多相关《卡西欧5800隧道放样程序Word格式.docx（22页珍藏版）》请在冰豆网上搜索。
46275AndL≤46285:
ThenProg＂4b＂:
46285AndL≤46310:
Prog＂45DMJS＂:
转入断面放样计算子程序
Stop
。
ZLS-5800P子程序（直线段里程反算）
→M:
直线起点X坐标
→N:
直线起点Y坐标
→Q:
直线起点里程
186°
30＇＂→T:
直线起点方位角
Pol（X-M,Y-N）:
这里的X、Y自动在主程序中提取
J<
0=>
360+J→J:
Rec（I,J-T）:
Q+I→L:
这里反映是由小里程向大里程方向计算的结果存放在变量L里
→S:
设计中线位于隧道中心线的左侧米处,计算的偏中距存放在变量S里
Cls:
Fix3:
＂KM=＂:
里程标示
＂DISP=＂:
偏中距标示
Locate7,1,L:
显示计算的里程结果到第一行
Locate10,2,S◢显示偏中距结果到第二行,负在左,正在右
SQX-5800P子程序（竖曲线设计高程计算）
46150→A:
竖曲线变坡点里程
→G:
竖曲线变坡点高程
30000→R:
竖曲线半径
→E:
竖曲线变坡点小里程方向的纵坡
→F:
竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,这里要加上
→T竖曲线切线长
5→DimZ:
IfL≤A:
自动由子程序ZLS中提取L
Then→Z[1]:
高铁是千分比坡度,公路是百分比坡度,这里用的是高铁
Else→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]+→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~
T
R
H
E
F
A
W
V
M
N
U
18°
40′18″
P
55°
00′47″
Q
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:
→R:
→H:
→A:
→W:
→V:
这里的是设计拱墙喷砼厚度
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=”A:
对于全站仪是仪器点的高程值,对于水准仪是后视点的高程值
“YG=”B:
对于全站仪是仪器高度,对于水准仪是后视读数
“FYG+-=”P:
放样点到圆心的垂直高度（圆心以下为负,以上为正）
Lbl0:
4→DimZ:
“KM=”L:
待求点里程
IfL≤O:
Then→Z[4]:
Else→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]+→H:
表示内轨到圆心的垂直高度
“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:
“=>
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=”→G:
“GC=”:
G-4
QXJSSUB0白石坪2#出口数据子程序
Goto1:
IfS<
Then→U:
→V:
→O:
420→L:
10^（45→P:
5500→R:
Return:
Then→U
→L:
5500→P:
10^（45→R:
-10^（45→P:
-10^（45→R:
-5500→P:
-5500→R:
-5500→P
QXJSSUB1坐标正算子程序
（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）>
Prog“QXJSSUB1”:
（C-E）/sin（F+90）→Z:
第四种放样程序FY-04
中桩坐标正反算程序
根据4800P源程序改写5800P
FY主程序
“=>
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:
F►DMS
“Xp”X:
X→I:
“Yp”Y:
Y→J:
Prog“FS”:
O+W→S:
“S”:
“Z”:
Locate10,1,S:
Locate10,2,Z
Goto2
ZS正算子程序
→B:
→K:
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
升级会员 