FX5800P计算器隧道测量程序

合集下载

FX5800P计算器正反算、隧道超欠挖计算程序

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。

)卡西欧FX-5800p计算器正反算、隧道超欠挖计算程序正算主程序 (ZS) ：Lb1 0 ： FIX 4 ： ? S ： ?Z ：Prog “ PM-SJ ” ： Abs(S-O) → W ： Prog "SUB1" ： "XS= " ：X ◢ "YS= " ：Y ◢ F-90 → F ( 需要时可以让他显示，不要时不必输入 ) ：Pro g“SQX-SJ”: Prog “ SQX ” ：“ H= ” ：H ◢- Goto 0反算主程序 (FS)Lb1 0 ： FIX4: ? S ： ? X ：？ Y ：Prog “PM-SJ” ：X→ I ：Y→ J ：Prog "SUB2" ： "S= " ：O+W→S ◢ "Z= " ：Z ◢Prog “SQX-SJ” ：Prog “ SQX ” ：“ H= ” ：H ◢ Goto 0隧道 3 心圆放样主程序（ SD-3XY ）Lb1 0 ：Prog “ FS ” ： 1.5 → A ： 1.65 → B ：0.89→ G： 2.27 → C ： 3.3 → D ： 2.41 → E ：0.51 → J ：“H1” ： F ：ifF≤ H+ A ：then E-AbsZ → W ： IfEn d ： ifF ＞H+A And F ≤ H+A+ B ：then√ （ D²- （ F-H-A ） ² ） -G-AbsZ → W ： IfEn d ： ifF ＞ H+A+ B ：then√ （ C²- （ F-H-A-J ） ² ） -AbsZ → W ： IfEn d ：“W=” ：W◢ （水平方向的超欠挖：正为欠 , 负为超） Goto0正算子程序 (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 ≥ 500 （线元起点里程） AndS ＜ 769.256 （线元止点里程）：Then19942.837 → U （线元起点 X 坐标）： 28343.561 → V （线元起点 Y 坐标）：500 → O （线元起点里程）：125 ° 16 ° 31 ° → G （线元起点方位角）：269.265 → H （线元长度）： 10^ （ 45 ）→ P （线元起点曲率半径）： 10^ （ 45 ）→ R （线元终点曲率半径）：0 → Q （线元左右偏标志：左负右正）： IfEndifS ≥ 769.256 （线元起点里程） AndS ＜ 806.748 （线元止点里程）：Then19787.34 → U （线元起点 X 坐标）： 28563.378 → V （线元起点 Y 坐标）：769.256 → O （线元起点里程）：125 ° 16 ° 31 ° → G （线元起点方位角）：37.492 → H （线元长度）： 10^ （ 45 ）→ P （线元起点曲率半径）：221.75 → R （线元终点曲率半径）： -1 → Q （线元左右偏标志：左负右正）： IfEndifS ≥ 806.748 （线元起点里程） AndS ＜ 919.527 （线元止点里程）：Then19766.566 → U （线元起点 X 坐标）：28594.574 → V （线元起点 Y 坐标）：806.748 → O （线元起点里程）：120 ° 25 ° 54.07 ° → G （线元起点方位角）：112.779 → H （线元长度）：221.75 → P （线元起点曲率半径）：221.75 → R （线元终点曲率半径）： -1 → Q （线元左右偏标志：左负右正）： IfEndifS ≥ 919.527 （线元起点里程） AndS ＜ 999.812 （线元止点里程）：Then19736.072 → U （线元起点 X 坐标）：28701.893 → V （线元起点 Y 坐标）：919.527 → O （线元起点里程）：91 ° 17 ° 30.63 ° → G （线元起点方位角）：80.285 → H （线元长度）：221.75 → P （线元起点曲率半径）：9579.228 → R （线元终点曲率半径）： -1 → Q （线元左右偏标志：左负右正）： IfEndifS ≥ 999.812 （线元起点里程）：Then19744.038 → U （线元起点 X 坐标）：28781.659 → V （线元起点 Y 坐标）：999.812 → O （线元起点里程）：80 ° 40 ° 50 ° → G （线元起点方位角）：100 → H （线元长度）： 10^ （ 45 ）→ P （线元起点曲率半径）： 10^ （ 45 ）→ R （线元终点曲率半径）：0 → Q （线元左右偏标志：左负右正）： IfEnd子程序（竖曲线数据库） SQX-SJifS ≤ 999.812 （竖曲线终点里程）： then0.0357 （前坡度：上坡正下坡负）→ E ： 0.0227 （后坡度：上坡正下坡负）→ F ：600 → R （竖曲线半径）：780 → G （变坡点里程）：110 → C （变坡点高程）： IfEnd子程序（竖曲线计算公式） SQXE-F → J ： ifJ ＞ 0 ： then-R → R ：ElssR→ R ： Abs （R*J÷2 ）→ T ： IfEndifS ≤ G- T ： thenG-S → L ： C-LE → H ： IfEndifS ＞ G- T And S ≤G ： thenG-S → L ：（ S+T-G ）²÷2÷R →N ：C-LE+N → H ： IfEndifS ＞G And S ≤ G+ T ： then S-G → L ：（ G +T- S ）²÷2÷R →N ：C+LF+N → H ： IfEndifS ＞ G+ T ： thenS-G → L ：C+LF → H ： IfEnd使用说明(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1 ；当线元往右偏时， Q=1 ；当线元为直线时， Q=0 。

CASIOfx5800P实用工程测量程序

一、QXFY 辛甫森公式放样程序1. “X0”? U：“Y0”?V2. “XA”? A：“YA”? B：“CA”? C：“1÷RA”?D：“1÷RB”?E：“KA”?F：“KB”? G3. Lb1 1：“KI”?H：“JJ”?L：“Y+Z－”?R4. If H>G Or H<F : Then Goto 1: IfEnd6. (E-D) ÷Abs(G-F) P: Abs(H –F)→Q：P×Q→Z：D+Z→T7. C+（Z+2D）Q×90÷π→W :“QXFWJ”：8. C+(Z÷4+2D)Q×22.5÷π→M：C+（3Z÷4+2D）Q×67.5÷π→N：C+(Z÷2+2D)Q×45÷π→K9. A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W+L) →X：“X＝”：X10. B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(W))÷12+Rsin (W+L)→Y：“Y＝”：Y11. Pol((X-U)，（Y-V）)If J≤0 Then J+360→J: IfEnd : “FWJ”:J12. “JU”: I13. Goto 1程序显示说明：须输入参数：X0:置镜点X (对应变量U) Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)YA:曲线起算点Y (对应变量B)CA：曲线起算点切线方位角(对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负(对应变量D)1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线向右的夹角)(对应变量L)D“Y + Z－：偏距，右正左负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)X0Y0KB本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩也可求斜交或正交的边桩。

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 是一种非常实用的计算器，在工程测量中有着广泛的应用。

卡西欧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程序.

5800公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A，将匝道A所有的曲线线元参数输入A文件里。

运行时只要运行文件名A的程序就可以了，具体运行流程见下图：二、数据文件的编写（一）交点法数据文件编辑交点法编写数据文件必须是对称型的，即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段，（如果任意一端没有直线段，则把直线段长度看做是0），另外圆曲线两侧缓和曲线的旋转常数必须相等，并且和直线段连接处的半径必须是无穷大。

交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写，每个弯道包括：弯道起点方位角（C），交点X坐标（D），交点Y坐标（E），缓和曲线长度（F，当没有设缓和曲线时，F=0），交点转交（G，向左转弯，G为负值，向右转弯，G取正值），交点桩号（H），弯道圆曲线半径（R）。

下图是一段市政道路设计参数数据。

根据上图提供的数据，可以编辑成如下的数据文件：文件名:CHLNR3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Els e “Xp”?X:”Yp”?Y:X→Z[1]：Y→Z[2]：IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C：4474.384→D：24154206.421→D：3093.946→E：70→F：-33°50°48°→G：1285.437→H:600→R:IfEnd:Prog”XLJS”:If Z[3]≠0. 0001:Then Goto 0:Else (Z[1]－X)cos(Ｏ)＋(Z[2]－Y)sin(Ｏ)→N:L＋N→L:－(Z[1]－X)sin(O)+(Z[2]－Y)cos（O）→K：If Abs（N）≥0.001：Then Goto 1：Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd在面程式中，有两个条件转移语句即If L>0：Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEndIf L>1060：Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd……如果还有其他弯道，可以继续完后加。

FX5800P全线任意里程中边桩坐标中桩正反算及设计高程、隧道超欠挖计算(加了数据库)

主程序 ZBJSLbl6：fix3:"1.SZ→ XY"："2.XY→ SZ"：？N:Prog“SUB0”Lbl0:( P-R)÷(2HPR) →D：180÷π→E:N=1 =>Goto 1: Goto 2Lbl 1:?S:?Z:?C: Abs(S-O)→W: Prog"SUB1":Cls: Locate 1,1"X=" Locate 3,1,SLocate 1,2,”Z=”Locate 3,2,ZLocate 11,2,”C=”Locate 13,2,CLocate1,3,”X=”Locate 3,3,XLocate 1,4, "Y="Locate3,4,Y◢Cls :"FWJ=":F-C ►DMS◢Prog“GC”0→O: ?O:O=0=> Goto 6“JL=”?L“JIAO DU=”?AX+LCOS((F)+A)→O: Y+LSIN((F)+A)→V: Cls: "X1=": Locate4,1, O: "Y1=":Locate4,2,V:Retunr:IFend“XC” ?C：“YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：I◢If J∠0: Then “J=”: J+360►DMS◢IfEndIf J >0：Then “J=” ：J►DMS◢IfEnd：Goto 6Lbl 290→C:?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:Locate 1,1,”X =”Locate 3,2,ILocate 1,2,”Y=”Locate 3,2,JLocate 1,3,"S="Locate 3,3,SLocate 1,4,”Z=”Locate 3,4,Z◢CIS: Prog“GC”0→O: ?O:O=0=> Goto 67→Dimz:“SCG=”? →Z[2]:“JU Z=”? →Z[3]: “GAO CA=”?→Z[4]: “BAN JING=”? →Z[5]:IF Z≦30（左线大于等于-30）：Then“T=”:Abs(Z[3]±Z- Z[5] →Z[6] ◢(分离式路基左为负，右为正)“P=”：Z±Z[3] →Z[1] ◢(分离式路基左为负，右为正)“W=”：Z[2]-G- Z[4]）→Z[7] ◢“CQW=”：√（Z[7]∧2+ Z[1]∧2）- Z[5] ◢Goto 6: Retunr:IFend正算子程序SUB14→dimZ0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M:G+QEKW(1/p+KWD) →Z[1]G+QELW(1/p+LWD) →Z[2]G+QEFW(1/p+FWD) →Z[3]G+QEMW(1/p+MWD) →Z[4]U+W(Acos(Z[1])+Bcos(Z[2])+Bcos(Z[3])+Acos(Z[4]))→XV+W(Asin(Z[1])+Bsin(Z[2])+Bsin(Z[3]))+Asin(Z[4])) →YG+QEW(1/p+WD)+C→F：X+Zcos（F）→X：Y+Zsin（F）→Y反算子程序 SUB2G-C→TAbs (Y-V)cosT-(X-U)sin(T) →W:0→Z:Lbl0：Prog "SUB1"T+QEW(1/P+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）<1E-6：Then Goto1:Else W+Z→W：Goto0:IfEndLbl1:0→Z:Prog "SUB1":(J-Y)÷sin（F）→Z数据库子程序SUB0Goto 1(线元可输入多条，分离式可在前多加一位，匝道一样。

自编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)等曲线要素赋予定值，可减少在工作中的输入量。

FX5800P计算器隧道测量超欠挖计算程序

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。

)fx5800p隧道测量超欠挖计算程序曲线：QXLK“ZF”？U:“RP”?O:“ZY”? K:D“X 0”?D:E“YO”?E :?V:?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”？Q←┘Lb1 8←┘?X:?Y←┘Pol((X-D)，(Y-E) )) ←┘“S ”:= -V(I-O)=→S ◢(字母O)“L ”:=K+πOsin-1 (sin(90+V(J-U )))÷180→L◢RAbs(N-M)÷2→T←┘B-L→C←┘1→F←┘IF M＞N:Then-1→F:THEND←┘IF L＜B-T:Then Goto 1:ELSE IFL＜B:THEN Goto 2:ELSE IFL＜B+T:THENGoto3:ELSE IF L＞B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘Lb1 1←┘“G ”:=H-CM→G◢Goto5←┘Lb1 2←┘“G =”:H-C M +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 3←┘“G= ”:=H-C N +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 4←┘“G=”:H-CN→G◢Lb1 5←┘?Z←┘IF Z＞G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘Lb1 6←┘“W=”:√(S2+(Z-G-3.1) 2)-P→W◢Goto8←┘Lb1 7←┘“W=”:√((A+Abs（S)2+(Z-G-1.7) 2)-Q→W◢Goto8←┘说明：Z F？方位角RP？半径ZY？圆曲线起点桩号X0？圆心X坐标Y0？圆心Y坐标V？转向H ? 变坡点高程B? 变坡点桩号R? 竖曲线半径M? 前纵坡N? 后纵坡OZ-ZXX? 圆心距中心线距离R 1 ? 拱顶半径R 2 ？内圆半径XO ? 实测坐标YO ? 实测坐标J ?L ? 桩号S ? 平距G ? 设计高程Z ? 实测高程W ? 超欠挖(“+”为超挖“-”为欠挖)算例索子沟二号隧道圆曲线段参数设置：ZF? 324 35 53.4RP ？500 ZY？29117.543 X O？60807.872 Y O？12833.4328 V？1H ? 1717.4 B? 29750 R? 12000 M? 0.65％N? -0.1028％OZ-ZXX?2.2 R1? 4.286 R2? 6.893X=60869.64 Y=12332.5154 H=1720.211 计算L=29487.827 S=-4.711 W=0.56966直线：ZXLK“ZF”？U:“QSDZH”? K: “X0”?D: “YO”?E :?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”？Q←┘Lb1 8←┘?X:?Y←┘Pol((X-D)，(Y-E) )) ←┘“L ”:K+COS (J-U)×I→L◢“S ”:SIN (J-U) ×I→S ◢(RAbs(N-M)÷2→T←┘B-L→C←┘1→F←┘IF M＞N:Then-1→F:THEND←┘IF L＜B-T:Then Goto 1:ELSE IFL＜B:THEN Goto 2:ELSE IFL＜B+T:THENGoto3:ELSE IF L＞B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘Lb1 1←┘“G ”:=H-CM→G◢Goto5←┘Lb1 2←┘“G =”:H-C M +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 3←┘“G= ”:=H-C N +F(T-Abs（C)2÷（2R）→G◢Goto5←┘Lb1 4←┘“G=”:H-CN→G◢Lb1 5←┘?Z←┘IF Z＞G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘Lb1 6←┘“W=”:√(S2+(Z-G-3.1) 2)-P→W◢Goto8←┘Lb1 7←┘“W=”:√((A+Abs（S)2+(Z-G-1.7) 2)-Q→W◢Goto8←┘说明：Z F？直线方位角QSDZH? 直援点圆心桩号X O？圆心X坐标Y O？圆心Y坐标H ? 变坡点高程B? 变坡点桩号R? 竖曲线半径M? 前纵坡N? 后纵坡OZ-ZXX? 圆心距中心线距离R 1 ? 拱顶半径R 2 ？内圆半径XO ? 实测坐标YO ? 实测坐标J ? L ? 桩号S ? 平距G ? 设计高程Z ? 实测高程W ? 超欠挖(“+”为超挖“-”为欠挖)算例索子沟二号隧道直线段参数设置：ZF? 4 12 28.7 QSDZH? 29463.203 X O？60844.56 Y O？12334.7807 H ? 1717.4 B? 29750 R? 12000 M?0.65％N? -0.1028％OZ-ZXX? 2.2 R1? 4.286 R2? 6.893X=61056.762 Y=12348.355 H=1723.69 计算L=29675.829 S=-2.033 G=1716.888. W=-0.063。

5800P曲线隧道放样程序-马蹄型

CASIO-5800P计算程序（马蹄型）（QB101）曲线段隧道坐标测算1)LbI 02)“X0=”?A：“Y0=”?B：“X1=”?C：“Y1=”?D3)C-A→X：D-B→Y4)√(X2+Y2)→T5)Abs tan-1(Y÷X) →M6)If X>0 And Y>0:Then M→K7)Else If X>0 And Y<0:Then 360-M→K8)Else If X<0 And Y>0:Then 180-M→K9)Else 180+M→K10)IfEnd：IfEnd：IfEnd11)“R0=”?E：“L1=”? F: “ZA=”?O：“H1=”?G：?I：“H2=”?J12)“L=”:F+E×Abs (K-O)×（Л÷180）→L▲13)G+E×Abs (K-O)×（Л÷180）×I→H14)“P=”:J－H→P▲15)“S=”: Abs (T-E)→S▲16)If J>H:Then √(P2+S2) →R17)Else If J<H And S<3:Then √(S2+(H+3.5-G)2) →R18)Else √(P2+(3.5+S)2) →R19)IfEnd: IfEnd20)“R=”:R▲21)“X=”?X:“Q=”:R-X→Q▲22)Goto 0备注:X0, Y0即A，B：为曲线圆心坐标;X1，Y1即C,D：为待求点实测坐标;R0即E：为曲线半径；L1即F：为ZY点即弯道起点桩号；ZA即O：为圆心与ZY点的坐标方位角；H1即G：为ZY点桩号起拱高程;H2即J：为实测点高程；L：为实测点桩号；S：待求点距离中线距离（左为“-”，右为“+”）；I：为纵坡度；H：为计算点对应断面的起拱线标高；P：实测高程与设计高程之差（起拱线以上为“+”，起拱线以下为“-”）；X：为计算点所处圆弧设计半径；R：为计算点圆弧的计算半径。

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

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

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

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

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

如不够就适量加大。

RESET，SHELL ，SET，SETPFDYS ，这几个程序中C 值必需一致Norm 1Z[C+23] tN 当前分段要素N 坐标Z[C+24] tE 当前分段要素E 坐标Z[C+25] tM 当前分段要素起点桩号Z[C+26] tH 当前分段要素起点方位角（正北）单位:弧度Z[C+27] tA 当前分段要素起点曲率有左偏负右偏正（注意不是半径）Z[C+28] tR 当前分段要素终点曲率有左偏负右偏正（注意不是半径）Z[C+29] tL 当前分段要素长度Z[C+3] tW 斜桩角度Lbi SProg"PROGMODE" ; 进入模式功能选择Lbi ADeg:Norm 1:ClsZ[C+1] t G:"ZH"?G ;桩求桩号If G=-1:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置G t Z[C+1]Z[C+2] t B:"JL"?B:B t 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 T IDo:I+1 T |：|=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 OrGetkey=26) ; 锁定键盘，并在几十秒后自动返回Getkey=57=> Goto 1|f Getkey=26=> Prog "SDFY":Goto B:End|fPol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,|:Locate 12,1,Z[C+45]"t":Locate 3,2,B:Locate 12,2,Z[C+49]"FWJ"J<0=>J+360 T J T DMS 丄J t Z[C+46]| t Z[C+47]Goto 1FileName：SDFY 隧道放样ClsZ[C+2] t VZ[C+41] t DZ[C+43] t|:"DQD-Z"?|:| t Z[C+43]Z[C+42] t J:"R"?J:J t Z[C+42]Z[C+40] t K:"R-DL"?K:K t Z[C+40]Abs(V- K) t PV (P2+(-Z-D)2) TU计算实际半径Fix 3:Cls ;设置三位小数"ZH = ":Locate 4,1,G"R":Locate 2,2,ULocate 10,2,U-J|f |-Z-D-J>0 :Then |-Z-D- V(J2-P2)t P:0t OElse |f P-J>0:Then P-V(J-2(|-Z-D)2) t O:0t PElse P-V (J-2(|-Z- D)2) t O:|-Z-D- V (J2-P2) t P|fEnd:|fEnd"H":Locate 2,3,OLocate 8,3,"V"Locate 9,3,PLocate 1,4,Z+DLocate 9,4,|0 T TDo:T+1 T T:T=1000=>Return:L pWhile Not(Getkey=57 Or Getkey=27); 锁定键盘，并在几十秒后自动返回Getkey=57=>ReturnIf V-K>0 :Then V- O t B:Else V+O t B:IfEndFileName ：ZBJS 坐标计算程序 Prog"READDAT" Rad G-M t QIf J=2 :Then H+QR t F:Rec(Abs(2Sin(Abs(0.5QR)) 段直接计算If J=3 :Then Goto 5 :IfEnd X+BCos(F+W)t XY+BSin(F+W) t Y Deg:ReturnLbi 5 用五点通用坐标计算计算缓和段 0.5(R-A) - L TK AQ t IKQ2t J 0.0469100770 t P:H+IP+JP2 t O 0.2307653449 t P:H+IP+JP2 t T 0.5 tP :H+IP+JP2 t D0.7692346551 t P:H+IP+JP2 t F 0.9530899230 t P:H+IP+JP2 t P 0.1184634425 t I 0.2393143352 t J 0.2844444444 t YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P)) E+Q(ISin(O )+JSin(T)+YSin(D)+JSin(F)+ISin(P)) H+AQ+KQ2t FX+BCos(F+W)t X Y+BSin(F+W) t Y Deg:Return FileName:TURNZH( 坐标反算 ) Prog"INNEZ" Z[C+37] t UZ[C+38] t V0TB : M+L + 2T G : Prog"ZBJS" Lbi S:RadU-X t I:V -Y t JIf I=0 And J=0 :Then Goto A:IfEnd Pol(I,J)IF AR=0:Then If A=R :Then 1t J:Else 3t J :IfEnd:ElseIf A=R :Then 2t J:Else3t J:IfEnd:IfEnd判断线元类型If J=1 :Then Ht F:N+QCos(H) t X:E+QSin(H) T Y ：|fE 直线段直接计算-R),H+QR - 2):N+I T X:E+J T Y l E i dt X t YLbi A:Rec(I,J-F)G+I T G：IF Abs(l)>0.0001 :Then Prog"ZBJS":Goto S /J t BG t Z[C+1]J t Z[C+2]Prog"GCJS"FileName: INNEZ 实测坐标输入程序Lbl S:Norm 1:ClsZ[C+50]=2=>Goto 1Z[C+37] t II<0=>Goto 1"DQD-N"?I 输入待求点N 坐标I<0=>Goto 1I t Z[C+37]Z[C+38] t I:"DQD-E"?I 输入待求点E 坐标I<0=>Goto 1I t Z[C+38]Z[C+43] t I:"DQD-Z"?I 输入实测高程I<0=>Goto 1I t Z[C+43]ReturnLbi 1I=-1=>Then 2 t 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] t J:"DQD-FWJ"?JJ<0=>Goto 1J t Z[C+46]Z[C+47] t I:"DQD-DL"?I:I t Z[C+47]Z[C+48] t K:"DQD-DZ"?K:K t Z[C+48]Z[C+49] t P:"RHT"?P:P t Z[C+49]Rec(I,J)Z[C+35]+l T Z[C+37]Z[C+36]+J T Z[C+38]Z[C+44]+Z[C+45]+K- P t Z[C+43]ReturnLbi 1lf J=-2:Then Prog"WORK-SET":Goto S:lfEnd 进入工作设置1t Z[C+50]ReturnFileName: WORK-SET 测站设置程序Norm 1:Cls50 t CZ[C+32] T |："DAT1 2 3"?l:l T Z[C+平2曲线要素数库类型选择1为内置式，2文件式，3实时输入（查看当前要素值）Z[C+4] t l："0 1 2 3"?l：l t Z[C+4] 选择本程序模式0为坐标正算，1 坐标反算，2横向边仰坡放样，3，纵向边仰坡放样（隧道进出口用到）Z[C+41] t l："GC-DH"?l：l t Z[C+41] 放样点高差常数Z[C+35] t l："STATlON-N"?l：l t Z[C+35] 设置测站N 坐标Z[C+36] T |："STATION-E"?I:I T Z[C+36]设置测站E 坐标Z[C+44] T |："STATION-Z"?I:I T Z[C+44] 设置测站Z 坐标Z[C+45] t I："STATION-HI"?I：I t Z[C+45] 设置仪高ClsFileName： PROGMODE 程序功能模式选择Z[C+4] t II=0=>Return ; 正算模式I=1=>Prog"TURNZH" ; 反算模式I=2=>Prog"HXBYP" ;横向边仰坡放样模式I=3=>Prog"ZXBYP" ; 纵向边仰坡放样模式FileName：HXBYP 横向边仰坡放样程序Cls：Norm 1Z[C+40] t I："QPD-DL"?I：I t Z[C+40] 输入起坡点与中桩距离常数Z[C+41] t I："QPD-DZ"?I：I t Z[C+41] 输入起坡点与中桩高差常数Z[C+42] t I："i"?I：I t Z[C+42] 输入边仰坡坡度，左仰坡（路堑）为正，右仰坡（路堑）为负，左边坡为负，右边坡为正Cls：Z[C+43] t I："DQD-Z"?I：I t Z[C+43] 输入实测高程Prog"TURNZH"Prog "GCJS"（Z[C+43]-Z- Z[C+41]）Z[C+42]+Z[C+40] t BFix 3:B-Z[C+2]丄显示与设计位置的偏差B t Z[C+2]FileName:ZXBYP 纵向仰坡放样程序（隧道进口使用） Cls:Norm 1:Z[C+33] l:"QPDH"?l:l Z[C+33]输入起坡点桩号 Z[C+34] T I:"QPD-Z"?I:I T Z[C+34]输入起坡点高程Z[C+42] T l:"i"?l:l T Z[C+42] 仰坡时（隧道进出口仰坡，进口为正，出口为负）Cls:Z[C+43] t I:"DQD-Z"?I:I t Z[C+43] 输入实测高程 Prog"TURNZH"Z[C+42]（Z[C+43]- Z[C+34]）+Z[C+33] t G Fix 3:G-Z[C+1]丄显示与设计位置的偏差 G t Z[C+1]FileName:SET 设置程序 Lbi S Norm 1 50 t C50t Z[C+22] 本程序设置变量个数目前 50 个刚刚够用。

fx5800P测量公式及程序汇总

卡西欧5800P 测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。

输出：D为平距，Q为方位角。

二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。

“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。

输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。

三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ（曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “M”？→M：180*（M-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then“X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（M-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（M-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。

隧道断面超欠挖放样步骤(For Casio fx-5800p).doc

隧道开挖断面测量步骤（适用于Casio fx-5800P）步骤如下：1.架站，后视,记下测站坐标（X,Y,H）;2.求出断面桩号，计算断面中心点O0坐标（X0,Y0）、切线方位角V;3.运行程序：程序名：“ZBZH”?A:?B:?X:?Y:W→WPol(A-X,B-Y):Rec(I,J-W)Cls:”N”:Locate 3,1,I:“E”:Locate 3,2,J◢A 测站坐标X值B 测站坐标Y值V 第2步中记下的切线方位角V值X,Y 第2步中记下的洞轴线坐标（X0,Y0）记下所求得的N值与E值;4.转动全站仪，将水平角值调到与切线方位角V相等，然后置零，再将测站坐标（X,Y）值改成第3、4步所求得的（N,E）所对应的值，并将目标高改为0。

（注意！切勿改动仪器高！）5.开始放开挖轮廓点，将所测得的N,E,Z代入以下程序运行：程序名：“DMCL”1.“1.ZD,2.YD”?U:If U=1:Then *→A:* →B:* →C:* →D:* →R:IfEnd2.If U=2:Then *→A:* →B:* →C:* →D:* →R:IfEnd3.R÷cos((tan-1 A- tan-1 B)÷2)-R→G4.√((R+G)2-R2)→T5.Abs(Tcostan-1A)→Q6.Abs(Rsintan-1A)→O7.C-Q→S8.C+ Abs (Tcostan-1B)→K9.“DMLX”?T:”R”?P:”O-H”?X:1.5→L:0.25→M T－断面类型，P－断面半径，X－设计高与圆心高高差，L、M如图所示。

10.Lbl 0:?N:?E:?Z:Abs(E)→E11.If N≤S:Then D-(C-N)A→H:IfEnd12.If N≥K:Then D+( N-C)B→H:IfEnd13.If N<K:Then If A＞B:Then 1→F:If A＜0:Then 1→W:Else -1→ W:IfEnd:IfEnd14.If A＜B:Then -1→F:If A＞0:Then 1→W:Else -1→W:IfEnd:IfEnd15.D-F(√((R+G)2-(O+WQ)2) -√(R2-(O+W(N-S))2))→H:IfEnd16.Z-(H+X)→V :T=1=>Goto 1: T=2=>Goto 217.Lbl 1:If V>0:Then Pol(E,V):"SHANG": P-I→Y◢18.Goto 0:IfEnd19.If V<0:Then Pol(E+L,V):"XIA":P+L-I→Y◢20.Goto 0:IfEnd 正常段21.Lbl 2:If V<0:Then Pol(E+M,V):"XIA":P+L-I→Y◢22.Goto 0:IfEnd23.If V>0:Then Pol(E-L+M,V)24.If J<50°:Then "SHANG":P-I→Y◢25.Goto 0:IfEnd26.If J≥50°:Then Pol(E,V+L-M): "SHANG":P+(L-M)÷cos50°-I→Y◢27.Goto 0:IfEnd 加宽段图一：图二：。

卡西欧fx-5800p计算器公路测量常用程序

FX-5800p计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。

程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。

有关路基和隧道的casio 5800p 万能曲线计算程序

有关路基和隧道的CASIO 5800P 万能曲线计算程序程序专区2010-01-16 20:31:32 阅读388 评论0 字号：大中小有关路基和隧道的CASIO 5800P 万能曲线计算程序(CASIO fx-5800P计算器)程序一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

二、源程序增加变量16→DimZ1.主程序(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 22. 正算子程序(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(C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算子程序(SUB2)G-90 →Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog \"SUB1\"：Z[2]+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog \"SUB1\"：(J-Y) sinF→Z4. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q: Goto 1:IfEnd…………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1 P→C：(P-R) (2HPR) →D：180 π→E：5. 算方位角程序(FA)LbI0：“XC=”? A: “YC=”? T :X：Y0→J：POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd“FW=”：J?DMS◢Goto06. 使用方位角算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F：L Cos（F）+X→N: “N=”N◢L Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→Z[6]：“P1=” ? → Z[8]：“P2=” ? → Z[9]：“P3=” ? → Z[10] (没有的话就删)：Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEndZ[11] Z[5] →Z[12]：If Z[12]〈1 Then Z[8] Z[11] →Z[13]：Else Z[8] Z[5]+Z[9] Z[5] （Z[12]-1）→Z[13]：IfEnd: AbsZ-（Z[13]+Z[6] Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ……………… 起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标高Z[5]=“PG” ……………… 坡高Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地面高度Z[8]=“P1” ……………… 一级边坡坡度Z[9]=“P2” ……………… 二级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超欠挖宽度（+表超，-表欠）8. 隧道圆心放样程序（SDYX）IF S<229000:THEN 243.997+0.0205 (S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023 (S-230500)- (S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

卡西欧fx-5800p计算器测量程序

卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。

卡西欧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程序结构命令，实现条件语句，循环语句等命令的结构化，提供比以前功能更加强大的程序控制命令。

8.增加可数据串列，使统计计算中的样本数据便于编辑和修改。

9.数据存储器保护功能。

10.数据通信功能。

可使用通信线在两台fx-5800p计算器之间进行数据通讯，便于用户相互交换程序及其它数据。

CASIOfx-5800p与fx-4850p相比较，功能及应用更加适应工程中的测量，因此，从长远的角度上讲，CASIOfx-5800p的使用将越来越广泛。

fx5800p计算器程

编辑.欢迎下载支持.一、大地坐标化直角坐标计算程序（DA HUAN ZHI）1、程序功能本程序可用于国家统一投影带的正算求解（由B、L换算为X、Y）平面坐标，可输出加上带号和500Km 常数的Y值。

2、数学模型x=X+（（（（H-58）H+61）M/30+（4E+5）Q-H）M/12+1）/NTM/2y=5×105（（（（H-18）H-（58H-14）E+5）M/20+Q-H）M/6+1）NW。

式中：X=RB-SC（32005.7801+V(133.9123+0.7032V)）;1编辑.欢迎下载支持.2S=SinB;C=CosB;V=Sin 2B;R=6367558.49686;B 为纬度。

T=tgB;h=T 2;E=67.385254×10-4；M=W 2；W=CosB;Q=l+E;N=6399698.90178/)(Q ;l=L+L 0。

3、实用计算程序程序名称：DA HUAN ZHI 程序清单：“B=＂？B ：“L=＂？L ：“A=＂？A ：“P=＂？P ：If P=3：Then （A ÷3）×10∧（6）+5×10∧（5）→D ：Else (A+3) ÷6×10∧（6）+5×10∧ （5）→D ：IfEnd ：π÷180→S ：6367558.49686→R ：tan(B) →编辑.欢迎下载支持.3T ：Cos(B) →C ：TT →H ：TC →U ：UU →v ：(L-A)CS →W ：WW →M ：0.0015CC →E ：（1+E ）→Q ：6399698.9018÷)(Q →N ：RBS-UC（32005.78006+V （133.92133+0.7031V ））→I:＂X=＂:I+((((H-58)H+61)M ÷30+（4E+5）Q-H)M ÷12+1）NTM ÷2◣“Y=＂：D+（（（（H-18）H-（58H-14）E+5）M ÷20+Q-H ）M ÷6+1）NW ◣ ＂OK ＂4、变量名称和存储器内容此程序是大地坐标化为直角坐标，即B 、L 坐标化为X 、Y 坐标。