CASIO5800计算器测量计算程序
上上月做这个东西的时候没仔细检查，有好几处输错了的地方，今天把它修改过来。简要介绍：1新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可其余不需作任何的改动。2因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG1得左标高，SG1得右标高（若SG输入0则可进行一般的线性内插计算）。3在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z10，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。4程序利用Z2变量值来判断是采用交点法还是线元法模型计算，Z2＝0为线元法，否则为交点法。一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。①Z10→S”XO”SS→Z10”YO”NProg“AU”②Lbl2LProg“Z”Prog“E”1
→O90→S③Lbl4”JJ”S”YC”OSO0Goto2‘原来lbl后没有标号４的。④O1Goto6⑤“XY”ROCosZS→X▲UOSi
ZS→Y▲Prog“D”Goto4⑥Lbl6Z7→XZ8→Y”XF”X”YF”YXY0Goto4⑦X→Z7Y→Z8PolXRYU1pZSJ→J”YCDLL”ICosJ→O▲ISi
J→I▲LI▲Goto6二、P程序：在程序中提供一个自由运算的模式。①Lbl1”TMP”IIfI≠0The
“RST”I▲Goto1IfE
d二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。①Prog“AU”②Lbl1Z7→XZ8→YZ6→S”XF”XX→Z7”YF”YY→Z8”ZF”SS→Z6③Lbl2Prog“Z”YUY1p→Y④PolXRYUJZ→JIsi
J→OIcosJ→I⑤IfAbsI≤01The
Prog“E””LYC”LI→L▲O▲Goto3IfE
d⑥IfZ9≠0The
PolZ9SOIπJZ9÷180→IIfE
d⑦”DL”I▲LI→LGoto2⑧Lbl3Z6→SIfS0The
Goto1IfE
d⑧M→Z⑨Lbl4”SG”ZZ→MIfAbsZ1The
Prog“GG”Y→ZIfX1The

fX→ZIfE
dZ→MIfE
d⑾IfZ0The
Z11→CZ12→DZ13→EZ14→F”LA”CC→Z11”HA”DD→Z12”LB”EE→Z13”HB”FF→Z14DEC1FDLC→ZZ→MIfE
dr