卡西欧5800隧道放样程序

5800P隧道施工放样程序

第一种放样程序FY-01

隧道情况：我队四个中小隧道全部位于直线段内，只有一个隧道处于竖曲线变坡点位置。各个隧道围岩衬砌类型，洞门明洞设计不一，这里只放置了暗洞内的内容。由于实际施工中里程位置及尺寸大小都经常自行变位，所以现场放样中要随时注意变动。

FY-5800P 主程序

＂X0=＂X：实测坐标X值

＂Y0=＂Y：实测坐标Y值

＂Z0=＂C：实测高程Z值

Prog＂Z LS＂: 转入直线里程反算子程序

Prog＂SQX＂: 转入竖曲线子程序

xx→B:xx→Q: B是拱部初衬变数,Q是仰拱初衬变数；使用前根据放样或检查尺寸来定If L>45090 And L≤45125:Then Prog＂5b＂:IfEnd:

If L>45125 And L≤45135:Then Prog＂4a＂:IfEnd:

If L>45135 And L≤45330:Then Prog＂3a＂:Stop:IfEnd:

If L>45330 And L≤45345:Then Prog＂4a＂:IfEnd:

If L>45345 And L≤45383:Then Prog＂5b＂:IfEnd:

If L>45510 And L≤45540:Then Prog＂5b＂:IfEnd:

If L>45540 And L≤45550:Then Prog＂4a＂:IfEnd:

If L>45550 And L≤45650:Then Prog＂3a＂:Stop:IfEnd:

If L>45650 And L≤45660:Then Prog＂4a＂:IfEnd:

If L>45660 And L≤45680:Then Prog＂5b＂:IfEnd:

If L>46085 And L≤46100:Then Prog＂5c＂:IfEnd:

If L>46100 And L≤46110:Then Prog＂4c＂:IfEnd:

If L>46110 And L≤46275:Then Prog＂3a＂:Stop:IfEnd:

If L>46275 And L≤46285:Then Prog＂4b＂:IfEnd:

If L>46285 And L≤46310:Then Prog＂5b＂:IfEnd:

Prog＂45DMJS＂: 转入断面放样计算子程序

Stop

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

Z LS-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:

Fix 3:

＂KM=＂: 里程标示

＂DISP=＂: 偏中距标示

Locate 7,1,L : 显示计算的里程结果到第一行

Locate 10,2,S◢显示偏中距结果到第二行,负在左,正在右。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

SQX-5800P 子程序(竖曲线设计高程计算)

46150→A: 竖曲线变坡点里程

→G: 竖曲线变坡点高程

30000→R: 竖曲线半径

→E: 竖曲线变坡点小里程方向的纵坡

→F: 竖曲线变坡点大里程方向的纵坡,设计资料上是没有负号的,这里要加上→T 竖曲线切线长

5→DimZ:

If L≤A: 自动由子程序Z LS中提取L

Then →Z[1]: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁

Else →Z[1]: 高铁是千分比坡度,公路是百分比坡度,这里用的是高铁

IfEnd:

G+Abs(A-L)Z[1]→Z[2]:

If L≤A-T:

Then Z[2]→Z[4]:

IfEnd:

If L>A-T And L≤A:

Then (L-A+T)2÷(2R)→Z[3]:

If E≤F:

Then Z[2]+Z[3]→Z[4]:

Else Z[2]-Z[3]→Z[4]:

IfEnd:

IfEnd:

If L>A And L≤A+T:

Then (A+T-L) 2÷(2R)→Z[3]:

If E≤F:

Then Z[2]+Z[3]→Z[4]:

Else Z[2]-Z[3]→Z[4]:

IfEnd:

IfEnd:

If L>A+T:

Then Z[2]→Z[4]:

IfEnd:

Z[4]+→Z[5]: 将计算出来的设计高程（无横坡的）转换算到隧道圆心高度

C-Z[5]→D: C值直接由主程序中提取,求算出实测点与圆心的高差关系

Fix 3:

＂h+-=＂: 表示实测点与圆心的高差关系

Locate 10,3,D◢设置在第三行显示,负在下,正在上。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。断面计算过程中定义的14个变量含义:

B: 进入断面放样工作,开挖或支护厚度(变数)

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

H: 圆心到检修道的垂直高度

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

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

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

W: 仰拱半径与衬砌厚度之和

V: 这里是设计拱墙喷砼厚度

T: 这里是设计仰拱喷砼厚度

M: 衬砌仰拱小半径

N: 边墙基础设计宽度

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

P: 衬砌仰拱小半径所夹角度

Q: 仰拱开挖或支护厚度(变数)

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

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

45DMJS-5800P

15→DimZ:

Pol(Abs(S), D):

J→Z[1]:

I→Z[2]: