XY":"2.XY=>SZ":?T:?S:Prog“SUB0”↙1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:T=1=>Goto1:Goto2:↙Lbl1:“LICHENG=”?K:“BANJNG=”?P:“PIANJIN=”?S::Abs(S-O)→W:Prog"SUB1"↙Prog"GC":G+√ˉ(P2-S2" />

5800万能隧道程序

5800万能隧道程序
5800万能隧道程序

5800万能隧道程序

1,主程序

Lbl 0 :"1.SZ => XY" :"2.XY => SZ" :?T :?S :Prog “SUB0 ”↙

1 ÷P →C: (P-R) ÷(2HPR) →D:180 ÷∏→E:T=1 => Goto1 :Goto

2 :↙

Lbl 1: “LICHENG=”?K:“BANJNG=”?P:“PIANJIN=”?S:

:Abs(S-O) →W :Prog "SUB1" ↙

Prog "GC":G+√ˉ(P2-S2)+1.66◢

"XS=" :X ◢

"YS=" :Y ◢

" ZS=" :Z ◢

F-90 →F :“FS= ”:F ?DMS ◢

Goto 0

Lbl 2 :Prog “SUB2 ”↙

Prog “YFS3 ”

Goto 0↙

2. 正算子程序(SUB1)

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+QEL W(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+Q EMW(C+MWD))) →Y :G+QEW(C+WD)+90 → F :X+Zcos ( F )→X :Y+Zsin (F )→Y

3. 反算子程序(SUB2)

Lbi 1∶“BANJING”?P:“X”?X:“Y”?Y:“Z”?Z:X→I:Y→J:G-90 →T :Abs((Y-V)cos(T)-(X-U)sin(T) ) →W :0 →Z :Lbl 4 :Prog "SUB1" :

T+QEW(C+WD) →L :(J-Y)cos (L )-(I-X)sin (L )→Z :IF Abs (Z )<0.01 :Then0 →Z:Prog "SUB1" :(J-Y) ÷sin (F )→Z:Else W+Z

→W: Goto4:IfEnd↙

“LICHENG=”:K◢

“PIANJU=”:S◢

4小程序(YFS2)

Prog“GC”∶“GAOCHA=”∶Z-G-1.66→T◢

If P=0∶Then Prog“YANGGEN仰拱”∶Else Prog“YFS3”↙

Goto1∶Return∶Stop ↙

4小程序(YFS3)

Lbi 1∶If T>0∶Then Abs(S) -√ˉ(P2-T2)→W∶Prog“CQW”↙∶Else Goto2↙Lbi 2∶If Abs(T)<0000∶Then Prog “AIBIANQIANG矮边墙”∶Else Abs(S)+3.56-√ˉ(P2-T2)→W﹙下道﹚∶Prog“CQW”∶Return∶If End↙

6小程序(AIBIANQIANG) 矮边墙

If S<0∶Then Abs(S) -5.12→W And Abs(T)-1.30→M∶“S”∶M◢∶“+XY,-XZ”∶W◢

Else Abs(S) -5.12→W And Abs(T)-

1.05→M∶“S”∶M◢∶“+XY,-XZ”∶W◢

7小程序(YANGGEN)仰拱

If S<0∶Then 2.35+Abs(S)×3%-Abs(T)→W∶Prog“YG仰拱”↙

Else 2.35-S×3%-Abs(T)→W∶Prog “YG仰拱”↙

7,仰拱超高(直线上升或下降)

﹙-3%-2%﹚÷﹙4-0﹚→E∶2%+﹙K-0﹚E→B∶If S<0∶Then 2.35+Abs(S)×B-Abs(T)→W∶Prog“YG仰拱”↙

Else 2.35-S×B-Abs(T)→W∶Prog“YG仰拱”↙

(2%起点坡度)

(-3%终点坡度)

(4起点里程)

(0终点里程)

(2.35起拱线距仰拱中心高度)

7,仰拱超高(抛物线上升或下降)

K-0→X∶4-0→L ∶2%+﹙2X÷L-3﹚×﹙﹙2%--3%﹚×X2÷L2﹚→B ↙

2.35+Abs(S)×B-Abs(T)→W∶Prog“YG仰拱”

Else 2.35-S×B-Abs(T)→W∶Prog“YG仰拱”↙

(2%起点坡度)

(-3%终点坡度)

(4起点里程)

(0终点里程)

(2.35起拱线距仰拱中心高度)

8小程序(YFS6)洞室

Abs(K-0)-√ˉ(002-(000-Z)2)→W ↙

Prog “CQW”

(0→洞室的中心桩号)

(00→洞室的半径)

(000→洞室的圆心到起拱线高度(在起拱线上Z-000,下就000-Z))

9小程序(CQW)

“CHAO,(-)QIAN”∶W◢

Return∶Stop

10小程序(YG仰拱)

If W>0∶Then“XIA”∶W◢

Else“SHANG”∶W◢

Return∶Stop

11子程序(GC)高程

If K≥93560 And K<93805∶Then 504.33+2.4%(K-93560) →G∶Return∶If End ↙

If K≥93805 ∶Then 510.220+2.4%(K -93805.399)-(K-93805.399)2÷2÷18504→G∶Return∶If End↙

SUB0 数据库子程序

Goto1 ↙同时保存多个曲线时的指针

Lbl 1 :IF S<*** (线元终点里程):Then*** →G (线元起点方位角):*** →O (线元起点里程)

:*** →U (线元起点X ):*** →V (线元起点Y ):*** →P (线元起点曲率半径):*** →R

(线元终点曲率半径): *** →H (线元起点至终点长度):0 或 1 、-1 →Q :Return:IfEnd ↙

Lbl 1 :IF S<*** (线元终点里程):Then*** →G (线元起点方位角):*** →O (线元起点里程)

:*** →U (线元起点X ):*** →V (线元起点Y ):*** →P (线元起点曲率半径):*** →R

(线元终点曲率半径): *** →H (线元起点至终点长度):0 或 1 、-1 →Q :Return:IfEnd

…………… ..

为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl ,每增加一个工程增加一个文件。

三、使用说明

1 、规定

(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,

Q=-1 ;当线元往右偏时,Q=1 ;当线元为直线时,Q=0 。

(2) 当所求点位于中线时,Z=0 ;当位于中线左铡时,Z 取负值;当位于中线中线右

侧时,Z 取正值。

(3) 当线元为直线时,其起点、止点的曲率半径为无穷大,以10 的45 次代替。

(4) 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆

弧的半径。

(5) 当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10 的45

次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半

径为无穷大,以10 的45 次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的

值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等

于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。

2 、输入与显示说明

输入部分:

1. SZ => XY

2. XY = > SZ

N ? 选择计算方式,输入1 表示进行由

里程、边距计算坐标;输入 2 表示由坐标反算里程和边距。

S

?正算时所求点的里程,反算时为所求点的近似里程,反算时输入的近似里程不能夸线元,若夸线元的话,需进行第二次反算,并以第一次的结果做为近似里程,否则反算的里程及边距不对,

Z ?正算时所求点距中线的边距( 左侧取负,值右侧取正值,在中线上取零)

X ?反算时所求点的X 坐标

Y ?反算时所求点的Y 坐标

显示部分:

XS= ×××正算时,计算得出的所求点的X 坐标

YS= ×××正算时,计算得出的所求点的Y 坐标

FS= ×××正算时,所求点对应的中线点的切线方位角

S= ×××反算时,计算得出的所求点的里程

Z= ×××反算时,计算得出的所求点的边距曲线任意里程中边桩坐标正反算(CASIO

fx-4800P计算器)程序

一、程序功能

本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(

SUB2)序构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线

元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲

率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。另

外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中,用于对曲

线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。

特别申明:(1). 适用于弧长小于2倍半径的各种线元坐标正反算,精度优

于1mm;

全能程序只能是这种形式才能算

直线→完整缓和曲线→圆曲线→非完整缓和曲线→直线

直线→完整缓和曲线→圆曲线→完整缓和曲线→直线

缓和曲线直→完整缓和曲线→圆曲线→非完整缓和曲线→缓和曲线:第一缓和曲线起点半径与直线相等1×10﹙15﹚, 第二缓和曲线终点半径与直线相等1×10﹙15﹚。

隧道的施工放样程序及CAD计算超欠挖量

隧道的施工放样程序及C A D计算超欠挖量 隧道测量的程序及运用: 在测量隧道中由于时代的变化、科学的进步,我们运用的计算工具也在不断的变化。在如今我们测量工作中一般运用的是CASIO4500、4800、4850等型号的科学计算器还是一种有编程功能的计算器。 在隧洞测量时测量人员要根据现场的要求来进行编程,边角程序如: 边角后方交会 BJHFJH L1 ABCD:Lbl5:{KSP} L2 pol(C-A,D-B) L3 Q=90(1-K)+K SIN-1(S SIN P/V) L4 T=W+180-P-Q L6 Rec (S,T) : X=A+V◢ Y=B+W◢ L7 Goto5 说明: 1、测边的已知点作为P1(A,B),未测边的已知点作为P2(C,D)。 测边对角为锐角时K=1,测边对角为钝角时 2、 K=-1。 3、角度P是以测边方向为起始方向,顺时针观测另一个已知点方向的右角。 注:理想图形要求实测的S边相对于已知边P1P2越短越好,角P越接近180°越好。 坐标反算 ZBFS L1 AB:Fixm:{CD} L2 pol(C-A,D-B)◢ L3 W<0W=W+360 L4 lntW +(60 Frac W )+ Frac(60 FracW) ◢ 说明: 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为(A,B)、(C,D)。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为:度“°”。 隧洞断面图如上的程序如下: 直线断面放样程序(2) ZXFY2 L1 Lbl0:{ABH}:ABH:POL(A-X,B-Y): L2 L=ICos (J-G)◢ L3 M=Isin(J-G) ◢ L4 V=H-N◢

卡西欧5800基本测量程序(完整版)

卡西欧5800 程序 (完整版)

说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN "ZH(θ) F(1)"M↓ (0为正算、1为反算) If M=θ:Then "ZHUANG HAO"A:"KUAN DU"W:Else"X="H:"Y="W:"Z="Q:IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If A

………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog"ZFXZ"↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1:"NO TASK"↓ Lb1 2:If M=1:Then If A=1:Then "ZHUANG HAO":Z◢"SJ KUAN DU":B◢ IfEnd:IfEnd↓ "-------END-------" KUAN DU (拓展功能程序,用于反算) 1→M:Prog"MAIN"↓ Z→A:W→E:θ→W↓ Prog"GAO CHENG"↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ "……":D◢ (同上) ◢ "----------END---------" YUAN

卡西欧5800路基测量程序讲课稿

卡西欧5800路基测 量程序

晋-测量-斐斐(532901847) 21:20:03 一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX)构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量16→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY,2.XY → SZ,3.SDYX,4. BIANPO "?N: Lbl 1:”ZHUANGHAO=”?S: Prog "SUB3":N≥2=>Goto 2: Abs(S- O)→W:”BIANZHU=”?→Z:Prog "SUB1": "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA":Goto 1: Lbl 2:”CX=”?X: X→I:”CY=”?Y: Y→J:”DMG=”?→Z[7]:Prog "SUB2":"S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd :If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 →Z[1]:0.3260725774→B:0.0694318442→K: 0.3300094782→L: (1-L) →F: (1-K)→M: U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW

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

卡西欧5800p计算器隧道施工测量程 序设计 王庆军 随着铁路、公路建设的快速发展,我国隧道建设的施工技术也大幅度提高,由于工期紧迫促成测量放样的过程也是一个重要环节,如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度,导致开挖掘进造成隧道超欠挖,所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作,这样不仅提高了施测效率还保证了放样精度,现通过本文分析讲解隧道超欠挖的计算原理和程序设计。 何为超欠挖?:隧道超欠挖分为(超挖和欠挖),超挖即为隧道开挖轮廓线大于隧道设计轮廓线,欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。 超欠挖的影响:隧道超欠挖不止直接影响到了施工进度、安全质量,还会让开挖费用增加,更重要的是由此造成了过量超填混凝土的费用。超挖在实际施工中由于重视不够或方法不当,以至于在施工过程中会不知不觉地提高工程成本,从而也减少了应得的利润。 超欠挖是如何产生的? 在目前的隧道施工中,掘进技术有两种方法,一种是传统的“钻爆法(开挖台阶法)”;一种是“全断面掘进法(盾构掘进法)”。受各种条件的制约,“钻爆法”仍是山区隧道施工的主要掘进方法。所以隧道超欠挖的形成也是不可避免的,下面讲述一下形成超欠挖的三种情况。 1、岩层变化:由于隧道开挖过程中随着岩层的变化,地质条件和围岩裂隙的发生会出现不可避免的超欠现象,所以岩体是超欠挖的主要因素之一。 2、爆破方式:由于工作面(掌子面)是一个不平整的岩体面,导致钻孔 间距控制不当或间距过大、过小,容易影响其他孔位的爆破效果,或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。 3、测量放线:由于隧道测量放线过程中能见度低,操作有限,测量人员 进入隧道测量时导致前后视照准误差,同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。 如何正确实施隧道测量工作? 隧道测量工作应由专业测量人员测量,根据设计院给定的坐标控制点和高程控制点进行建立导线控制网,并按规定程序检查验收,对施测人员实行详细的图纸交底和方案交底,所有施测的工作进度根据项目进度计划进行 安排。 在隧道施工过程中,为了保证开挖、初期支护及二次衬砌后的净空满足设计规范要求,必须对已完工的主体工程进行全断面检查,现场检查一般采用带红外线的全站仪在现场实测三维坐标进行检查。对于测量数据应及时反馈到现场施工管理人员,以便及时控制开挖及衬砌净空标准。 通过以上对隧道超欠挖的了解及形成和影响,如何正确施测和控制等,现在就谈谈隧道超欠挖的计算原理。

卡西欧5800基本测量程序(完整版)

卡西欧 5800 程序 (完整版) 说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功

能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN "ZH(θ) F(1)"?M↓ (0为正算、1为反算) If M=θ:Then "ZHUANG HAO"?A:"KUAN DU"?W:Else"X="?H:"Y="?W:"Z="?Q:IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If AP-T+S+D:Then Goto 1 :IfEnd:IfEnd↓

Prog"ZFXZ"↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1:"NO TASK"↓ Lb1 2:If M=1:Then If A=1:Then "ZHUANG HAO":Z◢"SJ KUAN DU":B◢ IfEnd:IfEnd↓ "-------END-------" KUAN DU (拓展功能程序,用于反算) 1→M:Prog"MAIN"↓ Z→A:W→E:θ→W↓ Prog"GAO CHENG"↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ "……":D◢ (同上) ◢ "----------END---------" YUAN K(B÷(2R))→F↓

5800计算器全线坐标计算放样程序(修改第三版)

5800计算器全线坐标计算放样程序(修改第三版) 5800计算器全线坐标计算放样程序(修改版) “XLZBJSCX” ◢ LB1 0 ↙ CLS : FIX 4 : 30→DIM Z ↙ “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y)0l(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视 方位角) LB1 1 ↙ “K=”?K ◢(计算里程) IF K<本段曲线终点里程 AND K≥上段曲线终点里程:THEN 本段终点里程→Z[1] : 上段曲线终点里程→Z[2] :1→0 (注:左偏曲线输入-1→0,右偏曲线输入1→0): 偏角→A:半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线 →Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : G0T0 2 : IFEND↙ …………(曲线段分段输入) 补充直线段输入如下 IF K<本段直线终点里程 AND K≥本段直线起点里程:THEN 1→0:本段直线终点里程→Z[2]:终点X→Z[16]:终点Y→Z[11]:方位角→E:G0T0 4:IFEND LB1 2 ↙(曲线要素计算) Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙(M1) Z[7]/2- Z[6]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙(M2) Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙(P1) Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙(P2) π*A*R/180+0.5*( Z[3]+ Z[2])→W ↙(曲线总长) 90* Z[6]/(R*π) →Z[14] ↙(第一缓和曲线总偏角) 90* Z[7]/(R*π) →Z[15] ↙(第二缓和曲线总偏角,可以省略) Z[8]+(R+Z[10])TAN(A/2)-(Z[11]-Z[11] )/SIN A→Z[11]↙ (切线T1) Z[9]+(R+Z[12])TAN(A/2)+(Z[10]-Z[12] )/SIN A→Z[12]↙ (切线T2) B+ Z[12]*C0S (E+180)→ Z[13] ↙(ZH点X) C+ Z[12]*SIN(E+180)→ Z[15] ↙(ZH点Y) Z[1]-S→Z[3] ↙ (ZH点里程) Z[3]+ Z[6]→Z[4] ↙ (HY点里程) Z[1]- Z[7]→Z[5] ↙ (YH点里程) G0T0 3 ↙ LB1 3 ↙(判断里程点与曲线关系) IF K≤Z[3] AND K> Z[2] : THEN G0T0 4 : IFEND ↙ IF K≤Z[4] AND K> Z[3] : THEN G0T0 5 : IFEND ↙ IF K≤Z[5] AND K> Z[4] : THEN G0T0 6 : IFEND ↙

Fx5800计算器公路测量程序设计

FX5800计算器测量程序集版 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化:1、优化程序语句、2、以复数形式输入变量及做数据库,取消原矩阵数据库;3、修改隧道超欠挖程序为通用形,不受圆心个数限制、4、新增测量资料表计算

二、源程序(绿色为程序名;蓝色为输入计算器内容)紫色为新版改动处(可以根据自己标段情况用相关主程序及子程序,再在0程序中汇总)0.汇总程序(1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1);2、坐标反算程序(2ZD、A、B、AB、HX、QX、F、ZD、X1);3、高程计算查阅程序(3GC、H、I、QX、S1、I1);4、路基半幅标准宽度查阅程序(4GD、C、QX、G1);5、路基边坡及开挖口放样程序(5BP、 A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1); 6、路基标准距离放样(6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1); 7、桥梁锥坡计算放样程序(7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1); 8、极坐标计算程序(8JS、JS、DS); 9、隧道超欠挖计算程序(A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1)运行后按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"3GC":WhileEnd: While Z[3]=21:Prog"4GD":WhileEnd: While Z[3]=22:Prog"5BP":WhileEnd: While Z[3]=23:Prog"6FM":WhileEnd: While Z[3]=31:Prog"7ZP":WhileEnd: While Z[3]=32:Prog"8JS":

最新5800隧道专版汇总

5800隧道专版

5800隧道专版 时间:2010-03-11 15:36:41 来源:本站作者:李强善我要投 稿我要收藏投稿指南 本版本是道路版的升级版,程序只改变了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:Stop FileName:DATLOCK 要素保护密码确定认程序 Cls:Norm 1:50→C "PASSWORDS"?J:Cls:J≠Z[C+39]=>Stop FileName:SHELL(外壳程序)

50→C;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致 Norm 1 Z[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 S Prog"PROGMODE" ;进入模式功能选择 Lbi A Deg:Norm 1:Cls

CASIO fx-5800P计算器测量程序设计2.1版

CASIO fx-5800P计算器测量程序设计2.1版 一、程序功能 主要功能:采用线元法与交点法相结合计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本特点:1、建主程序合并原所有计算类型,在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度,因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。 二、源程序 1.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后输入1~9数子则选择1至9的程序,返回时,在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。 程序名:0ZCX LbI Q: 15→DimZ:Norm 2:1→A:"A:XY=1,ZD=2 ,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9"?A: A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4: A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:

A=9=>Goto 9 LbI 1:Prog "DX":LbI A:Prog"QX":90→B: "PJ1"?B:B→C: "PJ2"?C:B→Z[1]:C→Z[8]:LbI B:1→F: "KM"?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog"KM":?D:Porg"THB":O→L: "L0"?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog"XY":Prog"JS":Goto B LbI 2:2→F:90→Z[1]:Prog"QX":LbI C: "KM"?Z: Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog"KM": "X O"?X: "Y0"?Y:Prog"THB":Porg"ZD":Goto C: LbI 3:Prog"QX":0→B: "H-B"?B:B→Z[9]:LbI D: "KM"?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg"H":Fix 3: "H=":Lc oate 6,4,H-Z[9] ◢ "I=":Locate 6,4,I◢Goto D LbI 4:Prog"QX":LbI E: "KM"?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog"GD":Fix 3: "SJGD=":Locate7,4,L◢Goto E LbI 5:Prog"QX":0.5→B:"TH-GD"?B:B→Z[15]:LbI F:2→F:90→Z[1]:"KM"?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog"KM": "X0"?X: "Y0"?Y:0→M:”M0”?M: M→Z[4]:Prog"3FBZ"Fix 2:Z[3] →D:Abs(D)-S→O: "L0=":Locate 6,4,O◢Prog"ZD": Z[5]→T:"TW=":Lcoate 6,4,T◢Goto F: LbI 6:Prog"DX":LbI G:Prog"QX":LbI H:1→F:90→Z[1]: "K M"?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog"KM":?D:Prog"TH

fx 5800 隧道超欠挖计算程序

fx 5800 隧道超欠挖计算程序 隧道超欠挖计算程序 正算主程序(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◢Goto0 反算主程序(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◢Goto0 隧道3心圆放样主程序(CQW) Lb1 1:Fix3:7.315→R:6.19→P:“H 1”?F:?Z:F-H→F:Abs(5.72-Z)→Z If 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◢ Goto1 R----第一个圆圆心 P----第二个圆圆心

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)→Z If 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◢ Goto1 R----第一个圆圆心 P----第二个圆圆心 F----实测高程 H----路面纵断设计高程 Z----由反算主程序反算得到边距(不需修改) 程序中右线输入Abs(5.72-Z)→Z,左线输入Abs(5.72+Z)→Z

5800万能隧道程序

5800万能隧道程序 1,主程序 Lbl 0 :"1.SZ => XY" :"2.XY => SZ" :?T :?S :Prog “SUB0 ”↙ 1 ÷P →C: (P-R) ÷(2HPR) →D:180 ÷∏→E:T=1 => Goto1 :Goto 2 :↙ Lbl 1: “LICHENG=”?K:“BANJNG=”?P:“PIANJIN=”?S: :Abs(S-O) →W :Prog "SUB1" ↙ Prog "GC":G+√ˉ(P2-S2)+1.66◢ "XS=" :X ◢ "YS=" :Y ◢ " ZS=" :Z ◢ F-90 →F :“FS= ”:F ?DMS ◢ Goto 0 Lbl 2 :Prog “SUB2 ”↙ Prog “YFS3 ” Goto 0↙ 2. 正算子程序(SUB1) 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+QEL W(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+Q EMW(C+MWD))) →Y :G+QEW(C+WD)+90 → F :X+Zcos ( F )→X :Y+Zsin (F )→Y 3. 反算子程序(SUB2) Lbi 1∶“BANJING”?P:“X”?X:“Y”?Y:“Z”?Z:X→I:Y→J:G-90 →T :Abs((Y-V)cos(T)-(X-U)sin(T) ) →W :0 →Z :Lbl 4 :Prog "SUB1" : T+QEW(C+WD) →L :(J-Y)cos (L )-(I-X)sin (L )→Z :IF Abs (Z )<0.01 :Then0 →Z:Prog "SUB1" :(J-Y) ÷sin (F )→Z:Else W+Z

卡西欧5800边坡测量放样程序隧道测量

卡西欧5800边坡测量程序 U″XO″:V″YO″:A″X1″:B″Y1″: POL(G″X2″-A,D″Y2″-B:W=J:I: LBI1:{LKM}:X″XA="=A+LCOSW+KCOS(W+M)◢ Y"YA="=B+LSinW+Ksin(W+M)◢ POL(S-U),Y-U:J <0=>J=J+36O⊿ X″DIX=″=I◢ FiX3:O″FW=″=J◢ Goto1 5800边坡测量程序 ″XO=″?U:″YO=″?V:″X1=″?A:″Y1″?B:″X2″?G:″Y2″?D↙ POL(G-A,D-B):J→W:Fix 3:CLS↙ Lbi 1 ↙ ″L=″?L:″K=″?K:″M=″?M↙ A+LCOSW+KCOS(W+M)→X↙ B+LSinW+Ksin(W+M)→Y↙ Cls↙ "XA=":Locate 5,1,X:"YA=":Locate 5,2,Y◢ Pol(X-U,Y-V):If J <0:Then J+36O→J :Else J→J↙ Cls↙ ″DIX=″:Locate 5,1,I:″FW=″:J▲DMS◢ Goto 1 程序特点: 全线标高数据一次性程序化输入,扩充变量数据库,无需修改程序内容;全线贯通计算,标高计算时将全线数据分为4等分,首先判断待求点在哪个区间,再循环选择,提高运算时间;傻瓜操作,适用初级 用户。 一、程序:M C W“1.BG 2.SZ ”:W=1=> Goto 1ΔO“KOU LING”:O≠1 23456=>O=0:Goto 5ΔO=0:Z[1]=0: Goto 0←┘ Lbi 0←┘ ”No.”:Z[1]+1◢

{ZHPR}:Z“D0” :H“BG” :P“PD” :R“R0” :Z[Z[1]×4+ 3]=Z:Z[Z[1]×4+4]=H:Z[Z[1]×4+5]=P:Z[Z[1]×4+6]=R:“N EXT”◢Isz Z[1]:Goto0←┘ Lbi 1←┘ Z[2]= Z[1]←┘ {D}:D≤Z[Int(Z [2]÷4+1)×4+3]=>Z[2]= Int(Z [2]÷4) :Goto2ΔD≤Z [Int (Z[2] ÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2):Goto2ΔD≤Z [Int (Z[2]×.75+1)×4+3]=>Z[2]=Int (Z[2]×.75):Goto2ΔGoto 2 ←┘ Lbi 2←┘ DDsz Z[2]:Goto 2ΔGoto 3←┘ Lbi 3←┘ Z[Z[2]×4+6]≠0=>G=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+ 5]÷100+(D-Z[Z[2]×4+3]) ^2÷2÷Z[Z[2]×4+6]:Goto 4ΔG=Z[Z [2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100:Goto 4←┘ Lbi 4←┘ {Z}:Z:G=G-0.02Abs(Z):“G”: G◢(4850输出) {Z}:Z:G=G-0.02Abs(Z): G“G”◢(4800输出) Goto 1←┘ Lbi 5←┘ “OUT”◢ 程序操作说明

5800超欠挖程序(DOC)

隧道超欠挖计算原理与程序设计 摘要:随着铁路、公路建设的快速发展,我国隧道建设的施工技术也大幅度提高,由于工期紧迫促成测量放样的过程也是一个重要环节,如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度,导致开挖掘进造成隧道超欠挖,所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作,这样不仅提高了施测效率还保证了放样精度,现通过本文给大家讲解隧道超欠挖的计算原理和程序设计。 关键词:隧道超欠挖计算原理程序设计 何为超欠挖?:隧道超欠挖分为(超挖和欠挖),超挖即为隧道开挖轮廓线大于隧道设计轮廓线,欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。 超欠挖的影响:隧道超欠挖不止直接影响到了施工进度、安全质量,还会让开挖费用增加,更重要的是由此造成了过量超填混凝土的费用。超挖在实际施工中由于重视不够或方法不当,以至于在施工过程中会不知不觉地提高工程成本,从而也减少了应得的利润。 超欠挖是如何产生的? 在目前的隧道施工中,掘进技术有两种方法,一种是传统的“钻爆法(开挖台阶法)”;一种是“全断面掘进法(盾构掘进法)”。受各种条件的制约,“钻爆法”仍是隧道施工的主要掘进方法。所以隧道超欠挖的形成也是不可避免的,下面讲述一下形成超欠挖的三种情况。 1、岩层变化:由于隧道开挖过程中随着岩层的变化,地质条件和围岩裂隙的发 生会出现不可避免的超欠现象,所以岩体是超欠挖的主要因素之一。

2、爆破方式:由于工作面(掌子面)是一个不平整的岩体面,导致钻孔间距控制不当或间距过大、过小,容易影响其他孔位的爆破效果,或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。 3、测量放线:由于隧道测量放线过程中能见度低,操作有限,测量人员进入隧道测量时导致前后视照准误差,同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。 如何正确实施隧道测量工作? 隧道测量工作由公司专业测量人员组织成立测量小组,根据设计院给定的坐标控制点和高程控制点进行建立导线控制网。并按规定程序检查验收,对施测组全体人员实行详细的图纸交底和方案交底,明确分工,所有施测的工作进度根据项目进度计划进行安排。

卡西欧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:Stop FileName:DATLOCK 要素保护密码确定认程序 Cls:Norm 1:50→C "PASSWORDS"?J:Cls:J≠Z[C+39]=>Stop FileName:SHELL(外壳程序) 50→C ;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致 Norm 1 Z[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 S Prog"PROGMODE" ;进入模式功能选择 Lbi A Deg:Norm 1:Cls Z[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 B

5800非常好程序

FX5800计算器公路测量常用程序集2.3 版 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括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"3GC":WhileEnd: While Z[3]=21:Prog"4GD":WhileEnd: While Z[3]=22:Prog"5BP":WhileEnd: While Z[3]=23:Prog"6FM":WhileEnd: While Z[3]=31:Prog"7ZP":WhileEnd: While Z[3]=32:Prog"8JS":WhileEnd: While

5800隧道三心圆超欠挖程序

5800隧道三心圆超欠挖程序 点击:176 次添加日期:2012-07-22 [ 打印] [ 收藏] [ 关闭] 【举报老板技巧】 充分掌握黑心老板拒发薪水证据,绝对保护举报者的身份信息,请加QQ:5513690 1、ECDM(二衬断面检查子程序,结合后面附图理解) “SCGC”?→C If C

If Abs(Z[10])≤0.001:Then K+Z[10]→K:Pol(Z[1]-X,Z[2]-Y):”Z[4]=”:-I cos(J-U+90)→Z[4]◢ “K=”:K◢ Prog “GCJS”: Prog “ECDM”:Goto B:Else K+Z[10]→K: Prog “ZB”:Goto C:IfEnd (所用字母:E Q X Y U K) 3、GCJS(高程计算子程序) 26+6D→Z:Lb1 1:Prog “SQXYS”:K-O→L:If K≤O:Then F+AL→H:Else If K≤O+2T:Then F+AL+WLL÷R÷2÷Abs(W)→H:Else Z+3→Z:If Z≤ 23+6D+3G:Then Goto 1:Else Z-3→Z:Prog “SQXYS”:Z[Z+4]+B(K-O-T)→H:IfEnd (所用字母:Z O K F A L H T R W D) 4、GCJSZCX(高程计算主程序) Lb1 C “K=”? →K:Prog “GCJS”:”H=”:H◢ Goto C (所用字母:K H) 5、SQXYS(竖曲线要素计算子程序) (Z[Z+4]-Z[Z+1])÷(Z[Z+3]-Z[Z])→A:(Z[Z+7]-Z[Z+4])÷(Z[Z+6]-Z[Z+3])→B:B-A→W:Z[Z+5]→R:Abs(0.5RW)→T:Z[Z+3]-T→O:Z[Z+4]-AT→F: A、B:竖曲线前后坡度计算,其余请参看竖曲线计算公式 (所用字母:A B W T F Z R)

卡西欧fx-5800p计算器内置公式及公式自定义在隧道测量中的应用

CASIOfx-5800p计算器内置公式及自定义公式在 隧道测量中的应用 工程测量过程中,计算器是数据处理的快捷工具。在测量中,数据计算有很多都是重复计算,不能一次性通过计算得出结果,而是一个累计的过程。因此,测量中我们就必须想办法使计算快速,而且又要准确的输出。于是,编程的思想就融入了计算器中。 编程计算器是一种能够输入编写好的计算程序,可根据需要随时调用进行重复计算的一种高科技电子产品。 目前工程的施工测量中普遍使用的都是CASIO电子计算器,其计算器种类及型号很多:如今用于测量中的主要有fx-4850p、fx-5800p等等。 CASIOfx-5800p计算器于2006年10月面市,是CASIO编程计算器中的一款经典机型,主要功能与CASIOfx-4850p相比改进之处有: 1.无需备用电池保存机器内的数据,即使取出电池也不会丢失内存中的程序与数据。 2.关机现场保护功能。在任何操作界面下,包括正在执行程序,用户都可以按【SHIFT】 【OFF】键关机,机器保存关机前现场的屏幕显示与运行状态,下次按【AC】(ON)时,机器自动恢复最近一次关机的屏幕显示与运行状态。 3.内置128个常用公式和40个科学常数。 4.可采用自然书写形式的函数输入和输出显示。 5.增加矩阵计算功能,最多可定义MatA~MatF六个矩阵,矩阵的阶数最大为10行× 10列,可以对矩阵进行加、减、乘、行列式、转置与求逆计算。 6.可以计算二元~五元线性方程组及一元二次与一元三次方程的数值解。 7.程序使用类BASIC程序结构命令,实现条件语句,循环语句等命令的结构化,提供 比以前功能更加强大的程序控制命令。

Fx5800计算器公路测量程序的设计说明

FX5800计算器测量程序集2.4 版 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化:1、优化程序语句、2、以复数形式输入变量及做数据库,取消原矩阵数据库;3、修改隧道超欠挖程序为通用形,不受圆心个数限制、4、新增测量资料表计算

二、源程序(绿色为程序名;蓝色为输入计算器内容)紫色为新版改动处(可以根据自己标段情况用相关主程序及子程序,再在0程序中汇总) 0.汇总程序(1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1);2、坐标反算程序(2ZD、A、B、AB、HX、QX、 F、ZD、X1);3、高程计算查阅程序(3GC、H、I、QX、S1、I1); 4、路基半幅标准宽度查阅程序(4GD、C、QX、G1); 5、路基边坡及开挖口放样程序(5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1); 6、路基标准距离放样(6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1); 7、桥梁锥坡计算放样程序(7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1); 8、极坐标计算程序(8JS、JS、DS); 9、隧道超欠挖计算程序(A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1)运行后按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"3GC":WhileEnd: While Z[3]=21:Prog"4GD":WhileEnd: While Z[3]=22:Prog"5BP":WhileEnd: While Z[3]=23:Prog"6FM":

相关文档
最新文档