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程序.
![[整理]fx5800P程序.](https://img.taocdn.com/s3/m/6ba517add5bbfd0a795673d7.png)
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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
)
紫金龙逸zijinlongyi0820@
正反算辛普森5800程序2010年4月22日修改（可回头）
仲项飞
1.主程序(ZXC)
2→DimZ(增加变量)Lbl 0：Z[9] →E:“1-ZS,2-FS” ?E：E→Z[9]↲
Lbl1: ”XL LC” ?Z:Prog“DA TE1”:
E≥2=＞Goto2 : 5.375(设计线路在线路中线右边为“-”，设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离，所有偏距以隧道中线起算;若算斜交，则改为0，则所有偏距以设计线路起算。
)
→N:“DZX”?W:“PJ”?S:W+N→W:Abs(Z-F)→Q:Prog“XZS”:W-N→W:J-S→J:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=”:Locate 3, 4, Y◢
"FWJ=”:J:J►DMS◢
Goto 3
Lbl 2:?X:?Y:Prog“XFS”: F+Q→Z:
-5.375→N:W-N→W:Cls:Locate 1, 1,”K=”: Locate 3, 2,Z: Locate 1, 3, ”W=”: Locate 3, 4, W◢
Goto 3
Lbl 3：Prog “SQX1”
DA TE1(数据库)
7704.149→A:5024.7762→B:264°42'42.62"→C:1÷10^(45)→D: 1÷10^(45)→R:122020.554→F:124140.538→G:
IfZ≤G:Then GotoA:IfEnd↲
7508.761→A:2913.8154→B:264°42'42.62"→C:1÷10^(45)→D: 1÷(-750)→R: 124140.538→F:124360.538→G:
IfZ≤G:Then GotoA:IfEnd↲………………(有几个线圆依次添加几个判断语句，顺序从小里程到大里程，次序不得颠倒)
Lbl A………………(有几条线路就添加几个数据库。
)
XZS(正算子程序)
（R-D）÷Abs（G-F）→P：PQ→I：
C+（I+2D）Q×90÷π→J:
C+（I÷4+2D）Q×45÷（2π）→M:C+（3I÷4+2D）Q×135÷（2π）→N:
C+（I÷2+2D）Q×45÷π→K:
A+Q÷12×（cosC+4(cosM+cosN)+2cosK+cosJ）→X
B+Q÷12×（sin C+4(sinM+sinN)+2sinK+sinJ）→Y
J+S→J
X+Wcos（J）→X
Y+Wsin（J）→Y
XFS(反算子程序)
90→S:X→U: Y→V: 0→W: C-90→L: (Y-B)cos L-(X-A)sin L→Q↲
Lbl1:Prog“XZS”:L+（I+2D）Q×90÷π→J:
(V-Y)cosJ-(U-X)sinJ→O:IfAbs(O)<10^(-6):ThenGoto2:Else Q+O→Q:Goto 1 :IfEnd↲
Lbl 2: 0→W: Prog "XZS" (V-Y)÷sinJ→W↲
SQX1(竖曲线计算子程序)
******************************************************
A---转坡点里程B---转坡点高程R---竖曲线半径
I---第一坡度J---第二坡度T---切线长
说明：转坡点要素从小里程到大里程依次输入，顺序不得颠倒。
******************************************************
?P:123600→A:1066.010→B:-40000→R:1.08÷100→I:-0.531÷100→J:0.5(J-I)R→T：If P≤A+T:Then Goto4:IfEnd↲
124570→A:1060.862→B:-42000→R:-0.531÷100→I:-2.4÷100→J:0.5(J-I)R→T：IfP≤A+T:ThenGoto4:IfEnd↲
Lb4: If P≤A-T: Then (P-A)I+B→D:Else If P≤A+T:Then B+((P-A)+0.5R(I+J))2÷2÷R-0.5RIJ→D: Else (P-A)J+B→D IfEnd:IfEnd↲
“SJGC=”:D◢
说明
A：线圆起点X坐标、B：线圆起点Y坐标、C：方位角
D:起点曲率半径、R:终点曲率半径、F:起点里程、G：终点里程
Z：待求点里程：S要求的角度：W偏距：
（1）当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(2) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(3) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(4) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
(5)、曲线曲率半径左（-）右（+）。