卡西欧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等分，首先判断待求点在哪个区间，再循环选择，提高运算时间；傻瓜操作，适用初级

用户。 一、程序：MC

W“1.BG 2.SZ ”：W=1=> Goto 1ΔO“KOU LING”：O≠123456=>O=0：Goto ５Δ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：“NEXT”◢Isz Z[1]： Goto 0←┘

Lbi 1 ←┘ Z[2]= Z[1]←┘

{D}：D≤Z[Int(Z [2]÷4+1)×4+3]=>Z[2]= Int(Z [2]÷4) ：Goto 2ΔD≤Z [Int (Z[2] ÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2)：Goto 2ΔD≤Z[Int (Z[2]×.75+1)×4+3]=>Z[2]=Int (Z[2]×.75)：Goto 2Δ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” ◢ 程序操作说明

程序分为两部分：1.BG为标高计算，2.SZ为参数设置。 1、 首先用Shift+Defm键对计算器内存变量进行扩充，扩充变量数为4×X+2（X为标高参数段数，变量数视内存情况尽量大些），运行程序，选2进行标高参数设置，为防止误操作在正确输入口令123456时方可进行设置，一组参数输入完毕后显示“NEXT”，如输入完毕请退出，按“ＥＸ

Ｅ”继续。

2、 选1.ＢＧ进行标高运算，D输入桩号，Z输入距离，程序首先自动判断其待求点在哪一段参数内，并将参数调出进

行计算，即可对全线进行标高计算。

c、变量说明

Z“D0”―――――――起点桩号 H“BG”―――――――起点标高 P“PD”―――――――前坡度（％）

R“R0”―――――――竖曲线半径（凸曲线为负值；凹曲线为正值，直坡为０）

卡西欧5800双线隧道断面三维放样程序

SUB＋ZB(断面三维放样程序） P=HZ中线坐标X-U Q=HZ中线坐标Y-V L“KQ”=HZ里程+sin √（Ｐ²＋Ｑ²）) (切线方位角-90-(180＋tanˉ1(Q÷P)))×( 1. Lb1 1 2. ｛L｝ 3.S=HZ里程：M=HZ左线坐标X： N=HZ左线坐标Y； A=HZ切线方位角： R=曲线半径： C=缓和曲线长度： J=左＝１＝右０：L 4. K=L-S 5. R=0=>X“X”=M+KcosA▲ 6. Y“Y”=N+KsinA▲ 7. Z“FW”=A▲

8.Goto 4△R≠0=>Abs K≤C=>Goto 2△R≠0=>K＞C=>Goto 3△ R≠0=>K<0=>Abs K＞C=>Goto 1△ 9. Lb1 2 10. O=90K²÷（πRC）

11. G=K³÷（6RC）-Kˆ7÷（336（RC）³＋Kˆ11÷（42240（RC）ˆ5-Kˆ15÷9676800（RC）ˆ7）＋Kˆ19÷（3530096640（RC）ˆ9）

12. F=K－Kˆ5÷（40（RC）²）－Kˆ9÷（3456（RC）ˆ4）＋Kˆ13÷（599040（RC）ˆ6）－Kˆ17÷（40320×4532（RC）ˆ8） 13. J=0=>X“X”=M＋GsinA＋FcosA▲ 14. Y“Y”=N＋FsinA- GcosA▲ 15. Z“FW”=A-O ▲ Goto 4△ 16．J≠0=>X“X”=M＋F cosA－GsinA▲ 17．Y“Y”=N＋G cosA＋F sinA▲ 18．Z“FW”=A＋O▲ Goto 4△ 19．LbI 3 20．B=90（2K-C）÷（лR） 21.U=C÷2－C³÷（240R²）＋R sinB＋Cˆ5÷（34560Rˆ4）-Cˆ7÷（599040 Rˆ6） 22．V=C²÷（24R）＋R（1－cosB）－Cˆ4÷（2688R³）＋Cˆ6÷（42240 Rˆ5） 23．J=0=>X“X”=M＋UcosA＋VsinA▲ Y“Y”=N＋U sinA－V cosA▲ Z“FW”=A-B▲ Goto 4△ 24．J≠0=>X“X”=M＋U cosA－VsinA▲ Y“Y”=N＋U sinA＋V cosA▲ Z“FW”=A＋B▲ Goto 4△ 25．Lb1 4 26．D=2.5：T=90：｛H｝ 27．D=0 => Goto 1△ 28．D≠0=>√(Pol((X＋Dcos（T＋Z）)-U,(Y＋Dsin（T＋Z）)-V)²＋（H-W\"Q2\"-2.43）²)◢ Goto 1△ (2.43=内轨顶面至园心的高差） U: 测点X坐标 V: 测点Y坐标 L: 求得测点里程 Q2: 求点内轨顶面高程 H： 求点高程 显示：放样点半径 放样实例：

HZ中线坐标X ＝205.0784 HZ中线坐标Y =814.2796 HZ里程： 886.7 HZ左线坐标X=207.1391 HZ左线坐标Y=815.6951 HZ切线方位角=124.4859694 曲线半径： =9000 缓和曲线长度：=490 J=1 U=226.284 测点X坐标 V=795.105 测点Y坐标 L? 测点里程 ＋ 858.8916438 注：里程虽有误差，但不影响放样计算．

左线中坐标x 222.8849837 左线中坐标y 792.7741092 方位角 124.4909929 H：测点高程 261.66 Q2: 测点内轨顶面高程 258.249 测点半径 6.695966203 此程序在4850计算器上运行，一次性计算放样数据，提高放样速度， 专为缓和曲线复杂的数据计算而设，直线段较为简单，这里就不再举例．