卡西欧5800隧道放样程序.docx

资源描述

卡西欧5800隧道放样程序.docx

《卡西欧5800隧道放样程序.docx》由会员分享，可在线阅读，更多相关《卡西欧5800隧道放样程序.docx（19页珍藏版）》请在冰豆网上搜索。

卡西欧5800隧道放样程序.docx

卡西欧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:

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:

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个变量含义:

进入断面放样工作,开挖或支护厚度（变数）

断面净空半径与二衬厚度之和

圆心到检修道的垂直高度

二衬边缘边墙起点高到检修道的垂直高度

检修道到边墙脚的垂直高度

仰拱圆心到拱部圆心的垂直高度

仰拱半径与衬砌厚度之和

这里是设计拱墙喷砼厚度

这里是设计仰拱喷砼厚度

衬砌仰拱小半径

边墙基础设计宽度

拱部部分自检修道到拱部圆心位的夹角

衬砌仰拱小半径所夹角度

仰拱开挖或支护厚度（变数）

以下表格的内容就是建立数据子程序的（3A、4A、4B、4C、5B、5C）

变量

Ⅲa

Ⅳa

Ⅳb

Ⅳc

Ⅴb

Ⅴc

0~0.15

0~0.25

0~0.28

0.10

0.25

0.28

7.05

7.10

7.15

7.20

2.13

0.50

1.27

1.50

12.981

17.61

17.71

17.76

17.81

17.86

0.15

0.25

0.28

2.83

2.88

2.93

2.98

0.8

0.55

0.52

0.50

18°40′18″

55°00′47″

0~0.10

0~0.25

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=”?

对于全站仪是仪器点的高程值,对于水准仪是后视点的高程值

“YG=”?

对于全站仪是仪器高度,对于水准仪是后视读数

“FYG+-=”?

放样点到圆心的垂直高度（圆心以下为负,以上为正）

Lbl0:

4→DimZ:

Cls:

“KM=”?

待求点里程

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:

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:

Z[2]+2.43→H:

2.43表示内轨到圆心的垂直高度

“READ=”?

前视读数（全站仪观测的高差之相反数,水准仪的前视的读数值）

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+-=”:

√（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”:

“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=”?

里程

“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→I:

“Yp”?

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

展开阅读全文