5800p盾构管片计算程序
Casio 5800P计算程序3
Casio fx- 5800P 道路中边桩计算（线元法）主程序QZFix 3:Deg:Lbl 4:″1.SZ=>XY″：″2.XY=>SZ″：″1，2″？Q：″S=″？S：Prog″Z1″↙Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEnd↙Lbl 1: ″B=″?Z: ″F=″?G:Prog ″Z2″: ″X=″:N→N◢″Y=″:E→E◢″QXFWJ″:F→F:F DMS◢Goto 4↙Lbl 2: ″XZB=″?→B: ″YZB=″?→C:B→N:C→E:Prog ″Z3″: ″LICHENG=″:S→S◢″OUT JL=″:Z→Z◢Goto 4↙数据库子程序Z1Lb l 1↙If S<5126.802:Then 34304.063→U:72029.684→V:5046.802→O:99°09′36″→A:80→L:220→P:10^(45) →R:Return:IfEnd↙If S<5239.113:Then 34281.903→U:72106.431→V:5126.802→O:109°34′38.5″→A:112.311→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5319.113:Then 34224.270→U:72212.249→V:5239.113→O:109°34′30″→A:80→L: 10^(45)→P:-200 →R:Return:IfEnd↙If S<5444.453:Then 34222.582→U:72289.106→V:5319.113→O:98°07′05.2″→A:125.34→L: -200→P:-200 →R:Return:IfEnd↙If S<5524.453:Then 34243.645→U:72410.593→V:5444.453→O:62°12′40.3″→A:80→L: -200→P: 10^(45) →R:Return:IfEnd↙If S<5644.634:Then 34289.939→U:72475.663→V:5524.453→O:50°45′04.7″→A:120.181→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5724.634:Then 34365.976→U:72568.732→V:5644.634→O:50°45′05.2″→A:80→L: 10^(45)→P:200 →R:Return:IfEnd↙正算子程序Z205(1/r-1/p)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+G)→N:E+Zsin(F+G)→E↙Return反算子程序 Z3Lbl 1:0→Z:1→Q:Prog”Z1”:0.5(1/R-1/P)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙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↙If Abs(W)>0.0001:Then Goto 1:IfEnd↙Lbl 2:0→Z: ″Z2″:(C-E)/sin(F+90)→Z↙Retun注：1：数据库里面的角度为线元起算方位角；2：L，P为线元起始半径，直线以及缓和段取10^45,左负右正；3：主程序1为正算，2为反算，S所需算的桩号，B边桩距离，F边桩起算夹角，左负右正；“SQXJS”↙“KBPO=”?J:”BG=”?B:”I1=”?C:”I2=”?D:”R=”?R↙“QIEXIAN=”:R*Abs(D-C)/2→T◢“QIDIAN=”:J-T→X◢“ZHONGDIAN=”:J+T→Y◢If D-C>0:Then 1→V:Else -1→V:IfEnd↙LBl 0↙“JSK=”?L↙If L≤X:Then B-(T-(L-X))*C+V*(L-X)^2/(2R)→W:Else B+(T-(Y-L))*C+V*(Y-L)^2/(2R) →W:IfEnd↙“JSGC=”:W◢Goto 0↙Return“J表示变坡点桩号，B为变坡点高程，C前纵坡坡度，D后纵坡坡度，R为竖曲线半径，T切线长，X起点桩号，Y终点桩号，V计算参数（凹形取1，凸形取-1），L 需要计算的桩号，W计算点高程“ZBFS”↙Deg:ClsStat:FreqOn:Fix 3↙Lbl 0↙“XA(m)=”?A: “YA(m)=”?B↙“XB(m)=”?C: “YB(m)=”?D↙Pol(C-A,D-B):Cls↙If J<0:Then J+360→R:Else J→R:IfEnd↙“DIST A→B(m)=”:I◢“BEAR A→B(DMS)=”:R DMS ◢ClrStat:FreqOn↙Lbl 1↙0→M↙“ANGEL(Deg)=”?→Q↙“DIST(m)=”?→S↙Q+R→M↙A+S*cos(M)→X↙B+S*sin(M)→Y↙“XC(m)=”:X◢“YC(m)=”:Y◢0→N↙“ANGEL2(Deg)=”?→P↙“DIST2(m)=”?→T↙P+R→N↙A+T*cos(N)→U↙B+T*sin(N)→Z↙“XD(m)=”:U◢“YD(m)=”:Z◢“FAN=”?W↙If W=0:Then Goto 0:Else Goto 1:IfEnd↙Return。
工程测量中fx-5800P计算器基本程序
工程测量中fx-5800P计算器基本程序的编写及实际放线的应用刘兵策刘杰摘要在日常工程测量工作中，计算器是必不可少的工具。
目前行业内用fx-5800P。
本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写，并对其比较复杂的实际放线的灵活应用进行解析，为类似的测量工作提供借鉴。
关键词工程测量fx-5800P程序应用1 引言控制测量是施工的基础，为了便于施工，放线一般使用施工坐标系，坐标轴平行于建筑物主轴线。
对于建筑物主轴线与坐标轴不平行的，为了方便放线，一般不再改变坐标系，用计算器程序进行计算，迅速判断需要定位的点。
利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值，指挥棱镜进行移动，找到准确的设计位置。
测量工作中主要用到坐标正反算，大地转施工，施工转大地等常用程序，下面介绍这几个程序的原理和编写，总结一些在实际工作中的应用。
2 Fx-5800计算器程序的原理与编写2.1 大地坐标转换为施工坐标大地坐标转换为施工坐标见图1。
Xp、Yp分别是P点在XOY坐标系中的纵横坐标，xp，yp分别是xo’y坐标系中的纵横坐标值，Xo，Yo分别是xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐标值，Δα为两坐标系坐标纵轴的夹角。
将P点从XOY坐标系转换到xo’y坐标系中，即大地转施工的公式如下：图1 大地坐标与施工坐标转换图xp=（Yp-Yo）sinΔα+（Xp-Xo）cosΔα；yp=（Yp-Yo）cosΔα-（Xp-Xo）sinΔα；用fx-5800P编制程序时，只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标，即在坐标系XOY坐标系中的坐标，再用上述公式带入，输出P点的施工坐标。
基本程序如下：“X1=”?A:”Y1=”?B: (输入xoy的原点的大地坐标）“X2=”?U:”Y2=”?V: (输入要转换的P点的大地坐标）“F=”:F (输入方位角）“X=”:（V-B)sinF+（U-A）cosF->X (输出P点的施工坐标X值）“Y=”:（V-B)cosF-（U-A）sinF->Y (输出P点的施工坐标Y值）输出坐标时，可以用计算器中的一个极坐标的逆运算代替，即去掉最后两行，换成Pol（U-A,V-B):J<0=>J+360->J“W=”:J-F->WRec（I，W）这种方法计算器的运算效率比较高，编程也比较简便。
自编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)等曲线要素赋予定值，可减少在工作中的输入量。
CASIO5800程序编辑说明
CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。
CASIO5800P 程序
CASIO5800P1：程序名：QXJS CO“L=”？L:“LI CHENG=”?W↓提示输入里程桩号LbI A↓For 1→N To 20↓输入交点编号为1至20L=1=＞Prog“1XY”←当输入L=1时，启用数据库“1XY”。
If W>Rep(Z)AndW<Imp(Z):Then Prog“MP”:Goto 0: IfEnd:Next↓“--LI CHENG---？”:Stop↓当输入里程Z大于或小于所启用的数据库的里程范围时停止计算LbI 0↓If K<0:Then Q→X:0→Q:0→J:S+C→I:AbS(K) →K:Goto 3 :IfEnd↓Goto 2↓LbI 1↓Q<0=＞360+Q→Q↓“LI CHENG=”?W↓If W>Rep(Z) AndW<Imp(Z):Then Goto 2:EIse“>>>>”:Goto A :IfEnd↓LbI 2↓0→J↓μ0+Abs(W-Abs(K))→I↓W:K<0=＞-W↓If Ans<K:Then 0→U:-I:Goto 4:IfEnd↓I>S+C=＞S+C→I↓LbI 3↓If I<S:Then I2r÷(2RS) →U:I-I∧(5) ÷(40R2S2)+i(I∧(3)÷(6RS)-I∧(7) ÷(336R∧(3)S∧(3)) :EIse (2I-S) r ÷(2R) →U:Z[2]+R(Sin(U)-icos(U)+i):IfEnd↓LbI 4↓J+Anscos(Q)+AnsiSin(Q) →J↓If I=S+C:Then Q+A→Q: -K-I-T→K:T→I:S→T:I→S:-R→R:Prog“MP”:Goto 3:IIfEnd↓If Q+A=0:Then X-A-180→Q:K+Rep(J)+Imp(J) ÷tan(A) →K:O+Imp(J)(cos(Q)+i sin(Q)) ÷sin(A)→O:Goto 2:IfEnd↓If I=S:Then Q-180→Q:O+J→O:Goto 2:IfEnd↓K <0=＞U-180→U↓Q+U→U↓“BIAN JU=”?E↓Rep(O)+Rep(J)-Esin(U) →X:Imp(O)+Imp(J)+Ecos(U) →Y↓CIs:Fix3:Locate1,1, “X=”: Locate7,2,X: Locate 1,3, “Y=”: Locate 7,4,Y▲If E=x10-6:Then Prog “BYXY”:Goto1:IfEnd↓Goto 1↓Prog“ZBFS”:Goto1↓备注：程序中“↓”为回车键，“-”CASIO计算器的（-）键，“i”虚数i。
卡西欧计算器5800隧道正反算、隧道超欠挖计算程序
隧道程序卡西欧计算器5800隧道正反算、隧道超欠挖计算程序在隧道中的应用，速度有点慢概述：本图采用蓝星2.3版本程序隧道断面程序由三个子程序构成1.1-SDZS 隧道正算，具有三维坐标功能。
2.1-SDFS 隧道反算。
3.1-CQW 隧道超欠挖检测程序。
其余均为子程序，本程序还有许多需要改进的地方，欢迎大家提供宝贵的意见。
有兴趣的可以把三个程序汇总。
本程序为三维坐标全能程序，正在调试阶段，期待和大家一起提高，一起进步。
隧道超欠挖计算程序1.正算主程序1-SDZSLb1 0：“KP”?S（待求桩号）：“BIANZHU”?Z（边距）：Prog “PM-SJ”：Abs(S-O) →W：Prog "SUB1"：X：Y: F-90→F:S→K:Prog“SQX”：“XS=”（X正算坐标）:Locate6,4,X: “YS=”(Y正算坐标):Locate6,4, Y: “BC=”(方位角):Locate6,4, F°:“H=”（高程）:Locate6,4, H◢Goto 02.反算主程序1-SDFSLb1 0: “KP”?S：“CZX”?X：CZY”？Y（测站坐标）：Prog “PM-SJ”：X→I：Y→J：Prog "SUB2"：O+W→S："S="：Locate6,4,S: "Z="：Locate6,4,Z: S→K:Prog“SQX”：F-90→F: “BC=”:Locate6,4, F°: “H=”：H◢3.隧道3心圆检测程序1-CQW程序说明：为了精简，不含数据库，直接把断面的相关数据插入程序内，一些相关的数据，请仔细去推敲它的来历1. 0.729为设计高程到仰拱临界面的高差2. 10.6为设计标高到O3的高差3. 12为O3的半径4. 0.131为设计高程到O2临界点的高差5. 3.498为O2临界宽度6．0.59为设计高程到O2的高差7. 1.8为设计高程到O1的高差8. 1.4为O2半径9. 5.1为O1半径Fix3:Lb1 1：Prog“SDFS”:“HC”?F：“Z”? Z:If F＜H-0.729:Then √(Z2+(10.6+H-F)2 )-12→W:Eles If F≥H-0.729 AND F ≤H+0.131:Then Abs(Z)-3.498→Z:√((Z2+(H+0.59-F)2-1.4→W :Eles √((F-H-1.8)2+Z2)-5.1→W: IfEnd: IfEnd“CQHD”?（衬砌厚度）A:W=”: W-A→W◢Goto14.正算子程序(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))+B sin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y5.反算子程序(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→Z6.子程序（平面线形数据库）PM-SJIf S ≥98509.97（线元起点里程）Then 2963.804→U（线元起点X坐标）：2770.297→V（线元起点Y坐标）：98509.97→O（线元起点里程）：200°13′51.45″→G（线元起点方位角）：35 →H （线元长度）：10^(45)→P（线元起点曲率半径）：164.4→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEndIf S ≥98544.97（线元起点里程）Then2931.426→U（线元起点X坐标）：2757.04→V（线元起点Y坐标）：98544.97→O（线元起点里程）：206°19′57.88″→G（线元起点方位角）：27.891 →H（线元长度）：164.4→P（线元起点曲率半径）：164.4→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEndIf S ≥98572.86（线元起点里程）Then2907.597→U（线元起点X坐标）：2742.613→V（线元起点Y坐标）：98572.86→O（线元起点里程）：216°3′10.13″→G（线元起点方位角）：35 →H（线元长度）：164.4→P（线元起点曲率半径）：10^(45)→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）SQX101.43→Z[1](变坡点高程):98792→B(变坡点桩号):720→R(半径):43.092→T(切线长):-.0512→J（后纵坡）:0.0676→I（前纵坡）: K:B-K→C : 1→U:I>J＝＞-1→UIf 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+AU(T-Abs (C))2÷2÷R→H: Return平曲线要素表角度采用十进制小数模式，请采用普通模式版图观看才能正常显示。
5800计算器隧道测量程序
5800计算器隧道测量程序Y（正算主程序）（P－R）÷（2HPR）→Z：N=1=﹥Goto 1：If N=2：Then Goto 2↙Lbl 1：〝DKI？S：〝ZD=0〞？D：D→D：Abs（S-O）→W：Prog〝B1〞：〝X=〞：X◢〝Y=〞：Y◢F-90→F：〝XC〞？C：〝YC〞？E：0→I：0→J：Pol（X-C，Y-E）：J ≤0=﹥J+360→J：〝FWJ=〞：J DMS◢〝L=〞：I◢D→D：Goto 1↙Lbl 2：〝X〞？I：〝Y〞？J：I→X：J→Y：Prog 〝B2〞：O+W→S：〝DKI=〞：S◢D→D：〝D=〞：D◢Prog 〝YY〞◢Lbl 2B1（正算子程序）0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W（Acos （G+（180÷π）QKW（1÷P+KWZ））+Bcos （G+（180÷π）QLW（1÷P+LWZ））Bcos （G+（180÷π）QFW（1÷P+FWZ））+Acos （G+（180÷π）QMW（1÷P+MWZ）））→X: V+W（Asin （G+（180÷π）QKW（1÷P+KWZ））+Bsin （G+（180÷π）QLW（1÷P+LWZ））Bsin （G+（180÷π）QFW（1÷P+FWZ））+Asin （G+（180÷π）QMW（1÷P+MWZ）））→Y: G+（180÷π）QW（1÷P+WZ）+90→F:X+Dcos （F→X: X+Dsin （F→YB2（反算子程序）G-90→T:Abs（（Y-V）cos（T）-（X-U）sin（T））→W:0→D:Lbl 0:Prog 〝B1〞:T+（180÷π）QW（1÷P+WZ）→L:（J-Y）cos（L）-（I-X）sin（L）→D:If Abs（D）＜0.000001:Then Goto 1:lfEnd:W+D→W:Goto 0↙Lbl 1:0→D:Prog〝B1〞:（J-Y）÷sin（F）→DYY（高程程序）〝QS〞？Q:Prog〝ZT1〞:A-T→B:A+T→C;Abs（S-A）→Z↙If S≤B:Then -1→U:1→G;K→F;0→P:Goto 1↙lfEnd:lf S≥C:Then 1→U:1→G:L→F:0→P:Goto 1↙lfEnd:0→G:0→F:0→U:1→P: ↙Lbl 1: 〝H〞:G（E+UZF）+P（（E-KT）+K（S-B）+（S-B）（S-B）÷（2R）→H◢〝+Q,-C〞: （隧道半径）-√（（Q-H-设计高程到圆心距离)）2+D2）ZF-Y（计算程序）〝1 =﹥XY,2 =﹥KB〞？N:Lbl 4〝DKI〞？S:If S＜终点桩号：Then 起点桩号→O; 起点X→U：起点Y→V：起点方位角→G：曲线长→H：起点半径→P:终点半径→R：转向→Q:Prog〝Y〞:Goto 4:lfEnd↙说明：直线半径为10^（45），转向为0ZT1（高程数据库）lf S≤终点桩号：Then 交点高程→E:起点桩号→A: 半径→R：T→T：前坡→K:后坡→L：Goto 1:Else ↙有多少曲线都输完后输Lbl 1。
5800P计算器程序
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）1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂H=＂:Lcoate 6,4,H-Z[9]：＂I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂LGD=＂:Lcoate 6,4,P：＂RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→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→P :Prog＂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=＂:Lcoate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: 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[10]: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＂JS＂: 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”:Prog”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:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ”LX=”: Locate 6,4,L:Prog”ZD”:“H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：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. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→D:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(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.缓和曲线段直角坐标计算子程序(ＡB)程序名：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)÷34560÷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)÷599040÷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)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “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:ILbI 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:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:”FWJ=”: Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
卡西欧5800计算程序自己编写实用计算程序
1．单圆曲线(YQX1)（张队提供）“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，线路左转输入+1，线路右转输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=” Z[1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）2.YQX-ZB(圆曲线中边桩放样)“R”?R:（圆曲线半径）“P”?P：(线路转角)“F”?F:（起始方位角）“G”?G:（线路转向信息，左转为-1，右转为+1）“ZY-X”?M:?N:(ZY点坐标)“L=”πRP÷180→A◢(曲线弧长)F+90G→F(ZY点的径向方位角)“O-X”:M+Rcos (F) →A◢（圆心X坐标）“O-Y”:N+Rsin (F)→B◢（圆心Y坐标）“ZY-ZH”:?Z(ZY点桩号)Lb1 0:“JM-ZH”:?K: (加密点桩号)K-Z→V: (加密点曲线弧长)180V÷(πR) →U: (加密点曲线弧长所对应的圆心角)F+180+GU→U: (圆心至加密点的方位角)“XP=”:A+Rcos(U) →S◢(加密点中桩X坐标)“YP=”:B+Rsin(U) →T◢(加密点中桩Y坐标)“BZ”:?W: (边桩宽度)“XL=”:S+GWcos(U)◢(左边桩X坐标)“YL=”:T+GWsin(U)◢(左边桩Y坐标)“XR=”:S-GWcos(U)◢(右边桩X坐标)“YR=”:T-GWsin(U)◢(右边桩Y坐标)Goto 0：3．(ZX-ZB) 直线段中边桩放样“QD-X,Y”:?A:?B: (起点坐标（A,B）)“QD-ZH”:?Z: (起算点桩号)“ZD-X,Y”:?C:?D: (终点坐标（C,D）)Pol(C-A,D-B):J<0=>J+360→J: (线路方位角) LbI 0：“ZD-ZH”:?K: (加密点桩号)K-Z→V: (加密点到起算点极径)“XP=”:A+Rec(K,F) →M◢(加密点中桩X坐标)“YP=”:B+J →N◢(加密点中桩Y坐标) “BZ”:?W: (边桩宽度)F-90→U(中桩到边桩向量的方位角)“XL=”:M+Rec(W,U)◢(左边桩X坐标)“YL=”:N+J◢(左边桩Y坐标)“XR=”:M-I◢(右边桩X坐标)“YR=”:N-J◢(右边桩Y坐标)Goto 0：。
卡西欧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。
5800万能程序(最新)
1/P->C:(P-R)/(2HPR)->D:180/∏->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+QEFW(C+FWD))+Acos(G+EMW (C+MWD)))>X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEF W(C+MWD)))->Y:G+QEW(C+WD)+90->F:X+Zcos(F)->X:Y+Zsin(F)->Y ↙ 子程序(SUB2-FS) G-90->T:Abs((Y-V)cos(T)-(X-U)sin(T))->W:0(零）-Z:LbI 0(零):Prog"SUB1-ZS":T+QEW(C+WD)->L:(J-Y)cos(L)-(IX)sin(L)->Z:If Abs(Z)<0.000001：Then Goto 1:E1se W+Z>W:Goto 0(零）:IfEnd↙ LbI 1:0(零）->Z:Prog"SUB1-ZS":(J-Y)/sin(F)-Z↙ 子程序(SUB3-GC) O-S→L ： A-B→W : Abs（R*W/2）→T : O-T→M : O+T→P ↙ If S≤M : Then G-L*B →H : Goto 5 : Else If S≤O : Then Goto3 : Else If S≤P : Then Goto4 : IfEnd : IfEnd : IfEnd ↙ Lb1 3↙ If W>0 : Then G+(M-S)^ (2)/2/R-L*B→H : Goto 5 : Else If W<0 : Then G-(M-S) ^(2)/2/R-L*B→H : Goto 5 : IfEnd : IfEnd↙ Lb1 4↙
5800全线贯穿坐标计算程序(简单)
CASIO5800p全线贯通坐标计算简单程序1. 正算主程序(ZHCX) （不运行）“L(-Z,+Y)=”?L:“YJJ=”?W(P-R)÷(2(H-O)PR)→DAbs(K-O)→J4→DimZ0.1184634425→A: 0.2393143352→B: 0.2844444444→Z[4]: 0.0469100770→C:0.2307653449→E:0.5→Z[1 ]I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD)×180÷π)+Z[4]cos(G+QZ[ 1]J(1÷P+Z[1]JD)×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Acos(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π))→X:S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD)×180÷π)+Z[4]sin(G+QZ[ 1]J(1÷P+Z[1]JD)×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD)×180÷π)+Asin(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π))→Y：F=G+QJ(1÷P+JD) ×180÷π：X+Lcos(F+W)→X：Y+Lsin(F+W)→Y”X=”:X→X◢”Y=”:Y→Y◢”QX FWJ=”:F◢Prog “FY”2 . 参数子程序（直接运行）M(主线) 一条线路一个名称“DKI=”?KIf K≦线元终点：Then 线元起点X值→I: 线元起点Y值→S:线元起点切线方位角→G:线元起点桩号→O:线元终点桩号→H：线元起点半径→P：线元终点半径→R：（-1，0，1）→Q:Goto 1:IfEnd………If K≦线元终点：Then 线元起点X值→I: 线元起点Y值→S:线元起点切线方位角→G:线元起点桩号→O:线元终点桩号→H：线元起点半径→P：线元终点半径→R：（-1，0，1）→Q:Goto 1:IfEndLbi 1Prog “ZHCX”3. 放样程序（FY）（不运行）“X0=”?M:“Y0=”？NPol(X-M，Y-N)If J≦0:Then J+360→J:IfEnd“FWJ=”:J▲DMS◢“JU-LI=”:I◢说明：一、程序功能及原理1.功能说明：本程序由一个主程序和两个子程——正算主程序(ZH)、参数子程序（M）、放样程序（FY），可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该线元段范围内任意里程中边桩坐标进行正算。
FX-5800P线路计算程序
FX-5800P线路计算程序F[NPT]（主程序）Lbl Q（选择单点或多点计算模式）4→DimZ“SELECT MODE”“F0:ONE POINT”“F1:N POINT”?→Z[4]If Z[4]=0:Then Goto B: Else If Z[4]=1:Then Goto A: Else Cls :Goto Q:IfEnd: IfEndLbl A（批量计算直角坐标和极坐标元素入口）Norm 1:Deg:FreqON:ClrStat:0→N:ClsProg"STATION":IF Z[3]=-1:Then Cls:Stop:IfEndClsZ[1]→E“[KS]+Ke]i=”?E:E→Z[1]:Cls“STEP=”?→Z[2]:Cls“Zp=”?Z90→C:Cls:”ANG=”?CLbl 1（循环生成桩号序列）ReP(E)→List Freq[1]ReP(E)+（Z[2]-10(Frac(0.1ReP(E)))→List Freq[2]For 3→M To (Int(((ImP(E)-ReP(E))÷Z[2])+2-1)List Freq[M-1]+Z[2]→List Freq[M]NextLbl 2（循环计算坐标）ImP(E)→List Freq[M+1]For 1→M To (Int((ImP(E)- ReP(E))÷Z[2])+2)List Freq[M]→SProg"DATP[MC]"Prog"TURN[YS]"Prog"ZS"Fix3X→ListX[M]Y→ListY[M]Cls:Norm 1Locate 2,2,”COMPUTER…”Locate 13,2, Intg(((ImP(E)- ReP(E))÷Z[2])+2-M)Fix 3NextLbl 3（提取结果并显示）Cls:”PRESS[MODE][4]=>AnsF[XYK]Or[EXE] =>SET OUT”◄For 1→M To Int((ImP(E)- ReP(E))÷Z[2])+2List X[M]→XList Y[M]→YList Freq[M]→SProg"POL"Prog"DISP.KZ"◄Prog"DISP.XY"◄NextGoto ALbl B（单点计算模式入口）Norm 1:Deg:0→N(置零）Prog"STATION"Cls:90→C:”ANG=”?CLbl 4（单点计算模式）Cls:”Kp=”?SIF S=-1:Then Cls:Stop:IfEndCls:”Zp=”?ZProg"DATP[MC]"Prog"TURN[YS]"Prog"ZS"Prog"POL":Prog"DISP.XY"◄Goto 4STATION（测站输入子程序）ClsZ [2N+3]→E"St[X]+St[Y]i"?EE→Z[2N+3]ReturnDATP[MC]（平面数据库子程序）If S≤K ei:Then [ [ K si,X Si , Y Si , T Si , R Si ,R ei,K ei,Q i] ]→Mat A :Return:IfEndIf S≤K e i+1:Then [ [ K si+1,X si+1 , Y si+1 , T si+1, R si+1 ,R ei+1,K ei+1,Q i+1] ]→Mat A:Return:IfEnd .............TURN[YS]（将存在矩阵中的线元数据赋给正算标准变量）Mat A[1,1]→OMat A[1,2]→UMat A[1,3]→VMat A[1,4]→GMat A[1,5]→PMat A[1,6]→RMat A[1,7]→HMat A[1,8]→QReturnZS（线路正算预备子程序）Abs(S-O)→W(P-R)÷(2PR(H-O))→DProg"G[ZS]"ReturnG[ZS]（高斯-勒戎德4节点近似积分计算线元坐标子程序）Lbl 00.1739274226→A: 0.32607257774→B0.0694318442→K: 0.3300094782→LLbl 1U+W(ACos(G+180QKW(1÷P+KWD)÷π)+BCos(G+180QLW(1÷P+LWD)÷π)+BCos(G+180(1-L)QW(1÷P+(1-L)WD)÷ π)+ACos(G+180(1-K)QW(1÷P+(1-K)WD)÷π))→X V+W(ASin(G+180QKW(1÷P+KWD)÷π)+BSin(G+180QLW(1÷P+LWD)÷π)+BSin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+ASin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))→Y G+180QW(1÷P+WD)÷π+C→FX+Z Cos(F)→XY+Z Sin(F)→Y360Frac((360+F-C)÷360)→TReturnPOL（极坐标计算子程序）Pol(X-ReP( Z [2N+3 ]),Y-ImP(Z [2N+3 ])+10^(-5))J<0=>J+360→JReturnDISP.K Z（桩号及偏距显示子程序）Fix 3:Cls"K p=":Locate 5,2,SLocate 1,3," Z p="Locate 5,4,ZReturnDISP.XY（极坐标要素及直角坐标显示子程序）Fix 3:Cls"HR=":Locate 5,1,J0"HD=":Locate 5,2,I"X p=":Locate 5,3,X"Y p=":Locate 5,4,YReturn关于程序的几点说明1.写此程序的初衷是应网友“K0+000"之邀，提供一份基本程序供初学者参考之用。
卡西欧5800隧道放样程序
5800P隧道施工放样程序第一种放样程序FY—01隧道情况：我队四个中小隧道全部位于直线段内，只有一个隧道处于竖曲线变坡点位置。
各个隧道围岩衬砌类型，洞门明洞设计不一,这里只放置了暗洞内的内容.由于实际施工中里程位置及尺寸大小都经常自行变位,所以现场放样中要随时注意变动.FY-5800P 主程序＂X0=＂？X：实测坐标X值＂Y0=＂？Y：实测坐标Y值＂Z0=＂？C: 实测高程Z值Prog＂Z LS＂：转入直线里程反算子程序Prog＂SQX＂: 转入竖曲线子程序xx→B:xx→Q：B是拱部初衬变数,Q是仰拱初衬变数；使用前根据放样或检查尺寸来定If L>45090 And L≤45125：Then Prog＂5b＂:IfEnd:If L>45125 And L≤45135:Then Prog＂4a＂:IfEnd:If L>45135 And L≤45330：Then Prog＂3a＂:Stop：IfEnd：If L〉45330 And L≤45345：Then Prog＂4a＂：IfEnd:If L>45345 And L≤45383：Then Prog＂5b＂：IfEnd：If L>45510 And L≤45540：Then Prog＂5b＂：IfEnd:If L〉45540 And L≤45550：Then Prog＂4a＂：IfEnd：If L〉45550 And L≤45650:Then Prog＂3a＂:Stop：IfEnd：If L〉45650 And L≤45660:Then Prog＂4a＂:IfEnd:If L>45660 And L≤45680:Then Prog＂5b＂：IfEnd：If L>46085 And L≤46100:Then Prog＂5c＂:IfEnd:If L〉46100 And L≤46110:Then Prog＂4c＂：IfEnd：If L>46110 And L≤46275：Then Prog＂3a＂:Stop：IfEnd：If L>46275 And L≤46285:Then Prog＂4b＂：IfEnd：If L〉46285 And L≤46310：Then Prog＂5b＂：IfEnd：Prog＂45DMJS＂：转入断面放样计算子程序Stop。
卡西欧5800P计算器-道路中桩及边桩计算程序
卡西欧 5800P 计算器-道路中桩及边桩计算程序 Lbl 4:“1：KD￫ XY,2：XY￫ KD” ？N:?K If k<270.348:(第一段的终点桩号）Then0（0 是零，起点桩号） ￫ O（字母符）:355933.039(起点 x 坐标）￫ U:467305.867(起点 y 坐标）￫ V:0°15′46″（第一段 的方位角）￫ G:270.348(第一段的 距离） ￫ H:10^（45） （直线） ￫ P:3000(曲线半径）￫ R:0（数字） ￫ Q:Goto 0（数字）:Ifend If k<759.748：(第二段的终点桩 号）Then270.348(第一段的终点桩 号）￫O(字母） ：3559603.384(第一 ￫U:467307.108 段终点 x 坐标） （第 一段终点 y 坐标）￫V:0°15′46″ （ 第 二 段 起 点 方 位 角 ） ￫ G:489.4(第二段距离）￫H:3000(第 ￫P:3000(第二段曲线半径） ￫Q:Goto 二段曲线半径） ￫ R:1(右转） 0IfEen
￫Q:Goto 0(数字） ：IfEnd Lbl 0(数字） ：1÷P￫C:(P-R)÷(2HPR)￫D:180÷π￫E N=1Goto 1：Goto 2 Lbl 1:?Z:K￫S:Abs(S-O)￫W:Prog“SUB1”:“X=”:X◢（s-o,o 是字母 符） “Y=”:Y◢ “FWJ=”:F-90￫F◢ Goto4 Lbl 2:?X:?Y:X￫I:Y￫J:Prog“SUB2”:O+：线性是直线或圆曲线，缓和曲线不能用此程序。 “SUB1，SUB2” 是两个子程序。 “SUB1” 0.1739274226￫ A:0.3260725774￫ B:0.0694318442￫ P:0.3300094782￫ L:1-L￫ F:1-P￫ M:U+W(ACos （G+QEPW(C+PWD))+BCos(G+QELW(C+LWD))+BCos(G+QEFW(C+FWD))+AC os(G+QEMW(C+MWD)))￫ X:V+W(ASin(G+QEPW(C+PWD))+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 “SUB2”程序
5800正反算、隧道超欠挖程序
三心圆隧道超欠挖,不足之处望高手指点二、CASIOfx-5800P计算器编程方法：SDCQWLbI 0←┘Fix9:31→DimZ:“R1”?→Z[1]:“R2”?→Z[2]:“DO2”?→Z[3]:“HO1”?→Z[4]:“HO2”?→Z[5]:“B”?→Z[6]:“H”? →Z[7]:“XA”?→Z[8]:“YA”?→Z[9]:“T”? →Z[10] ←┘LbI 1←┘“X”? →Z[11]:“Y”?→Z[12]:“Z”?→Z[13]:( Z[1]- Z[4]+ Z[7]-( Z[1]- Z[1]хcos(Z[6]))) →Z[14] ←┘LbI 2←┘If Z[13]≥Z[14]:Then√((Z[11]-Z[8])2+(Z[12]-Z[9])2)→Z[15]:Z[13]-(Z [7]-Z[4]) →Z[16]:√(Z[15]2-Z[16]2)→Z[17]:Z[17]-Z[1]→Z[18]:“CQ=”: Z[18]▲Goto 1:Else:Goto 3:IfEnd ←┘LbI 3←┘If Z[13]< Z[14]:Then Z[8]+Z[3]хcos(Z[10]-90)→Z[19]:Z[9]+Z[3]хsin(Z [10]-90)→Z[20]: Z[8]+Z[3]хcos(Z[10]+90)→Z[21]:Z[9]+Z[3]хsin(Z[10] +90)→Z[22]:“L”? →Z[23]:If Z[23]= 1:Then √((Z[11]-Z[19])2+(Z[12]-Z[20])2)→Z[24]:Z[13]-(Z[7]+Z[5])→Z[25]:√(Z[24]2+Z[25]2)→Z[26]:Z[26]-Z[2]→Z[27]: “CQ=”:Z[27]▲Else √((Z[11]-Z[21])2+(Z[12]-Z[22])2)→Z[28]:Z[13]-(Z[7]+Z[5])→Z[2 9]:√(Z[28]2+Z[29]2)→Z[30]:Z[30]-Z[2]→Z[31]: “CQ=”:Z[31]▲IfEnd←┘Goto 1←┘三、程序说明本程序按本标段实际情况编制,适用于三心圆隧道,由于第三半径包含范围小及所处水沟范围内,未编入程序内,该程序配合全站仪使用,隧道断面测量时,将全站仪置在该断面里程点中线上,测出断面上任一点三维坐标,数据输入计算R1→半径1R2→半径2DO2→隧道中线至圆心O2的横向距离HO1→隧道设计标高点至圆心O1的竖向距离HO2→隧道设计标高点至圆心O2的竖向距离B→半径R1与隧道中线的夹角H→里程点隧道设计高程XA→里程点隧道中线X坐标YA→里程点隧道中线Y坐标T→里程点切线方位角X→里程点隧道断面上任一点X坐标Y→里程点隧道断面上任一点Y坐标Z→里程点隧道断面上任一点Z坐标四、使用方法1、执行程序SDCQW，按FILE键调出“SDCQW”文件，按EXE键屏幕显示“R1？”，依次输入基本数据：R2：（若测开挖断面半径需加上二衬厚度、预留沉降量及初支厚度）DO2: 隧道中线至圆心O2的横向距离HO1: 隧道设计标高点至圆心O1的竖向距离HO2: 隧道设计标高点至圆心O2的竖向距离B: 半径R1与隧道中线的夹角H: 待测断面里程点隧道设计高程XA: 待测断面里程点隧道中线纵坐标YA: 待测断面里程点隧道中线横坐标T：待测断面里程点线路中线切线方位角2 输入全站仪采集数据X：待测断面上任一点纵坐标Y：待测断面上任一点横坐标Z：待测断面上任一点高程3 计算超欠数据程序运行，依据输入高程Z自动判断该点在哪一半径范围内，在第一半径范围内，直接算出超欠数据“CQ＝”(“—“欠，“+”超)，若测点在第二半径范围内，会出现“L？”（测点在隧道中线左侧？右侧？），在隧道中线左侧直接输入1,在右侧输入其它任何数字，计算超欠挖数据“CQ＝”五、算例R1→9.1R2→5.55半径2DO2→1.818HO1→1.495HO2→1.554B→30°48′36″H→366.002XA→4477933.954YA→504250.721T→101°06′39.18″全站仪采集数据1(第一半径范围内)X→4477935.751Y→504251.073Z→373.372全站仪采集数据2（隧道中线左测）X→4477941.020Y→504252.108Z→368.920全站仪采集数据2（隧道中线右测）X→4477926.800Y→504249.316Z→368.385键操作屏幕显示操作说明[FILE] Prog List 调出SDCQW文件[EXE] R1？输入半径19.1 9.1[EXE] R2？输入半径25.55 5.55[EXE] DO2? 输入隧道中线至圆心O2的横向距离1.818 1.818[EXE] HO12? 输入隧道设计标高点至圆心O1的竖向距离1.495 1.495[EXE] HO2？输入隧道设计标高点至圆心O2的竖向距离1.554 1.554[EXE] B? 输入半径R1与隧道中线的夹角30°48′36″30°48′36″[EXE] H？输入里程点隧道设计高程366.002 366.002[EXE] XA0？输入里程点隧道中线X坐标4477933.954 4477933.954[EXE] YA？输入里程点隧道中线Y坐标504250.721 504250.721[EXE] T？输入里程点切线方位角101°6′39.18″101°6′39.18[EXE] X? 输入测得里程点隧道断面X坐标4477935.751 4477935.751[EXE] Y? 输入测得里程点隧道断面Y坐标504251.073 504251.073[EXE] Z? 输入测得里程点隧道断面Z坐标373.372 373.372[EXE] CQ=-0.047854508 输出超欠数据结果[EXE] X? 输入测得里程点隧道断面X坐标4477941.020 *******.020[EXE] Y? 输入测得里程点隧道断面Y坐标504252.108 504252.108[EXE] Z? 输入测得里程点隧道断面Z坐标368.920 368.920[EXE] L?程序自动判断测点在第二半径范围内，测点在隧道中线左侧？右侧？），在隧道中线左侧直接输入1,在右侧输入其它任何数字1 1[EXE] CQ=0.002970720 输出超欠数据结果[EXE] X? 输入测得里程点隧道断面X坐标4477926.800 4477926.800[EXE] Y? 输入测得里程点隧道断面Y坐标504249.316 504249.316[EXE] Z? 输入测得里程点隧道断面Z坐标368.385 368.385[EXE] L? 判断点位，隧道中线右侧0 0[EXE] CQ=-0.014906344 输出超欠数据结果。
卡西欧5800P计算器程序
卡西欧5800P计算器TYQXJSI坐标正反算(经过修改)1.主程序(TYQXJSI)10→DimZ:"1.SZ → XY"："2.XY → SZ"：？N："XO"? U："YO"? V："SO"? O："FO"? G："LS"? H："RO"? P："RN"? R：? Q: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：If N=1: Then Goto 1: Else Goto 2: IfEndLbl 1："DK? +?"? S：?Z: Abs(S-O)→W：If W>H or S<O: Then Stop: IfEnd : Prog "SUB1": "XS=”:X◢"YS=”: Y◢"FS=”:(F-90) →F：F DMS◢Goto 1Lbl 2:? X:? Y: "H"?A:X→I:Y→J:Prog "SUB2"：If W>H or S<O: Then Stop: IfEnd :"DK?+?=”:O+W→S◢"Z”:Z◢Prog”NGDM”:Prog”OPRP1”:Goto 2IF N=2: Then If S<157188: Then Prog”OPRP1-100”:Else If S>157297: Then Prog”OPRP2-0”: ElseProg”OPRP1-50” IfEnd: IfEndElse If N=3: Then Prog”OPRP4”: IfEnd :IfEnd2. 正算子程序(SUB1)0.1739274226 →Z[3]：0.3260725774→B：0.0694318442→K：0.3300094782→L:(1-L) →F：(1-K)→M：(U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X：V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：(X+Zcos(F))→X：(Y+Zsin(F))→Y注：Z[3]替代源程序A。
卡西欧5800P计算器隧道施工测量程序设计
卡西欧5800p计算器隧道施工测量程序设计王庆军随着铁路、公路建设的快速发展，我国隧道建设的施工技术也大幅度提高，由于工期紧迫促成测量放样的过程也是一个重要环节，如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度，导致开挖掘进造成隧道超欠挖，所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作，这样不仅提高了施测效率还保证了放样精度，现通过本文分析讲解隧道超欠挖的计算原理和程序设计。
何为超欠挖？：隧道超欠挖分为（超挖和欠挖），超挖即为隧道开挖轮廓线大于隧道设计轮廓线，欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。
超欠挖的影响：隧道超欠挖不止直接影响到了施工进度、安全质量，还会让开挖费用增加，更重要的是由此造成了过量超填混凝土的费用。
超挖在实际施工中由于重视不够或方法不当，以至于在施工过程中会不知不觉地提高工程成本，从而也减少了应得的利润。
超欠挖是如何产生的？在目前的隧道施工中，掘进技术有两种方法，一种是传统的“钻爆法（开挖台阶法）”；一种是“全断面掘进法（盾构掘进法）”。
受各种条件的制约，“钻爆法”仍是山区隧道施工的主要掘进方法。
所以隧道超欠挖的形成也是不可避免的，下面讲述一下形成超欠挖的三种情况。
1、岩层变化：由于隧道开挖过程中随着岩层的变化，地质条件和围岩裂隙的发生会出现不可避免的超欠现象，所以岩体是超欠挖的主要因素之一。
2、爆破方式：由于工作面（掌子面）是一个不平整的岩体面，导致钻孔间距控制不当或间距过大、过小，容易影响其他孔位的爆破效果，或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。
3、测量放线：由于隧道测量放线过程中能见度低，操作有限，测量人员进入隧道测量时导致前后视照准误差，同时因为掌子面的凹凸不平画轮廓线时也会产生偏离现象。
如何正确实施隧道测量工作？隧道测量工作应由专业测量人员测量，根据设计院给定的坐标控制点和高程控制点进行建立导线控制网,并按规定程序检查验收,对施测人员实行详细的图纸交底和方案交底,所有施测的工作进度根据项目进度计划进行安排。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
线路中边桩坐标正反算程序(2013-9-18)MAIN-PROG(主程序)Lbl 4: 9→DimZ：“1→ZS,2→FS，3→GPZT”?N(选择计算模式，1为正算，2为反算,3为管片姿态计算)N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3Lbl 1: “K=”?S：“PJ=”?Z：Prog “SJ-PM”： Abs(S-O) → W：Prog “SUB1-ZS”： F-90→F ：If F≥360：Then F-360→F :“X=”：Locate4,4,X:“Y=”：Locate4,4,Y: “W=”：Locate4,4,F°：S→K：Prog “SJ-GC”：“H=”：Locate4,4,H◢Goto 4(正算-输入待求点里程K=、输入待求点偏距PJ=、显示待求点里程X=、显示待求点里程Y=、显示待求点方位角W=、显示待求点高程H=)Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-PM”： X→ I： Y→ J：Prog "SUB2-FS"：O+W→S: “K="：Locate4,4, S：“PJ="：Locate4,4, Z ：S→K：Prog “SJ-GC”：“H=”：Locate4,4,H◢Goto 4(反算-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距PJ=)Lbl 3:“X=”?X：“Y=”？Y：“H=”？→Z[7]：Prog“SJ-PM”： X→I ：Y→ J：Prog "SUB2-FS"：O+W→S:Prog "SJ-PYL"：Prog "SUB4-PYL"：Z-Z[6]→Z[8]：S→K：Prog “SJ-GC”：Prog “SJ-DCHD”：Z[7]-(H-Z[5])→Z[9]：“SP=”：Locate4,4,Z[8]：“GC=”：Locate4,4,Z[9]◢Goto 4（管片姿态计算时，输入全站仪实测的平面坐标X、Y以及水准测得的管片底标高H，结果显示平面偏差“SP=”，左-右+，高程偏差“GC=”，高+低-）SJ-PM（子程序名-平面线形数据库）里程从DK44+744.5~DK47+160.091（直线段）If S ≥44744.5（线元起点里程）:Then 315898.3852→U（线元起点X坐标）：509426.7059→V（线元起点Y坐标）：44744.5→O（线元起点里程）：357057’7”→G（线元起点方位角）：179.775 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0→Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥44924.275（线元起点里程）:Then 316078.0453→U（线元起点X坐标）：509420.2813→V（线元起点Y坐标）：44924.275→O（线元起点里程）：357057’7”→G（线元起点方位角）：20 →H（线元长度）：1×1045→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd509419.5998→V（线元起点Y坐标）：44944.275→O（线元起点里程）：358014’18”→G（线元起点方位角）：27.589 →H（线元长度）：2000→P（线元起点曲率半径）：2000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥44971.864（线元起点里程）:Then 316125.6149→U（线元起点X坐标）：509418.9419→V（线元起点Y坐标）：44971.864→O（线元起点里程）：359001’43”→G（线元起点方位角）：20 →H（线元长度）：2000→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HZ点）If S ≥44991.864（线元起点里程）:Then 316145.6131→U（线元起点X坐标）：509418.6696→V（线元起点Y坐标）：44991.864→O（线元起点里程）：359018’55”→G（线元起点方位角）：367.91 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥45359.774（线元起点里程）:Then 316513.4970→U（线元起点X坐标）：509414.2729→V（线元起点Y坐标）：45359.774→O（线元起点里程）：359018’55”→G（线元起点方位角）：55 →H（线元长度）：1×1045→P（线元起点曲率半径）：850→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45414.774（线元起点里程）:Then 316568.4802→U（线元起点X坐标）：509413.0227→V（线元起点Y坐标）：45414.774→O（线元起点里程）：357027’41”→G（线元起点方位角）：25.775 →H（线元长度）：850→P（线元起点曲率半径）：850→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥45440.549（线元起点里程）:Then 316594.2078→U（线元起点X坐标）：509411.4910→V（线元起点Y坐标）：45440.549→O（线元起点里程）：355043’27”→G（线元起点方位角）：55 →H（线元长度）：850→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HZ点）If S ≥45495.549（线元起点里程）:Then 316648.9508→U（线元起点X坐标）：509406.2087→V（线元起点Y坐标）：45495.549→O（线元起点里程）：353052’14”→G（线元起点方位角）：63.397 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd509399.4394→V（线元起点Y坐标）：45558.946→O（线元起点里程）：353052’14”→G（线元起点方位角）：45 →H（线元长度）：1×1045→P（线元起点曲率半径）：1000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45603.946（线元起点里程）:Then 316756.7622→U（线元起点X坐标）：509394.9703→V（线元起点Y坐标）：45603.946→O（线元起点里程）：355009’34”→G（线元起点方位角）：26.224 →H（线元长度）：1000→P（线元起点曲率半径）：1000→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45630.17（线元起点里程）:Then 316782.9187→U（线元起点X坐标）：509393.1005→V（线元起点Y坐标）：45630.17→O（线元起点里程）：356039’44”→G（线元起点方位角）：45 →H（线元长度）：1000→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HZ点）If S ≥45675.17（线元起点里程）:Then 316827.8757→U（线元起点X坐标）：509391.1546→V（线元起点Y坐标）：45675.17→O（线元起点里程）：357057’05”→G（线元起点方位角）：233.227 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥45908.397（线元起点里程）:Then 317060.9538→U（线元起点X坐标）：509382.8174→V（线元起点Y坐标）：45908.397→O（线元起点里程）：357057’05”→G（线元起点方位角）：60 →H（线元长度）：1×1045→P（线元起点曲率半径）：360→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥45968.397（线元起点里程）:Then 317120.9335→U（线元起点X坐标）：509382.3388→V（线元起点Y坐标）：45968.397→O（线元起点里程）：2043’33”→G（线元起点方位角）：439.848 →H（线元长度）：360→P（线元起点曲率半径）：360→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥46408.245（线元起点里程）:Then 317447.5818→U（线元起点X坐标）：509635.0568→V（线元起点Y坐标）：46408.245→O（线元起点里程）：72043’48”→G（线元起点方位角）：60 →H（线元长度）：360→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd509693.2346→V（线元起点Y坐标）：46468.245→O（线元起点里程）：77030’17”→G（线元起点方位角）：385.8 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd（ZH点）If S ≥46854.045（线元起点里程）:Then 317545.652→U（线元起点X坐标）：510069.8961→V（线元起点Y坐标）：46854.045→O（线元起点里程）：77030’17”→G（线元起点方位角）：60 →H（线元长度）：1×1045→P（线元起点曲率半径）：390→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（HY点）If S ≥46914.045（线元起点里程）:Then 317560.1273→U（线元起点X坐标）：510128.1076→V（线元起点Y坐标）：46914.045→O（线元起点里程）：73005’50”→G（线元起点方位角）：186.046 →H（线元长度）：390→P（线元起点曲率半径）：390→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd（YH点）If S ≥47100.091（线元起点里程）:Then 317653.8510→U（线元起点X坐标）：510286.7823→V（线元起点Y坐标）：47100.091→O（线元起点里程）：45045’53”→G（线元起点方位角）：60 →H（线元长度）：390→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd(注：有多个平面线形，依照上面的依次变更, 每多一个，就增加一个。