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

卡西欧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)YYA==B+LSinW+Ksin（W+M）POL（S-U),Y-U：J 0=J=J+36OX″DIX=″=I◢FiX3：O″FW=″=JGoto1 5800边坡测量程序″XO=″?U：″YO=″?V：″X1=″?A：″Y1″?B：″X2″?G:″Y2″?DPOL（G-A,D-B)：J→W:Fix 3:CLSLbi 1 ↙″L=″?L:″K=″?K:″M=″?M↙A+LCOSW+KCOS（W+M)→XB+LSinW+Ksin（W+M)→YCls↙XA=:Locate 5,1,X:YA=:Locate 5,2,Y◢Pol（X-U,Y-V)：If J 0:Then J+36O→J :Else J→JCls↙″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 ←┘ DZ[Z[2]×4+3]=Dsz 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 √（Ｐ2＋Ｑ2）)(切线方位角-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-S5. R=0=X“X”