普通水准测量记录程序PM3-10

《普通水准测量记录程序PM3-10》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、覃辉编著图书光盘附普通水准测量记录程序(PM3-10)(1)普通水准测量原理与等级水准测量比较，普通水准测量只需要读取中丝读数，不需要测量前后视距，测量方法有两次仪器高法与双面尺法。记录格式见表3-11与表3-12。表3-11普通水准测量两次仪器高法记录格式水准尺读数/mm测站点号高差/m平均高差/m累计高差/m后视前视BM-A113410111TP11677-0.543(0.000)1554-0.543-0.543-0.543TP1144416242TP21324+0.120(+0.004)1508+0.116+0.118-0

2、.425TP2182217103TP30876+0.946(0.000)0764+0.946+0.9460.521TP3182019234TP41435+0.385(+0.002)1540+0.383+0.3840.905TP4142216045BM-B1308+0.114(+0.002)1488+0.116+0.1151.020表3-12普通水准测量双面尺法记录格式水准尺读数/mm测站点号高差/m平均高差/m累计高差/m后视前视BM-C121159981TP10586+0.625(0.000)5273+0.725+0.625+

3、0.625TP1155462412TP20311+1.243(+0.001)5097+1.144+1.24351.8685TP2039851863TP31523-1.125(0.001)6210-1.024-1.1245+0.744TP3170863954TP40574+1.134(+0.000)5361+1.034+1.134+1.878fx-5800P的统计串列只有ListX，ListY，ListFreq三个，太少，不适合于记录等级水准测量，记录普通水准测量也需要对三个统计串列精心规划，一站水准测量的串列规划见表3-13所示

4、。表3-13普通水准测量记录统计串列规划序ListXListYListFreq1前视读数1后视读数1高差12前视读数2后视读数2高差23两次高差之差两次高差均值累计高差(2)程序——PM3-10，占内存732字节。"NORMALLEVELPM3-10"显示程序标题Norm1:FreqOn基本设置Page1of4覃辉编著图书光盘附IfN=0:ThenClrStat:IfEndN=0时清空统计串列"TWOh(1)OrREDBLACK(0)="?Y两次仪器高法输入1，双面尺法输入0Lbl1IfY=1Then"1BACKBLACKMID

5、(mm)="?A两次仪器高法，后黑中丝——第1次"2FRONTBLACKMID(mm)="?B输入前黑中丝——第1次"3BACKBLACKMID(mm)="?C输入后黑中丝——第2次"4FRONTBLACKMID(mm)="?D输入前黑中丝——第2次0O两次高差之差常数变量赋零Else"1BACKBLACKMID(mm)="?A双面尺法，输入后黑中丝"2BACKREDMID(mm)="?C输入后红中丝"3FRONTBLACKMID(mm)="?B输入前黑中丝"4FRONTREDMID(mm)="?D输入前红中丝Int((C-A)

6、÷100)K计算后视尺红黑面零点常数Int((D-B)÷100)L计算前视尺红黑面零点常数IfK=L:Then0O当后视尺与前视尺的红黑面零点常数相同时ElseIfK=46:Then0.1O:Else-0.1O:IfEnd:IfEnd不同时IfEnd(A-B)÷1000E:(C-D)÷1000F计算两次测量的高差(m)E-(F+O)G:(E+F+O)÷2H计算两次高差之差与高差平均值(m)IfAbs(G)>0.005:Then"TWOhOVER,REP":Goto1显示本站观测超限Else"THESTATIONOK"显示本站观测

7、符合要求N+1N测站数计数变量增1AListX[3N-2]:BListY[3N-2]:EListFreq[3N-2]存储第一次观测数据CListX[3N-1]:DListY[3N-1]:FListFreq[3N-1]存储第二次观测数据GListX[3N]:HListY[3N]存储高差之差与高差均值IfN=1:ThenHListFreq[3N]:ElseH+ListFreq[3(N-1)]ListFreq[3N]:IfEnd存储累计高差"n=":N显示本站序号"h(m)=":H显示本站高差"Mh(m)=":ListFreq[3N]

8、显示累计高差"PRESS[AC]Stop"按键停止程序运行，按键继续执行程序Goto1:IfEnd"PM3-10END"(3)程序说明①设置两次高差观测之差的限差为5mm，如需使用其它限差，请读者修改程序中的限差值。②用三行串列存储一站的观测与计算数据，其中第一