视距法碎部测量记录程序程序与说明

《视距法碎部测量记录程序程序与说明》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、覃辉主编《土木工程测量》第4章教辅资料：视距法碎部测量记录与成果整理程序(P9-10-1/G9-10-1)(1)编程原理与输出数据串列视距法碎部测量的计算公式为：2⎧D=100(B−A)(cos(90−C+X))⎨⎩H=Dtan(90−C+X)+E+I−(A+B)/2式中，A为上丝读数，B为下丝读数，C为竖盘读数，E为测站高程，I为仪器高，X为经纬仪竖盘指标差，D为测站至碎部点的水平距离，H为碎部点高程，数据在串列中的存储位置见表1所示。表1程序P9-10-1输出数据串列明细表行数List1List2List3List4List5List61ABCTDH111111⋯⋯⋯⋯⋯⋯⋯⋯⋯

2、⋯⋯⋯⋯⋯190ABCTDH190190190190190190191NEIX日期时间1111⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯200NEIX日期时间10101010(2)程序程序名：P9-10-1，930字节，光盘文件为“prog视距法碎部测量记录程序P9-10-1.CAT”。Deg将角度单位设置为十进制度IfN=0:Then{0,0,⋯⋯,0}List1定义List1的维数为200List1List2:List1List3:List1List4:List1List5:List1List6IfEnd"Date=2005.1108"?P观测日期"Time=12.01"?Q观测时间"S

3、tationheight="?E提示与输入测站高程"Theodoliteheight="?I提示与输入仪器高"Indexerror="?X提示与输入竖盘指标差K+1K累加中断观测次数N+1List1[K+190]存储开始观测点号EList2[K+190]存储测站高程IList3[K+190]存储仪器高XList4[K+190]存储竖盘指标差PList5[K+190]存储日期QList6[K+190]存储时间Lbl1"Uppercross="?A提示与输入上丝读数"Downcross="?B提示与输入下丝读数"Vercircle"?C提示与输入竖盘读数"Horcircle"?T提示与输

4、入水平盘读数N+1N碎部点数累加1IfN>190:ThenGoto2:IfEnd判断是否超过最大点数19090-C+XV计算竖角2"D=":100Abs(A-B)(cosV)D水平距离同济大学出版社覃辉主编《土木工程测量》"H=":DtanV+E+I-(A+B)÷2H高程AList1[N]上丝读数存入串列1BList2[N]下丝读数存入串列2CList3[N]竖盘读数存入串列3TList4[N]水平盘读数存入串列4DList5[N]平距计算结果存入串列5HList6[N]高程计算结果存入串列6"Number=":N显示碎部点数"Press[AC]break"提示按键可以中断程序Got

5、o1Lbl2"Listnumberequal190"提示已经存储了190个点中断程序"END"提示：将光盘“prog视距法碎部测量记录程序P9-10-1.CAT”文件上传到计算器中时，会出现下面两个问题，它们是由数据通讯软件FA-123的缺陷所至。①在上述程序第二行定义串列维数语句{0,0,⋯⋯,0}List1中，只有前122个0能顺利上传到计算器中，而本程序设计为200个0，传入计算器时将丢失78个0，且字符“List1”也会丢失，故程序第二行的语句被输入为下列形式：IfN=0:Then{0,0,⋯⋯,0}100个0{0,0,⋯⋯,0}List1100个0将程序文件P9-10

6、-1.CAT上传到计算器中后，应将上述语句修改为下列形式：IfN=0:Then{0,0,⋯⋯,0}List1200个0修改前后的结果见图9-10-1前两图所示。图1将光盘“prog视距法碎部测量记录程序P9-10-1.CAT”文件上传到计算器后的修改内容②程序中的提示字符“or”的上传到计算器中后变成字符“@”，程序中的下列两行提示字符中有字符“or”："Indexerror="?X提示与输入竖盘指标差"Horcircle"?T提示与输入水平盘读数为解决该问题，光盘程序文件P9-10-1.CAT在字符“or”中用一个空格间隔，见图9-10-1所示。程序上传到计算器中后，可以删除

7、字符“o”与“r”间的空格。是否删除这些空格不影响程序的正确运行。(3)程序的功能与操作说明程序为串列List1~List6定义的维数是200，每个串列单元需用10字节，六个串列共需占用6×200×10=12000字节内存，如果读者计算器的剩余内存容量不足以运行该程序，请将现有程序与串列数据下传到FA-123中存盘保存，然后在MEM模式下清除不需要的程序与串列数据。程序虽然为List1~List6定义的维数是200，但190~200行串列单元用于存储每次运