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

上传人:b****7 文档编号:22306408 上传时间:2023-02-03 格式:DOCX 页数:22 大小:274.63KB
下载 相关 举报
卡西欧5800隧道放样程序Word格式.docx_第1页
第1页 / 共22页
卡西欧5800隧道放样程序Word格式.docx_第2页
第2页 / 共22页
卡西欧5800隧道放样程序Word格式.docx_第3页
第3页 / 共22页
卡西欧5800隧道放样程序Word格式.docx_第4页
第4页 / 共22页
卡西欧5800隧道放样程序Word格式.docx_第5页
第5页 / 共22页
点击查看更多>>
下载资源
资源描述

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

《卡西欧5800隧道放样程序Word格式.docx》由会员分享,可在线阅读,更多相关《卡西欧5800隧道放样程序Word格式.docx(22页珍藏版)》请在冰豆网上搜索。

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

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

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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 高等教育 > 院校资料

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1