1、CASIO 5800计算器测量计算程序CASIO 5800计算器测量计算程序 上上月做这个东西的时候没仔细检查，有好几处输错了的地方，今天把它修改过来。简要介绍： 1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据
2、按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。 3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。 4 相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z10，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。 4. 程序利用Z2变量值来判断是采用交点法还是线元法模型计算，Z20为线元法，否则为交点法。 一、PQX程序：计算中边桩坐标及近似的桩号反
3、算，在运行模式直接调用。 Z10S:”XO”?S:SZ10:”YO”?N:Prog “AU” Lbl 2:?L:Prog “Z”:Prog “E”:1nO:90S Lbl 4:”JJ”?S:”YC”?O:SO=0 =Goto 2原来lbl 后没有标号的。 O=-1 =Goto 6 “X,Y”:R+OCos(Z+S)XU+OSin(Z+S)YProg “D”:Goto 4 Lbl 6:Z7X:Z8Y:”XF”?X:”YF”?Y:XY=0 =Goto 4 XZ7:YZ8:Pol(X-R,Y-U+1p):Z+S-JJ:”YC,DL,L”:ICos(J)OISin(J)IL+IGoto 6 二、P程序
4、：在程序中提供一个自由运算的模式。 Lbl 1:”TMP”?I:If I0:Then “RST”:IGoto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。 Prog “AU” Lbl 1:Z7X: Z8Y: Z6S: ”XF”?X :XZ7:”YF”?Y:YZ8: ”ZF”?S: SZ6 Lbl 2:Prog “Z”:Y=U =Y+1pY Pol(X-R,Y-U):J-ZJ:Isin(J)O:Icos(J)I If Abs(I)0.1:Then Prog “E”:”L,YC”:L+ILOGoto 3:IfEnd If Z90:Then Pol(Z9-SO,I):
5、JZ9180I:IfEnd ”DL”:IL+IL:Goto 2 Lbl 3: Z6S:If S=0:Then Goto 1:IfEnd MZ Lbl 4:”SG”?Z:ZM:If Abs(Z)=1: Then Prog “GG”:YZ:If X=1:Then XZ:IfEnd:ZM:IfEnd If Z=0:Then Z11C:Z12D: Z13E: Z14F:”LA”?C:CZ11: ”HA”?D:DZ12: ”LB”?E:EZ13: ”HB”?F:FZ14:D+(E-C)-1(F-D)(L-C)Z:ZM:IfEnd Lbl 5:”SG”:Z:”TW”:Z-SC:Z3P: Z4Q: :Z5T:”YC0”?P:PZ3: :”HC0”?Q:QZ4 :”M”?T:TZ5:OAbs(O)I:”BL”:I(P+TC(C+Q)Abs(C)U”DB”:IU-IOJ AnsI:Prog “P”:Goto 1 四、I程序：通过手工方式输要素 Z2=0 =Goto 2 Z1R:Z2U:”JL”?K:”JX”?G:”JY”?H:”JA”?V:”JJ”?W:”R”?A:”LS”?B:”L1”
安全达人 