卡西欧隧道放样程序完整版Word文档格式.docx

卡西欧隧道放样程序完整版Word文档格式.docx

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

45090AndL≤45125:

ThenProg＂5b＂:

IfEnd:

45125AndL≤45135:

ThenProg＂4a＂:

45135AndL≤45330:

ThenProg＂＂:

Stop:

45330AndL≤45345:

45345AndL≤45383:

45510AndL≤45540:

45540AndL≤45550:

45550AndL≤45650:

45650AndL≤45660:

45660AndL≤45680:

46085AndL≤46100:

ThenProg＂5c＂:

46100AndL≤46110:

ThenProg＂4c＂:

46110AndL≤46275:

46275AndL≤46285:

ThenProg＂4b＂:

46285AndL≤46310:

转入断面放样计算子程序

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衬砌断面图