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

《卡西欧5800边坡测量放样程序隧道测量》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、卡西欧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◢Goto15800边坡测量程序″XO=″?U：″YO=″?V：″X1=″?A：″Y1″?B：″X2″?G:″Y2″?D↙POL（G-A,D-B)：J→W:Fix3:CLS↙L

2、bi1↙″L=″?L:″K=″?K:″M=″?M↙A+LCOSW+KCOS（W+M)→X↙B+LSinW+Ksin（W+M)→Y↙Cls↙"XA=":Locate5,1,X:"YA=":Locate5,2,Y◢Pol（X-U,Y-V)：IfJ<0:ThenJ+36O→J:ElseJ→J↙Cls↙″DIX=″:Locate5,1,I:″FW=″:J▲DMS◢  Goto1程序特点：全线标高数据一次性程序化输入，扩充变量数据库，无需修改程序内容；全线贯通计算，标高计算时将全线数据分为4等分，首先判断待求点在哪个区间，再循

3、环选择，提高运算时间；傻瓜操作，适用初级用户。一、程序：MCW“1.BG2.SZ”：W=1=>Goto1ΔO“KOULING”：O≠123456=>O=0：Goto５ΔO=0：Z[1]=0:Goto0←┘Lbi0←┘”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”◢IszZ[1]：Goto0←┘Lbi1←┘Z[2]=Z[1]←┘{D}：D≤Z[Int(Z[

4、2]÷4+1)×4+3]=>Z[2]=Int(Z[2]÷4)：Goto2ΔD≤Z[Int(Z[2]÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2)：Goto2ΔD≤Z[Int(Z[2]×.75+1)×4+3]=>Z[2]=Int(Z[2]×.75)：Goto2ΔGoto2←┘Lbi2←┘DDszZ[2]：Goto2ΔGoto3←┘Lbi3←┘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]×

5、4+3])^2÷2÷Z[Z[2]×4+6]：Goto4ΔG=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100：Goto4←┘Lbi4←┘{Z}：Z：G=G-0.02Abs(Z):“G”:G◢（4850输出）{Z}：Z：G=G-0.02Abs(Z):G“G”◢（4800输出）Goto1←┘Lbi5←┘“OUT”◢程序操作说明程序分为两部分：1.BG为标高计算，2.SZ为参数设置。1、     首先用Shift+Defm键对计算器内存变量进行扩充，扩充变量数为4×X+2（X为标高参数

6、段数，变量数视内存情况尽量大些），运行程序，选2进行标高参数设置，为防止误操作在正确输入口令123456时方可进行设置，一组参数输入完毕后显示“NEXT”，如输入完毕请退出，按“ＥＸＥ”继续。2、     选1.ＢＧ进行标高运算，D输入桩号，Z输入距离，程序首先自动判断其待求点在哪一段参数内，并将参数调出进行计算，即可对全线进行标高计算。c、变量说明Z“D0”―――――――起点桩号H“BG”―――――――起点标高P“PD”―――――――前坡度（％）R“R0”―――――――竖曲线半径（凸曲线为负值；凹曲线为正值，直坡为

7、０）卡西欧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    

8、      4.K=L-S5.R=0=>X“X”=M+KcosA▲6.Y“Y”=N+KsinA▲7.Z“FW”=A▲8.Goto4△R≠0=>AbsK≤C=>Goto2△R≠0=>K＞C=>Goto3△  R≠0=>K<0=>AbsK＞C=>Goto1△9.  Lb1  210.O=90K²÷（πRC）11.G=K³÷（6RC）-Kˆ7÷（33