4闭合水准计算程序.doc

4、闭合水准路线高差调整与高程计算如图为某闭合水准路线观测成果略图，水准路线起点为已知高程（Ha）的水准点BM.A，终点也是BM.A点。BM.1、BM.2及BM.3为高程待定的水准点，箭头线表示水准路线测量进行的方向，路线上方的数字为观测的测段高差h（单位：m），下方数字为观测的测段长度D（单位：km）。要求： 写出数学模型 编写流程图 程序代码 程序运行报告 程序运行结果=（1） 数学模型闭合水准路线高差总和应等于零，否则其值即为高差闭合差，即= （1）高差闭合差如果不超过规定的限差，说明观测成果合格。等外水准路线高差闭合差的容许值为（平地）W容=40D,mm （2） D为水准路线总长度（km）。按式(1)计算的高差闭合差,闭合差在允许范围内则按式（3）进行闭合差的分配（高差调整），得到各测段的高差改正值；按改正后的高差计算各待定水准点的高程。h=- （3）式中，h为测段改正的高差；为测段的观测高差；Di为测段平距；D为测段总平距。（2） 程序流程图（3） 程序代码程序中的标识符规定如下：A闭合水准路线已知点的高程（单位：m）；D水准点间的测段长（单位：km）；F闭合水准路线的高差闭合差；H测段的高差观测值；I，M循环变量和循环参数；L测段长之和（水准路线）；N测段数；X测段观测高差之和；list1各测段高差观测值；list2各测段长度；list3各测段闭合差调整后高差；list4各水准点高程。1“BHSZ”显示程序标题2“SZLX=”? P输入水准路线类型，1代表平坦、其他代表山地3Fix4：10Dim list1：10Dim list2：10Dim list3：10Dim list4保留小数位，定义串列变量4“HA=”?A 输入起始点和终点高程（闭合水准则输A点高程）5“N=” ?N：0X:0L为测段数（N）、测段观测高差之和（X）、测段长之和（L）赋值6For1IToN定义循环7“DH(I)=” ?H:“DIST(I)=” ?D:输入测段高差DH、测段长度DIST8X+HX:L+DL获得段高差之和X、测段长度之和L9Hlist1I:Dlist2I:Next将测段高差赋给串列list1I、测段长度赋给list2I10If P=1:Then 40(L) W:else 12(L) W:ifend水准闭合差的限差11“FH=”:XF显示高差闭合差FH12“L(KM)=”:L显示水准路线总长度L13If abs(F)W:then “BHCCX”:ifend显示高差闭合差超限14For1IToN定义循环15“DH=”: list1I-Flist2I/L list3I Next将改正后高差赋给串列list1316“H0=”:A M 将已知高程点A的高程赋给M变量17For1IToN定义循环18“H(I)=”: M + list3I M Next获得各测站高程19“END”（4） 程序运行报告按“EXE”键 屏幕显示：输入* 屏幕显示：。（5） 程序运行结果答案：改正数FH=0.044m点号测段距离km观测高差m改正后高差m高程m备注A37.1410已知高程已知高程1.10-1.999-2.0111135.12990.75-1.