文档介绍：CASIO5800计算器测量计算程序上上月做这个东西的时候没仔细检查,有好几处输错了的地方,今天把它修改过来。简要介绍:1.    新版程序把线元法和交点法已经集成在一个模块中了,用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。2.    因为每条路高程计算不尽相同,且比较复杂,现在可利用PC机EXCEL计算好打印成表格带到工地上使用,所以本版程序未对线路高程序进行专门的编程计算,而是利用统计计算模式中来输入桩号(第一列X)及左、右高程(第二、三列Y,Freq),这种输入数据的方式最为直观,易发现错误,也易修改,输入完毕后运行S程序对数据按桩号进行排序,在程序中通过调用GG程序来进行内插计算,SG=-1得左标高,SG=1得右标高(若SG输入0,则可进行一般的线性内插计算)。3.    在JD程序和XY程序中,先将一个计算单元的数据置入矩阵F中(1行8列或1行9列),这样程序可读性极好。,作了一点小小的改动,测站坐标存在Z[10],N中,X坐标原存在M中容易被误操作修改,而设计标高存在M中,这样易于修改,因为CASIO5800没有IN,OUT功能,很不方便。4.    程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算,Z[2]=0为线元法,否则为交点法。一、PQX程序:计算中边桩坐标及近似的桩号反算,在运行模式直接调用。①    Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog“AU”②    Lbl2:?L:Prog“Z”:Prog“E”:1n→O:90→S③    Lbl4:”JJ”?S:”YC”?O:SO=0=>Goto2‘原来lbl后没有标号4的。④    O=-1=>Goto6⑤    “X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog“D”:Goto4⑥    Lbl6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0=>Goto4⑦    X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin(J)→I▲L+I▲Goto6二、P程序:在程序中提供一个自由运算的模式。①Lbl1:”TMP”?I:IfI≠0:Then“RST”:I▲Goto1:IfEnd二、LYC程序:进行桩号反算及边坡放样,在运行模式直接调用。①Prog“AU”②Lbl1:Z[7]→X:Z[8]→Y:Z[6]→S:”XF”?X:X→Z[7]:”YF”?Y:Y→Z[8]:”ZF”?S:S→Z[6]③Lbl2:Prog“Z”:Y=U=>Y+1p→Y④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I⑤IfAbs(I)≤:ThenProg“E”:”L,YC”:L+I→L▲O▲Goto3:IfEnd⑥IfZ[9]≠0:ThenPol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd⑦”DL”:I▲L+I→L:Goto2⑧Lbl3:Z[6]→S:IfS=0:ThenGoto1:IfEnd⑧    M→Z⑨    Lbl4:”SG”?Z:Z→M:IfAbs(Z)=1:ThenProg“GG”:Y→Z:IfX=1:ThenX→Z:IfEnd:Z→