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

√(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]: 表示大圆垂直边缘

If Z[1]≥-Z[4]：表示上半部圆部分

Then ＂R+-=＂：表示上半部圆部分实测与设计差

Locate 10，4,Z[2]-R-B◢差值显示到第四行上,负为欠,正为超IfEnd:

If D>-H-F And D≤-Z[6] And Abs(S)>Z[9]: 表示下半部边墙部分Then ＂BQ+-=＂：表示边墙实测与设计差

Locate 10，4，Abs(S)-Z[11]+( Abs(D)-Z[12])Z[10] ◢

差值显示到第四行上,负为欠,正为超

IfEnd：

If Abs(S)>Z[9] And Abs(S)

Then ＂QJ+-=＂:

Locate 10，4,-(D+H+F)◢

IfEnd:

If Abs(S)>Z[13] And Abs(S)

Then ＂YG+-=＂: 表示仰拱实测与设计差

Locate 10,4, Abs(D)-Z[7]-√(Abs((M+Q)2-(Abs(S)-Z[15])2))◢

差值显示到第四行上,负为欠,正为超

IfEnd:

If Abs(S) ≤Z[13] And D<-H:

Then ＂YG+-=＂: 表示仰拱实测与设计差

Locate 10,4, Abs(D)+A-√((W+Q)2-S2)◢

差值显示到第四行上,负为欠,正为超

IfEnd:

3a-5800P

(它是个特殊情况,无小圆心)

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

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

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

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

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

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

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

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

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]:

If Z[1]≥-Z[4]：表示上半部圆部分

Then ＂R+-=＂：表示上半部圆部分实测与设计差

Locate 10，4,Z[2]-R-B◢差值显示到第四行上,负为欠,正为超

IfEnd:

If D>-H-F And D≤-Z[6]: 表示下半部边墙部分

Then ＂BQ+-=＂：表示边墙实测与设计差

Locate 10，4，Abs(S)-Z[11]+( Abs(D)-Z[12])Z[10] ◢

差值显示到第四行上,负为欠,正为超

IfEnd：

If D<-H And Abs(S)

表示下半部仰拱部分,如果这里的判断条件取得不好,在交界位置会跟随BQ结果一起出现Then ＂YG+-=＂: 表示仰拱实测与设计差

Locate 10,4, A-√(W2-S2)-D◢

差值显示到第四行上,负为欠,正为超

IfEnd:

Return

…………………………………………………………………………………………

隧道断面图纸样式…………………………………………………………………………………………

Ⅲa衬砌断面图

IⅤb衬砌断面图

…………………………………………………………………………………………。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

Ⅴc衬砌断面图

…………………………………………………………………………………………。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

第二种放样程序FY-02

这个程序主要应用在电缆沟及道床顶面的测量工作。

高程抄平程序CPJS

变坡点里程→O:

变坡点高程→G:

竖曲线半径→R:

路线后纵坡→E:

路线前纵坡→F:

切线长度→T:

“DG=”A: 对于全站仪是仪器点的高程值,对于水准仪是后视点的高程值

“YG=”B: 对于全站仪是仪器高度,对于水准仪是后视读数

“FYG+-=”P: 放样点到圆心的垂直高度(圆心以下为负,以上为正)

Lbl 0:

4→DimZ:

Cls:

“KM=”L: 待求点里程

If L≤O:

Then →Z[4]:

Else →Z[4]:

IfEnd:

Abs(O-L)→Z[1]:

G+Z[1]Z[4]→Z[2]:

If L≤O-T Or L>O+T:

Then Z[2]→Z[2]:

IfEnd:

If L>O-T And L≤O:

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

If E≤F:

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

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

IfEnd:

IfEnd:

If L>O And L≤O+T:

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

If E≤F:

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

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

IfEnd:

IfEnd:

Z[2]+→H: 表示内轨到圆心的垂直高度

“READ=”K: 前视读数(全站仪观测的高差之相反数,水准仪的前视的读数值)

Fix 3:

“GCCZ+-=”:计算出要量取的高程差值

Locate 10,4,A+B-K-H-P◢高程差值显示在第四行,负低于设计,正高于设计

If K=0: 以K为0值作为本站结束标志,否则继续下一点观测计算

Then Stop:

Else Goto 0:

IfEnd

这个程序主要要求必须先知道里程才能计算。K输入0后仍会先算出结果才能真正结束。

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。第三种放样程序FY-03

QXJS-000 主程序

Fix 3:

Deg:

Lbl 4:

“=>NE”:

“=>SZ”:

“1,2=”→Q:

“LICHENG”→S:

Prog “QXJSSUB0”

If Q=1:

Then Goto 1:

IfEnd:

If Q=2:

Then Goto 2:

IfEnd

Lbl 1:

“OUT JL=”→Z:

“OUT JD=”→G:

Prog“QXJSSUB1”:

“XZB=”:

N→N◢

“YZB=”

:E→E◢

“QXFWJ=”:

F→F:

F?DMS◢

Goto 4

Lbl 2:

“XZB=”→B:

“YZB=”→C:

B→N:

C→E:

Prog“QXJSSUB2”:

“LICHENG=”:

S→S◢

“OUT JL=”:

Z±a→Z◢

“CDG=”→G:

“GC=”:

G- 4

QXJSSUB0 白石坪2#出口数据子程序Goto 1:

Lbl 1:

If S<:

Then →U:

→V:

→O:

→A:

420→L:

10^(45→P:

5500→R:

Return:

If S<

Then →U →V:

→O:

→A:

→L:

5500→P: 5500→R: Return: IfEnd

If S<

Then →U →V:

→O:

→A:

420→L: 5500→P: 10^(45→R: Return: IfEnd

If S<

Then →U →V:

→O:

→A:

→L:

-10^(45→P: -10^(45→R: Return: IfEnd

If S<

Then →U →V:

→O:

→A:

420→L:

-10^(45→P: 5500→R: Return: IfEnd

If S<

Then →U →V:

→A:

→L:

-5500→P:

-5500→R:

Return:

IfEnd

If S<

Then →U

→V:

→O:

→A:

420→L:

-5500→P

-10^(45→R:

Return:

IfEnd

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:

Return

QXJSSUB2 坐标反算子程序

Lbl 1:

0→Z:

1→Q:

Prog “QXJSSUB0”:

(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:

If Abs(W)>:

Then Goto 1:

IfEnd

0→Z:

Prog “QXJSSUB1”:

(C-E)/sin(F+90)→Z:

Return

第四种放样程序FY-04

中桩坐标正反算程序

根据4800P源程序改写5800P

FY 主程序

Cls:Fix 3:

“ => XY”:

“ => SZ”:

N:

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

If N=1:

Then Goto 1:

Else Goto 2:

IfEnd:

Lbl 1:

“S=”S: 里程

“Z=”Z: 偏移量

Abs(S-O)→W:

Prog “ZS”:

Cls:

“Xp=”:

“Yp=”:

Locate 7,1,X:

Locate 7,2,Y◢

“FWJ=”:

F-90→F:

F?DMS◢

Goto 1:

Lbl 2:

X→I:

“Yp”Y:

Y→J:

Prog “FS”:

O+W→S:

Cls:

“S”:

“Z”:

Locate 10,1,S:

Locate 10,2,Z◢

Goto 2

ZS 正算子程序

→A:

→B:

→K:

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

Lbl 0:

Prog “ZS”:

T+QEW(C+WD)→L:

(J-Y)cos(L)-(I-X)sin(L)→Z:

If Abs(Z)< 10^(-6):

Then Goto 1:

Else W+Z→W:

IfEnd:

Goto 0:

Lbl 1:

0→Z:

Prog “ZS”:

(J-Y)/sin(F)→Z