CASIO fx-4800P导线严密平差程序的改进.pdf

维普资讯 第 2期 矿 山 测 量 No．2 2005年 6月 MINE SURVEYING June．2005 r{—计—算—机—1} CASIO fX一48OOP导 线 严 密 平 差 程 序 的 改 进 { 应用 } l，．、．．．．．．、．．√ 何凭 宗 (中南大学信息物理工程 系，湖南 长沙 410083) 摘要：笔者对参考文献[1]的CASIOfx一4800P导线严密平差程序进行了改进 ，使得角度的输入更简 洁，原始数据和观测数据的输入次序更合理。程序 已经通过调试，文中给出了计算实例，计算结果完 全正确 。 关键词 ：导线；测量平差；CASIOfx一4800P 中图分类号：1207 ．2 文献标识码 ：B 文章编号 ：1001—358X(2005)02—0011—02 CASIOfx一4500PA和 CASIOfx一4800P这两款 度分秒键 ；原始数据的输入次序不易出错，比如导线 可编程电算器小巧玲珑 ，其功能可满足测量常用计 边长输入完后再接着输入角度。与原程序相 比，经 算的需要 ，在测绘单位拥有广大的用户，并为广大测 过改进后程序更为实用 ，操作更为简单。现将修改 量人员所乐用。由王君瑞主编、教育科学 出版社 出 后的程序代码公布如下，以便于大家使用。 版的[CASIOfx一4500PAfx一4800P测量程序集] 1 主程序文件名 ：DXPC (以下简称[程序集])内容丰富，给测量人员带来 了 方便 ，颇受欢迎 。但其中的fx一4800P“单一导线的 源代码 ： 严密平差程序”(PIO)的示例中有 以下的错误：在程 Fix9：Mcl：N=B：L：M：K=206265：Q=M ／(KL )： 序中凡是输入角度 (比如 A=216。2217”)的地方 ，示 X “X0”：Y “Y0”：D “Xl”：E “Yl”：Defm 72： 例中表示成既没有度分秒也没有小数点的形式 (比 Z=0：U=0 如 A=2162217)。按照这种形式输入角度肯定得不 LB10：U=U+1：{A}：A：Prog“SUB．DEG”：U=1 到正确的结果。这显然是一个错误 ，类似的错误在 F=A U 2=,GOTO0 该书后面的 fx一4500PA “单一导线 的严密平差程 LB11：{s}：Z=Z+s：H=6N：Z[H]=S：DszN：GOTO 序”(P118)的示例 中已经得到了纠正。即使没有这 1：N=B：J=A：T=M 一 错误 ，该程序还是存在以下不足：1、角度的输入太 Lbl2：Prog“SUB．FWJ”：H=6N：Z[H一1]=F：Dsz 烦琐，如果要输入216。2217”，要在电算器上输入成 ： N：GOTO2：Prog”SUB．FWJtt：F”FW ”=F—J 216。22。17。，也就是输入度 、分 、秒后都要按一下电算 器上的度分秒键 ，再按一下执行键才能完成一个角 A=J：M=T：V=0：W =0：F=一F／(B+1)：N= 度的输入 ，即每输入一个角度一般需要按三次度分 B：L=0：M =0：O=0：P=0：R=0：S=0 秒键 ；2、在输入导线的观测数据时，该程序是采用边 Lbl3：L=L+1：H=6N：Rec(z[H]，LF+z[H一 长和角度交替的方式输入的，即输入的次序是边长， 1])：z[