卡西欧5800P计算器隧道施工测量程序设计

合集下载

CASIO-fx-5800P实用工程测量程序

CASIO-fx-5800P实用工程测量程序

CASIO-fx-5800P实用工程测量程序今天,我想向大家介绍一款非常实用的工程测量程序:CASIO-fx-5800P。

CASIO-fx-5800P是一款非常实用的计算器,可以用于各种工程测量和计算。

在这篇文章中,我将详细介绍该计算器的功能和使用方法。

什么是CASIO-fx-5800P?CASIO-fx-5800P是CASIO公司的一款高级科学计算器,该计算器集成了丰富的计算功能和工程测量功能,可以帮助用户准确地进行各种计算和测量。

该计算器适用于各种工程测量、科学计算、数据分析等工作。

CASIO-fx-5800P的功能下面是CASIO-fx-5800P常用的功能:1. 基本运算功能CASIO-fx-5800P可以进行各种基本运算,如加减乘除、开方、开方根、倒数等等。

2. 三角函数和反三角函数CASIO-fx-5800P 提供了三角函数和反三角函数的计算功能,如正弦函数、余弦函数、正切函数、反正弦函数、反余弦函数、反正切函数等。

3. 统计学计算CASIO-fx-5800P 提供了各种统计学计算功能,如数据输入、平均数、方差、标准差、偏差等。

4. 矩阵功能CASIO-fx-5800P 可以完成任何矩阵的基本计算,如矩阵乘法、矩阵求逆、矩阵行列式、矩阵分解、矩阵特征向量和特征值等。

5. 工程测量CASIO-fx-5800P 可以进行各种工程测量计算,如距离计算、面积计算、容积计算、温度计算、时间计算等。

6. 复数运算CASIO-fx-5800P 可以进行各种复数运算,如加减乘除、转换成极坐标形式等。

7. 方程求解CASIO-fx-5800P 可以解各种方程,如一次方程、二次方程、三次方程、四次方程、多项式方程、微积分方程等。

CASIO-fx-5800P在工程测量中的应用下面,我将介绍CASIO-fx-5800P 在工程测量中的应用。

CASIO-fx-5800P 是一种非常实用的计算器,在工程测量中有着广泛的应用。

CASIO_fx5800计算器_隧道三心圆超欠挖计算程序

CASIO_fx5800计算器_隧道三心圆超欠挖计算程序

关于隧道超欠挖的控制方法卡西欧计算器5800正反算、隧道超欠挖计算程序在隧道中的应用概述:位于十天高速A-CD31标由中交四局承建的曹家湾与朱家河隧道。

隧道洞内全面工作展开后,由于各个工作面交叉施工。

测量放样常常受到干扰和制约,由于外界因素干扰测量不及时常常造成超欠挖难以控制。

隧道断面仪应用具有局限性,只能架设隧道中线或法线上,测站点高程还必须重新测出。

隧道测量要求速度、准确度,如果放样时间太长就会耽误下道工序施工进展。

经我们项目部测量组编制以下程序,在施工中可随时检查超欠挖、初支、二衬断面,不影响施工。

并在洞身开挖时将开挖轮廓线画到掌子面,这样施钻人员可以很好的将超欠挖控制。

避免向以往开完打钻时参照上一班初支断面进行打眼,周边眼施钻角度也得到很好的掌握。

隧道超欠挖计算程序正算主程序(ZS):Lb1 0:?S:?Z:Prog “PM-SJ”: Abs(S-O) → W:Prog "SUB1":"XS=":X◢"YS=":Y◢F-90→F:S→ K:Prog“SQX”:“H=”:H◢Goto 0反算主程序(FS)Lb1 0: ?S:?X:?Y:Prog“PM-SJ”: X→ I: Y→J:Prog "SUB2":"S=":O+W→S◢"Z=":Z◢S→ K:Prog“SQX”:“H=”:H◢Goto 0隧道3心圆放样主程序(CQW)Lb1 1:Fix3:7.315→R:6.19→P:“H1”?F:?Z:F-H→F:Abs(5.72-Z)→ZIf F≥6.319:Then √(Z2+(F-0.715)2 )-R→W: IfEnd:If F≥1.577 AND F<6.319 Then √((Z-0.723)2+(F-1.577) 2)-P→W :IfEnd:If≤1.577: Then Z-(P+0.723)→W: IfEnd:“W=”: W◢Goto1R----第一个圆圆心F----实测高程H----路面纵断设计高程Z----由反算主程序反算得到边距(不需修改)程序中右线输入Abs(5.72-Z) →Z,左线输入Abs(5.72+Z) →Z CQW----计算结果(+超,-欠)隧道二衬断面检测主程序(CQJC)Lb1 1:Fix3:6.625→R:5.5→P: “H1”?F:?Z:F-H→F:Abs(5.72-Z)→ZIf F≥5.79:Then √(Z2+(F-0.715) 2)-R→W: IfEnd:If F<5.79 Then √(Z-0.723)2+(F-1.577)2)-P→W :IfEnd:“W=”: W◢Goto1R----第一个圆圆心F----实测高程H----路面纵断设计高程Z----由反算主程序反算得到边距(不需修改)程序中右线输入Abs(5.72-Z) →Z,左线输入Abs(5.72+Z) →Z CQW----计算结果(+超,-欠)正算子程序(SUB1)1÷P→ C: (P-R)÷(2HPR) → D: 180÷π→ E: 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+ZcosF→ X: Y+ZsinF→ Y反算子程序(SUB2)G-90→T: Abs((Y-V)cosT-(X-U)sin(T)) → W: 0→ Z:Lbl 0:Prog "SUB1": T+QEW(C+WD)→L: (J-Y)cosL-(I-X)sinL → Z:ifAbsZ<1E-6:thenGoto1:ElssW+Z→ W:Goto 0:IfEndLbl 1: 0→ Z:Prog "SUB1": (J-Y)÷sinF→ Z子程序(平面线形数据库)PM-SJifS ≥45978.226(线元起点里程)Then 2214.419→U(线元起点X 坐标):4802.542→V(线元起点Y坐标):45798.226→O(线元起点里程):280049’54”→G(线元起点方位角):200 →H(线元长度):1300→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):1 →Q(线元左右偏标志:左负右正):IfEndifS ≥45998.226(线元起点里程)Then 2262.012→U(线元起点X 坐标):4608.341→V(线元起点Y坐标):45998.226→O(线元起点里程):285014’20”→G(线元起点方位角):238.741 →H(线元长度):1×1045→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):0 →Q(线元左右偏标志:左负右正):IfEnd子程序(竖曲线计算公式)SQXLbI 0:578.318→Z[1]:46080→B:32000→R:160→T:0.025→I:0.035→J:?K:B-K→C : 1→F:I>J=>-1→FIf K<B-T then 0→A: I →P:Goto 1: IfEnd: If K<B then 1→A: I →P: Goto 1: IfEnd: If K<B+T then 1→A: J→P: Goto 1 :IfEnd: If K>B then 0→A: J→P: Goto 1: IfEndLbI 1: Z[1]-CP+AF(T-Abs (C))2÷2÷R→H: “H”:H◢Goto 0Z——变坡点高程 B——变坡点桩号R——半径 T——切线长I——前纵坡度 J——后纵坡K——待求点桩号 H——待求点高程说明:仪器架至测站点上定向后,观测掌子面任意点,测得数据进入反算主程序FS计算得出:对应里程桩号和边距及对应里程路面纵断设计高程。

卡西欧fx5800P隧道测量程序

卡西欧fx5800P隧道测量程序

卡西欧fx5800P隧道测量程序…一、缓和曲线上的点坐标计算已知:①缓和曲线上任一点离ZH点的长度:l②圆曲线的半径:R③缓和曲线的长度:l0④转向角系数:K(1或-1)⑤过ZH点的切线方位角:α⑥点ZH的坐标:xZ,yZ计算过程:说明:当曲线为左转向时,K=1,为右转向时,K=-1,公式中n的取值如下:当计算第二缓和曲线上的点坐标时,则:l为到点HZ的长度α为过点HZ的切线方位角再加上180°K值与计算第一缓和曲线时相反xZ,yZ为点HZ的坐标切线角计算公式:二、圆曲线上的点坐标计算已知:①圆曲线上任一点离ZH点的长度:l②圆曲线的半径:R③缓和曲线的长度:l0④转向角系数:K(1或-1)⑤过ZH点的切线方位角:α⑥点ZH的坐标:xZ,yZ计算过程:说明:当曲线为左转向时,K=1,为右转向时,K=-1,公式中n的取值如下:当只知道HZ点的坐标时,则:l为到点HZ的长度α为过点HZ的切线方位角再加上180°K值与知道ZH点坐标时相反xZ,yZ为点HZ的坐标三、曲线要素计算公式公式中各符号说明:l——任意点到起点的曲线长度(或缓曲上任意点到缓曲起点的长度)l1——第一缓和曲线长度l2——第二缓和曲线长度l0——对应的缓和曲线长度R——圆曲线半径R1——曲线起点处的半径R2——曲线终点处的半径P1——曲线起点处的曲率P2——曲线终点处的曲率α——曲线转角值四、竖曲线上高程计算已知:①第一坡度:i1(上坡为“+”,下坡为“-”)②第二坡度:i2(上坡为“+”,下坡为“-”)③变坡点桩号:SZ④变坡点高程:HZ⑤竖曲线的切线长度:T⑥待求点桩号:S计算过程:五、超高缓和过渡段的横坡计算已知:如图,第一横坡:i1第二横坡:i2过渡段长度:L待求处离第二横坡点(过渡段终点)的距离:x求:待求处的横坡:i解:d=x/Li=(i2-i1)(1-3d2+2d3)+i1六、匝道坐标计算已知:①待求点桩号:K②曲线起点桩号:K0③曲线终点桩号:K1④曲线起点坐标:x0,y0⑤曲线起点切线方位角:α0⑥曲线起点处曲率:P0(左转为“-”,右转为“+”)⑦曲线终点处曲率:P1(左转为“-”,右转为“+”)求:①线路匝道上点的坐标:x,y②待求点的切线方位角:αT计算过程:注:sgn(x)函数是取符号函数,当x<0时sgn(x)=-1,当x>0时sgn(x)=1,当x=0时sgn(x)=0。

卡西欧fx5800p计算器隧道计算程序专版

卡西欧fx5800p计算器隧道计算程序专版

卡西欧fx5800p计算器隧道计算程序专版(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)卡西欧fx5800p计算器隧道计算程序专版(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)本版本是道路版的升级版,程序只改变了SHELL程序,从SHELL 中拆分出WORK-SET(工作设置程序),加入SDPY(隧道放样)。

FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"?I:I=J=>500→DimZ为数据库增加额外变量500个,在SET、SETPFDYS程序根据实际再增减变量以保证不浪费存50→Z[C+22]:本程序设置变量个数目前50个刚刚够用。

"PASSWORDS"?I:I→Z[C+39]重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"?J:Cls:J≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。

如不够就适量加大。

RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致Norm 1Z[C+23]→N当前分段要素N坐标Z[C+24]→E当前分段要素E坐标Z[C+25]→M当前分段要素起点桩号Z[C+26]→H当前分段要素起点方位角(正北)单位:弧度Z[C+27]→A当前分段要素起点曲率有左偏负右偏正(注意不是半径)Z[C+28]→R当前分段要素终点曲率有左偏负右偏正(注意不是半径)Z[C+29]→L当前分段要素长度Z[C+3]→W斜桩角度Lbi SProg"PROGMODE" ;进入模式功能选择Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"?G ;桩求桩号If G=-1:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置G→Z[C+1]Z[C+2]→B:"JL"?B:B→Z[C+2];B横向距离,左正右负Lbi BProg "ZBJS" ;坐标正算Fix 3:Cls ;设置三位小数"ZH=":Locate 4,1,G;第一行显示桩号"X=":Locate 3,2,X ;第二行显示X(N)坐标"Y=":Locate 3,3,Y;第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ;第四行显示Z坐标Locate 10,4,B ;第四行显示横向距离0→IDo:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or G etkey=26) ;锁定键盘,并在几十秒后自动返回Getkey=57=> Goto 1If Getkey=26=> Prog "SDFY":Goto B:EndIfPol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"→":Locate 3,2,B:Locate 12,2,Z[C+49]"FWJ"J<0=>J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName:SDFY 隧道放样ClsZ[C+2]→VZ[C+41]→DZ[C+43]→I:"DQD-Z"?I:I→Z[C+43]Z[C+42]→J:"R"?J:J→Z[C+42]Z[C+40]→K:"R-DL"?K:K→Z[C+40]Abs(V-K)→P√(P2+(I-Z-D)2)→U计算实际半径Fix 3:Cls ;设置三位小数"ZH=":Locate 4,1,G"R":Locate 2,2,ULocate 10,2,U-JIf I-Z-D-J>0 :Then I-Z-D-√(J2-P2)→P:0→OElse If P-J>0:Then P-√(J2-(I-Z-D)2)→O:0→PElse P-√(J2-(I-Z-D)2)→O:I-Z-D-√(J2-P2)→PIfEnd:IfEnd"H":Locate 2,3,OLocate 8,3,"V"Locate 9,3,PLocate 1,4,Z+DLocate 9,4,I0→TDo:T+1→T:T=1000=>Return:Lp While Not(Getkey=57 Or Getkey=27) ;锁定键盘,并在几十秒后自动返回Getkey=57=>ReturnIf V-K>0 :Then V-O→B:Else V+O→B:IfEndFileName:ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEnd 判断线元类型If J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段0.5(R-A)÷L→KAQ→IKQ2→J0.0469100770→P:H+IP+JP2→O0.2307653449→P:H+IP+JP2→T0.5→P:H+IP+JP2→D0.7692346551→P:H+IP+JP2→F0.9530899230→P:H+IP+JP2→P0.1184634425→I0.2393143352→J0.2844444444→YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→XE+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算) Prog"INNEZ"Z[C+37]→UZ[C+38]→V0→B:M+L÷2→G:Prog"ZBJS"Lbi S:RadU-X→I:V-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F)G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙J→BG→Z[C+1]J→Z[C+2]Prog"GCJS"FileName:INNEZ 实测坐标输入程序Lbl S:Norm 1:ClsZ[C+50]=2=>Goto 1Z[C+37]→II<0=>Goto 1"DQD-N"?I 输入待求点N坐标I<0=>Goto 1I→Z[C+37]Z[C+38]→I:"DQD-E"?I 输入待求点E坐标I<0=>Goto 1I→Z[C+38]Z[C+43]→I:"DQD-Z"?I 输入实测高程I<0=>Goto 1I→Z[C+43]ReturnLbi 1I=-1=>Then 2→Z[C+50]If I=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置Prog"INFWJDLDH"Z[C+50]=1=>Goto SReturnFileName:INFWJDLDH实测坐标(用方位角,距离,高差)输入程序Lbi S:Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"?JJ<0=>Goto 1J→Z[C+46]Z[C+47]→I:"DQD-DL"?I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"?K:K→Z[C+48]Z[C+49]→P:"RHT"?P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]ReturnLbi 1If J=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置1→Z[C+50]ReturnFileName: WORK-SET 测站设置程序Norm 1:Cls50→CZ[C+32]→I:"DAT1 2 3"?I:I→Z[C+32]平曲线要素数库类型选择1为置式,2文件式,3实时输入(查看当前要素值)Z[C+4]→I:"0 1 2 3"?I:I→Z[C+4]选择本程序模式0为坐标正算,1坐标反算,2横向边仰坡放样,3,纵向边仰坡放样(隧道进出口用到) Z[C+41]→I:"GC-DH"?I:I→Z[C+41]放样点高差常数Z[C+35]→I:"STATION-N"?I:I→Z[C+35]设置测站N坐标Z[C+36]→I:"STATION-E"?I:I→Z[C+36]设置测站E坐标Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]设置测站Z坐标Z[C+45]→I:"ST ATION-HI"?I:I→Z[C+45]设置仪高ClsFileName: PROGMODE 程序功能模式选择Z[C+4]→II=0=>Return ;正算模式I=1=>Prog"TURNZH" ;反算模式I=2=>Prog"HXBYP" ;横向边仰坡放样模式I=3=>Prog"ZXBYP" ;纵向边仰坡放样模式FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"?I:I→Z[C+40]输入起坡点与中桩距离常数Z[C+41]→I:"QPD-DZ"?I:I→Z[C+41]输入起坡点与中桩高差常数Z[C+42]→I:"i"?I:I→Z[C+42]输入边仰坡坡度,左仰坡(路堑)为正,右仰坡(路堑)为负,左边坡为负,右边坡为正Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43]输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与设计位置的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"?I:I→Z[C+33]输入起坡点桩号Z[C+34]→I:"QPD-Z"?I:I→Z[C+34]输入起坡点高程Z[C+42]→I:"i"?I:I→Z[C+42]仰坡时(隧道进出口仰坡,进口为正,出口为负)Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43]输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与设计位置的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22] 本程序设置变量个数目前50个刚刚够用。

CASIO fx-5800p测量程序

CASIO fx-5800p测量程序

CASIO fx-4800P、fx-5800P型计算器用于线路施工曲线中线点坐标的计算程序中铁十局三建公司工程技术部摘要:本文介绍了CASIO fx-4800P 、fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。

本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量,对于测量工作者有较大的参考和指导作用。

关键词:曲线线路施工测量计算程序1.概述过去,线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。

对于曲线线路一般的测量方法是:经纬仪置于某一中线点上,采用偏角法拨角再用钢尺量距来定出中线点。

随着电子技术进步和经济发展,测量仪器和测量方法的不断改进,目前,全站仪已广泛地应用于工程施工测量中,极大的提高了测量工作效率。

但是,在进行铁路、公路工程的曲线线路施工测设时,需要在线路所在区域建立统一坐标系或独立坐标系,利用坐标变换的方法,将整个曲线的三个部分(第一缓和曲线、中间圆曲线、第二缓和曲线)统一到同一坐标系中。

根据坐标系的建立,计算出整个曲线内任意点的坐标,再采用全站仪利用极坐标方法进行施工放样。

前提是首先利用计算器计算出各中线点坐标,然后才能进行放样。

而普通型计算器不仅计算速度慢,且要求计算者必须正确地记忆很多计算公式,计算繁琐而且容易出错,满足不了现场测设工作的要求。

为了能够快速准确地为全站仪提供测设数据,发挥全站仪快速测设的特点,提高测量工作效率,应采用可编程的计算器,编制计算程序。

本文主要介绍应用CASIO fx-4800P型计算器的计算程序,供公司测量同行们参照使用。

2.计算程序QXZBJS(文件名:曲线坐标计算fx-4800P)Defm2:R:L:A:N“ZH:X=”:E“ZH:Y=”:F:“FWJ=”:K“ZH:LC=”: P=L2/(24R)-L4/(2688R3):M=L/2-L3/(240R2):T“T”=(R+P)tng(A/2)+M ◢G=RAπ/180:“S”S=G+L◢LbiA:{C,V}:C“CSDLC=”:V“HXPJ=”:D=C-K:D≤L=>I=D-D5/(40R2L2):U=D3/(6RL)-D7/(336R3L3):J=√(I2+U2):Goto1:≠>D≤G=>O=90(2D-L)/( Rπ):I=RsinO+M:U=R(1-cosO)+P:J=√(I2+U2):Goto2:≠>D=S-(C-K): = D-D5/(40R2L2):Z[2]=D3/6RL-D7/(336R3L3):I=T+(T-Z[1])cosA-Z[2]sinA:U=(T-Z[1])sinA+Z[2]cosA:J=√(I2+U2):Goto3:Lbi1:{Q}:Q“Z=1;Y=2”:Q=1=>Q=F-30D2/ (RLπ):H=F-90D2/ (RLπ):≠>Q=F+30D2/ (RLπ):H=F+90D2/( RLπ)⊿ Goto4:Lbi2:{Q}:Q“Z=1;Y=2”:Q=1=>Q=F-tng-1(U/I):H=F-O:≠>Q= F+tng-1(U/I):H=F+O⊿Goto4:Lbi3:{Q}:Q“Z=1;Y=2”:Q=1=>Q=F-tng-1(U/I):H=F-(A-90(S-(C-K))2/ (RLπ)): ≠>Q= F+tng-1(U/I):H=F+(A-90(S-(C-K))2/ (RLπ)):⊿ Goto4:Lbi4:B=90+H:H<0=>H“QXFWJ”=B+360◢≠>H≥360=>H“QXFWJ”=H-360 ◢≠>H“QXFWJ”=H◢⊿Goto5:Lbi5: X“CSD:X”=JcosQ+N+VcosB◢ Y“CSD:Y”=JsinQ+E+VsinB◢GotoA3.程序说明3.1 输入已知变量R—圆曲线半径,显示R?L—缓和曲线长,显示L?A—曲线转向角,显示A?E—直缓点纵坐标,显示ZH:X=?N—直缓点横坐标,显示ZH:Y=?F—第一切线方位角,即ZH至JD的方位角,显示FWJ=?K—直缓点里程,显示ZH:LC=?3.2 计算待求量T—切线长度,显示T= …S—曲线全长,显示S= …Z[3]—外矢距,即JD到QZ的距离,显示E0= …3.3 输入待求变量K—输入待求(测设)点的里程,显示LC=?V—横向偏距,即测设点左、右侧外移距的偏移量,若为中线点输入0;右侧输入“+”值,左侧输入“-”值。

卡西欧FX5800P编程计算器应用及程序

卡西欧FX5800P编程计算器应用及程序

程序示例
U“Z=0 Y≠0”=0
K0+=0 H0=3014.6 ≥=1/74.09 D=2.9 E=2.46 R=1.671
【1】 直线段
实测坐标(m)
圆拱段超欠(m) 直墙超欠(m) 底板超欠(m) 至拱肩高差(m)
111.139 93.763 64.030 94.543 116.748
18°52ˊ49.81" 91°24ˊ13.56" 88°26ˊ53.49" 49°40ˊ03.20" 60°41ˊ09.73"
移 动 值(m)
DV=、0.254 D∧=、0.700 DV=、0.049 DV=、0.140 DV=、0.168
据目录(个数)是利用“ ”,按 FUNCTION->7->2->1->EXE 就可以看到个数了。
在程序中调用统计储存器中的数据时,是利用 List 调用的。具体格式如下: List X[A]+Y[A]i->C
式中 A 是点号,C 是任意储存单元。具体示例详见“程序部分”->“极程序放样” (2)、利用统计计算(SD/REG)
2、以 形式计算。以坐标换算为例:
坐标重合点 A 旧坐标 98042.831->SHIFT->RCL->A 11430.122->SHIFT->RCL->B A+Bi->E 新坐标值均为零,就不必另行输值,新旧坐标方位角差值 69°56"23"->W。 要求计算施工坐标 X=27,Y=29.1 的 B 点的测量坐标。 计算赋值:27->U,29.1->V。U+Vi->F
<=、0.663 =>、0.023 <=、0.218 <=、0.561 =>、0.298

FX5800计算器公路桥梁隧道测量程序

FX5800计算器公路桥梁隧道测量程序

FX5800计算器公路桥梁隧道测量程序FX5800卡西欧计算器公路测量常用程序一、程序功能主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化:1、优化程序语句、2、取消原线元法计算,化线元法为交点法。

3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序(绿色为程序名;蓝色为输入计算器内容)红色为网友调试后修改笔误。

0.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

程序名:0(数子0)ClrMat:ClrVar:12→DimZ:Norm 2:Do:"(XY=1,ZD=2 ,GC=3,GD=4, BP=5,FM=6,ZP=7,JS=8,SD=9)===>QING AN 1-9":Getkey→Z[3]:While Z[3]=35:Prog"1XY”:WhileEnd:While Z[3]=36:Prog"2ZD":WhileEnd: While Z[3]=37:Prog"4.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg"QX": Do: "KM"?Z:Z=-1=>Stop:Z=-2=>Break:-1→D: Prog"C":L→P:1→D: Prog"C":Fix 3: " LGD=": Loc ate 6,4,P:" RGD=":Locate 6,4,L:LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名:5BPProg "DX":Prog"QX":0.5→B: "TH-GD"?B: B→Z[7]: D o:"KM"?Z:Z=-1=>Stop:Z=-2=>Break: Prog"K": “X0"? X:"Y0"?Y:Z[8]→M:"M0"?M:M→Z[8]: Porg"B":D→P :P rog"C":If D<0:Then 0.75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0: IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W:Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI →S:IfEnd:LbI 0: Fix 2: P→D :Abs(D)-S→T: " LX=": Locate 6,4,T:Prog"ZD":" TW=": Locate 6,4,G◢LpWhi le Z≠-16、主程序:定值放样路基桩计算填挖值程序名:6FMProg "DX":Prog"QX": Do:"KM"?Z:Z=-1=>Stop:Z=-2=>B reak: Prog"K": ?D: Porg"A":Z[2]+90→A :I+Dcos(A→X: J+Dsin(A→Y:Prog"XY":Prog"JS":Z[8]→M:”M0”?M:M→Z [8]:Prog “H”:” TW=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序:桥梁锥坡计算放样程序名:7ZPProg"DX":Prog"QX":"Z0"?Z:"LD:Z-,Y+"? D:Abs(D) →R: "LR"?R: D→Z[7]:R→Z[10]:Z→Z[9]:Prog”C”:L→Z[1 0]:Prog”K”:Do:Z[10]→Y:"L0:SZ+,DZ-"?Y: Y=-1=>Stop:Y =-2=>Break: √(Z[7]2(1-Y2/Z[10]2))→X:Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:Prog"XY":Prog"J S": LpWhile Y≠-18、主程序:由坐标计算方位角及距离程序名:8JSProg "DX":Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X≠-19、主程序:隧道超欠挖放样计算程序名:9SDProg"DX":0.65→A:”CQHD”?A:A→Z[7]:Do:"KM"?Z:Z=-1=> Stop:Z=-2=>Break: Prog"K": “X0"?X:"Y0"?Y:Z[8]→M:"M0"?M:M→Z[8]: Porg"B":D→Z[9]:0→D:Prog”H”:P rog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+ B→B:C+A→E:If M<E:Then R-V→S:S=0=>Goto 1:√(S2-(B-A)2) S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2)-V-X→L:Goto 0:If End:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ” L X=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-H◢L pWhile Z≠-110. 交点法正算子程序(A)程序名:AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A: G→E:Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+ R(1-Cos(S→E:B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z [2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos (E→J11. 交点法反算子程序(B)程序名:B0→D:Do:Z+D→Z:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2]→J:Is in(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D: IfEnd: LpWhile Abs(D)>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(AB)程序名:ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H∧(6)÷506880÷R∧(5)- H∧(8)÷154828800÷R∧(7)→A:H÷2-H∧(3)÷240÷R2+ H∧(5)÷34 560÷R∧(4)- H∧(7)÷8386560÷R∧(6)+ H∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名:HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷59 9040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S ∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R ∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷35300 97000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14.高程计算子程序(H)程序名:HP rog “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T: Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H: LbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D) -K→H:IfEnd15.高程超高计算横坡子程序(I)程序名:IProg “I1”:If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16.路基宽度子程序程序名:C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17:极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名:JSZ[5]→K:Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEn d:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:” FWJ=”: Locate 6,4,J:F ix 3:” S=”:Locate 6,4, I◢18.导线点子程序(DX)程序名:DXZ[5]→K:Z[6]→L:“X Z”?K:”YZ”?L:K→Z[5]:L→Z[6]19.线路选择子程序(线路选择输0时。

自编CASIO FX-5800P隧道超欠挖程序

自编CASIO FX-5800P隧道超欠挖程序

自编卡西欧fx-5800P隧道超欠挖程序作者:何威该程序由“卡西欧fx-4800P隧道超欠挖程序”改编而成,其运行原理与操作方法与其相同。

1.主程序(WSK-CQW)"XO"?U:"YO"?V:"SO"?O:"FO"?G:"LS"?N:"RO"?P:"RN"?R:?Q←┘1÷P→C:(P-R)÷(2N PR) →D:180÷π→E←┘Lbl2:?X:?Y:?H:X→I:Y→J←┘G-90→T:(Y-V)cos(T)-(X-U)sin(T)→W:Abs(W)→W:0→Z←┘LbI 4:Prog"SUB1":T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z←┘If Abs(Z)<10∧(-6):Then 0→Z :Prog"SUB1":(J-Y)÷sin(F)→Z:Else W+Z→W:Goto 4:IfEnd:O+W→S←┘"Z=":Z◢"S=":S◢√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘"CQW=":M◢Goto 2←┘2.正算子程序(SUB1)0.1739274226→Z[1]:0.3260725774→Z[2]:0.0694318442→K:0.3300094782→L←┘1-L→F:1-K→M←┘U+W(Z[1]cos(G+QEKW(C+KWD))+Z[2]cos(G+QELW(C+LWD))+Z[2]cos(G+QEFW( C+FWD))+Z[1]cos(G+QEMW(C+MWD))→X←┘V+W(Z[1]sin(G+QEKW(C+KWD))+Z[2]sin(G+QELW(C+LWD))+Z[2]sin(G+QEFW(C+ FWD))+ Z[1]sin(G+QEMW(C+MWD))→Y←┘G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→Y一.补充1.输入显示说明X0 ?线元起点的X坐标Y0 ?线元起点的Y坐标S0 ?线元起点里程F0 ?线元起点切线方位角LS ?线元长度R0 ?线元起点曲率半径RN ?线元止点曲率半径Q ?线元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)S ?所求点的里程Z ?所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)CQW? 所求点的超欠挖2. 若隧道所测部位有两种圆心时,利用圆心所对应的弧的分段高度划分可设置两个选择条件,于是只需将主程序中“√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘”中改为“IfH>内轨顶标高+圆心O1分段高度:Then√( (H-内轨顶标高-圆心O1距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心O1相对遂中距离)²)-R1→M :Else√( (H-内轨顶标高-圆心O2距离内轨顶高差)²+ (Abs(Z+线中相对遂中距离)+圆心O2相对遂中距离)²)-R2→M:If End←┘”3. 若所测隧道断面无需在经常在线元之间转换时,也可以将主程序中U(线元起点X坐标),V(线元起点Y坐标),O(线元起点里程),G(线元起点切线方位角),N(线元长度),P(线元起点半径),R(线元终点半径),Q(曲线左偏为-1右偏为1直线为0)等曲线要素赋予定值,可减少在工作中的输入量。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

卡西欧5800p计算器隧道施工测量程序设计王庆军随着铁路、公路建设的快速发展,我国隧道建设的施工技术也大幅度提高,由于工期紧迫促成测量放样的过程也是一个重要环节,如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度,导致开挖掘进造成隧道超欠挖,所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作,这样不仅提高了施测效率还保证了放样精度,现通过本文分析讲解隧道超欠挖的计算原理和程序设计。

何为超欠挖?:隧道超欠挖分为(超挖和欠挖),超挖即为隧道开挖轮廓线大于隧道设计轮廓线,欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。

超欠挖的影响:隧道超欠挖不止直接影响到了施工进度、安全质量,还会让开挖费用增加,更重要的是由此造成了过量超填混凝土的费用。

超挖在实际施工中由于重视不够或方法不当,以至于在施工过程中会不知不觉地提高工程成本,从而也减少了应得的利润。

超欠挖是如何产生的?在目前的隧道施工中,掘进技术有两种方法,一种是传统的“钻爆法(开挖台阶法)”;一种是“全断面掘进法(盾构掘进法)”。

受各种条件的制约,“钻爆法”仍是山区隧道施工的主要掘进方法。

所以隧道超欠挖的形成也是不可避免的,下面讲述一下形成超欠挖的三种情况。

1、岩层变化:由于隧道开挖过程中随着岩层的变化,地质条件和围岩裂隙的发生会出现不可避免的超欠现象,所以岩体是超欠挖的主要因素之一。

2、爆破方式:由于工作面(掌子面)是一个不平整的岩体面,导致钻孔间距控制不当或间距过大、过小,容易影响其他孔位的爆破效果,或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。

3、测量放线:由于隧道测量放线过程中能见度低,操作有限,测量人员进入隧道测量时导致前后视照准误差,同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。

如何正确实施隧道测量工作?隧道测量工作应由专业测量人员测量,根据设计院给定的坐标控制点和高程控制点进行建立导线控制网,并按规定程序检查验收,对施测人员实行详细的图纸交底和方案交底,所有施测的工作进度根据项目进度计划进行安排。

在隧道施工过程中,为了保证开挖、初期支护及二次衬砌后的净空满足设计规范要求,必须对已完工的主体工程进行全断面检查,现场检查一般采用带红外线的全站仪在现场实测三维坐标进行检查。

对于测量数据应及时反馈到现场施工管理人员,以便及时控制开挖及衬砌净空标准。

通过以上对隧道超欠挖的了解及形成和影响,如何正确施测和控制等,现在就谈谈隧道超欠挖的计算原理。

许多测量人员会把超欠挖点位检测和掌子面轮廓线放样程序颠倒不分,其实隧道超欠挖计算属于检测点至该圆弧所对的圆心的半径与设计圆心半径的差值,而隧道轮廓线放样则是放样点至设计轮廓线边缘的水平距离差值。

超欠挖计算原理:隧道超欠挖检测的计算原理主要是通过三角函数所求,即由三角形的边角关系求出对应的边长和理论边长值产生的差值。

超欠挖检测数学模型超欠挖实测模型从“超欠挖检测数学模型”图中可以看出x为大于设计轮廓线位置,表示该点为超挖,可以通过以下方式及公式进行求解得出x差值。

1、先通过tan-1求出∠α夹角。

2、再通过cos求出边长c。

3、用边长c减去r半径得出x差值。

示例:假如a=4.8142、b= 6.026m、r=6.96m,求x?计算公式如下:x=a÷cos(tan-1(b÷a))-rx=0.753m从计算式得出该检测点比隧道设计轮廓线大0.753米,属于隧道超挖。

轮廓线放样原理:隧道开挖轮廓线放样的计算原理主要通过直角三角形的两直角边的平方和等于斜边的平方原理进行求解。

(俗称勾股弦定理)数学公式中常写作a2+b2=c2(即勾的平方加股的平方等于弦的平方)。

勾股定理图示轮廓线放样数学模型说明:放样点为现场开挖实测掌子面实际点位,x为超挖宽度,通过计算出x宽度然后将该点水平移动到设计标准轮廓线位置即可。

方式:1、通过全站仪(配合红外线或反射片)直接测出放样点坐标X、Y和高程Z。

2、用卡西欧编程计算器反算出放样点的实际里程和该点距隧道中心线水平距离d。

过程:a)用放样点实测高程Z减去O1点圆心设计理论高程得出高度a。

b)斜长c等于圆心理论半径R,求b长度,公式:c)求x宽度,公式:示例:放样点至隧道中心间距d= 6.026m、放样点实测高程Z=314.8142m、O1圆心高程H=310.0000m、O1圆心理论半径c=6.96m,通过以下公式求解!x=x=1.000m从以上计算式中得出现场放样点距设计理论轮廓线的水平距离为1m,说明放样点需要向设计轮廓线内移动1m才是放样的标准位置,然后将所有放样的点位用线形链接起来即成了掌子面开挖轮廓线。

轮廓线放样数学模型超欠挖程序设计:通过以上了解相信各位对隧道超欠挖和隧道轮廓线放样的方式并不陌生了,现在对隧道轮廓线的放样程序进行设计。

程序适用:CASIO fx-5800P工程测量编程计算器程序主题:隧道开挖轮廓线放样程序准备工作:1、公式:路线坐标正算、反算公式,路线纵坡计算公式,勾股定理公式。

2、工具:CASIO fx-5800P工程测量编程计算器。

3、数据:隧道标准设计图、放样点实测三维坐标X、Y、Z数据。

双线隧道横断面设计图关于坐标正算公式,坐标反算公式,纵坡计算公式见相关测量书籍。

程序建立:程序设计需要有一个明确的思路和合理的方法,然后通过结合数学计算模型进行程序化语言编译。

通过本文了解到超欠挖的计算原理分析后,现在运用程序语言采用线元法进行设计和编译,超欠挖程序主要分为(主程序和子程序)共11个,其中TYQXJS 为运算主程序,其他均为调用子程序。

主程序TYQXJS(入口程序)1."[1-N]=0→ZD,=1→SD1,=2→SD2”([1-N]=0现场输入线元数据。

=1,2,3…..等进入各线路数据库提取数据进行计算)2.Deg:Fix4:20→DimZ↙(扩充变量)3.“TYQXJS:[1-N]”?→Z[5]↙(输入线路代码,比如数字1,2,3,4分别表示a,b,c,d线路,并储存在变量Z[5]中,对于具体的线路项目,用户可参照自行决定对应关系)4.IfZ[5]=0:Then “X0”?U:“Y0”?V:“S0”?O:“F0”?G:“Ls”?H:“Rs”?P:“Rn”?R:“Q”?Q:If End↙5.Cls:“1:SZ→XY,2:XY→SZ”?→Z[6]:Z[6]=2=>Goto2(1为坐标正算,放线计算。

2为里程偏距计算)6.“CZX=”?M:“CZY=”?N↙(置仪点坐标)7.Lbi0:“Kp”K↙8.Z[5]>0=>Prog“TYQXJS-DATA”:Abs(K-O)→W↙9.Prog“TYQXJS-SUB1”↙10.Lbi1:90→Z:“JJ=0→Kp”?Z:Z=0=>Goto0:“JB=”?B↙(输入夹角和偏距,夹角为0时输入下一个桩号)11.If B≤0:Then Res(AbsB,Z[4]+Z-180):Else Rec(AbsB,Z[4]+Z):IfEnd↙12.X+I→Z[7]:Y+J→Z[8]↙13.Pol(Z[7]-M,Z[8]-N):J<0=>J+360→J↙14.1→T:Prog“TYQXJS-XS”↙15.Lbi3:“S=”?S:I-S→S▲ If Abs(S)≥0.01:Then Goto3:Else Goto1:IfEnd↙16.Lbi2:“Xm=”?X:“Yn=”?Y:”SXG=”?Z[17]:“Kp=”?K↙(输入实测坐标及附近桩号)17.Z[5]>0=>Prog“TYQXJS-DATA”↙18.Prog“TYQXJS-SUB2”↙19.2→T:Prog“TYQXJS-XS”↙20.”Z1=”?Z:Z=0=>Goto2:Prog”BPEH-DATD”:Prog”BPEH-BPH”(Z=0返回进行里程,偏距计算。

Z≠0进入高程计算)21: Prog”SOIDAO-DATA(隧洞数据库路由引导)22.Prog” SOIDAO”(进行隧洞超,欠挖计算)23.Goto2TYQXJS-SUB1(坐标正算子程序)1.1÷P→C:(P-R)÷(2HPR)→D:180÷π→E↙3.U+W(ACos(G+QESW(C+SWD))+Z[1]Cos(G+QELW(C+LWD))+Z[1]Cos(G+Z[2]QEW(C+ Z[2]WD))+A Cos(G+Z[3]QEW(C+Z[3]WD)))→X(计算点X坐标)↙4.V+W(ASin(G+QESW(C+SWD))+Z[1]Sin(G+QELW(C+LWD))+Z[1]Sin(G+Z[2]QEW(C+ Z[2]WD))+A Sin(G+Z[3]QEW(C+Z[3]WD)))→Y(计算点Y坐标)↙5.G+QEW(C+WD)→Z[4](计算点切线方位角)↙TYQXJS-SUB2(反算里程和边距子程序)1.X→I:Y→J↙2.Abs(J-V)Cos(G-90)-(I-U)Sin(G-90)→W:0→B↙3.Lbi0:Prog”TYQXJS-SUB1”↙4.(G-90)+QEW(C+WD)→L↙5.(J-Y)CosL-(I-X)SinL→B↙6.If AbsB<10^(-6):Then Goto1:Else W+B→W:Goto0:IfEnd↙7.Lbi1:0→B:Prog“TYQXJS-SUB1”↙8.(J-Y)÷Sin(Z[4]+90)→B↙9.O+W→K:B→B↙(K为反算桩号,B为偏距)TYQXJS-DATA(路由器)1.If Z[5]=1:Then Prog“TYQXJS-DAT1”:Goto1:IfEnd↙(调用线路一数据库据)2.If Z[5]=2:Then Prog“TYQXJS-DAT2”:Goto1:IfEnd↙(调用线路二数据库据)3.If Z[5]=3:Then Prog“TYQXJS-DAT3”:Goto1:IfEnd↙(调用线路三数据库据)4.If Z[5]=4:Then Prog“TYQXJS-DAT4”:Goto1:IfEnd↙(调用线路四数据库据)5.。

(根据实际项目情况增减线路)6.Cls:Locate 4,2,“TYQXJS-ERROR”▲7. Stop↙(线路不存在,则警告后终止运行)8.Lbi1:MatB[1,1]→O:MatB[1,2]→U:MatB[1,3]→V:Mat[1,4]→G:MatB[1,5]→H:MatB[1,6]→P:MatB[1,7]→R:Mat[1,8]→Q(将线元数据赋值给相关变量。

O 线元起点程,U,V线元起点坐标,G线元起点切线方位角,H线元长度,P线元起点半径,R线元终点半径,Q线元左右偏标志,左偏取-1,右偏取+1,直线段取0)↙TYQXJS-XS(显示子程序)1.Cls:If T=1:Then “X=”:Locate 4,1,Z[7]:“Y=”:Locate 4,2,Z[8]:Fix4:“FJ=”:Locate 4,3,J°:“HD”:Locate 4,4,I▲ EfEnd↙2.If T=2:Then “K=”:Locate 4,1,K:“B=”:Locate 4,2,B▲ IfEnd↙线元法数据库子程序(TYQXJS-DAT1,2,3……)的格式1.If K≤线元计算终点桩号:Then[[线元起点桩号O,线元起点U(X)坐标,线元起点V(Y)坐标,线元起点切线方位角G,线元长度H,线元起点半径P,线元终点半径R,线元左右偏标志Q]]→MatB:Return:IfEnd2.根据以上格式,编写1--N各线元数据库3.Cls:Locate6,2,”KP OUT”▲(若输入的桩号不在匝道范围内,则提示警告)BPEH-DATA(纵断面数据库路由引导子程序)1.If Z[5]=1:Then Prog“BPEH-BPH1”:Goto1:IfEnd↙(调用线路一数据库据)2.If Z[5]=2:Then Prog“BPEH-BPH2”:Goto1:IfEnd↙(调用线路二数据库据)3.If Z[5]=3:Then Prog“BPEH-BPH3”:Goto1:IfEnd↙(调用线路三数据库据)4.If Z[5]=4:Then Prog“BPEH-BPH4”:Goto1:IfEnd↙(调用线路四数据库据)5.(根据实际项目情况增减线路数目).↙Lbi1:MatC[1,1]→H:MatC[1,2]→M:MatC[1,3]→I:MatC[1,4]→J:MatC[1,5]→R (将竖曲线数据赋值给相关变量)BPEH-BPH(纵断面高程计算子程序)1.R×Abs(J-I)÷2→T:M-K→C:1→F↙2.If I>J:Then -1→F:IfEnd↙3.If K≤M-T:Then 0→Z:I→P:Goto1:IfEnd↙4.If K>M-T And K≤M:Then 1→Z:I→P:Goto1:IfEnd↙5.If K>M And K≤M+T:Then 1→Z:J→P:Goto1:IfEnd↙6.If K>M+T:Then 0→Z :J→P:Goto1:IfEnd↙7.Lbi1:H-CP+ZF(T-AbsC)∧2÷(2R)→V ↙(设计高程)纵断面竖曲线数据库子程序格式(BPEH-BPH1,2,3,4………)1.If K≤竖曲线计算终点桩号:Then[[竖曲线顶点高程H,竖曲线顶点桩号M,竖曲线前纵坡I,竖曲线后纵坡J,竖曲线半径R]]→MatC:Return:IfEnd 2.If K≤竖曲线计算终点桩号: Then[[根据实际项目情况编写竖曲线数据库]]→MatC:Return:IfEnd3.Cls:Locater4,2,”BPH-OUT”▲隧道数据库路由引导子程序(SOIDAO-DATA)If Z[5]=1:Then Prog” SD-LX1”:Return:IfEnd(调用隧道一数据库数据)If Z[5]=2:Then Prog” SD-LX2”:Return:IfEnd(调用隧道二数据库数据)隧道超欠挖数据库子程序名:(SD-LX)?→Z[9] (设计线路中心与隧道中心偏距,左偏为负,右偏为正数,相等为0)?→Z[10] (O11圆心半径)?→Z[11] (O22圆心半径)?→Z[12] (O11圆心点高程与设计点之高程差)?→Z[13] (O22圆心点高程与设计点之高程差)?→Z[14] (O11圆弧最小高程与设计点之高程差,低于设计高取负值。

相关文档
最新文档