Excel在水文要素计算中的应用(3)
2013-09-09 01:04
导读:Temp1=Temp1*Sgn(num) Temp2=.Text(Temp1,TFM) EndWith ExitFn: IfTorVThen jinghe=Temp2 Else jinghe=Temp1 EndIf EndFunction 自定义函数形式为:jinghe(数值,保留有效位数,返回文本或数值
Temp1 = Temp1 * Sgn(num)
Temp2 = .Text(Temp1, TFM)
End With
ExitFn:
If TorV Then
jinghe = Temp2
Else
jinghe = Temp1
End If
End Function
自定义函数形式为:jinghe(数值,保留有效位数,返回文本或数值),其中根据?头站特点对数值小于1时的情况已作了设定,在流量、泥沙数据计算过程中应用良好。
3. 流量、输沙率?
用 Excel创建流量计算表(详见附表一“?头(四)站测深、测速记载及流量计算表”),其中在宏中加入以上自定义函数,在计算中符合四舍六入的要求,表下方的统计栏极值挑选采用max函数在测得水深、测点流速中自动挑选。一般一个站的测流垂线基本固定,这样再次使用只需把起点距、测得水深、信号个数、历时输入表格中相应空格,流量就会顷刻算出,完全符合规范要求。输沙率计算(见附表二)比流量计算简单,基本同流量计算。
4. 关系曲线检验及标准差计算
按照《水文资料整编规范》SL247-1999规定水位流量、单断沙关系曲线,关系点在10各以上就必须进行三种检验和标准差计算。利用Excel表格制作计算表(见附表三、四:?头(四)站2005年单断沙关系曲线检验及标准差计算表,水位流量与此相同在此不再赘述),其中点据数n统计采用COUNT(B5:B34),正负号统计采用COUNTIF(G5:G34,"+"),计算过程采用了四舍六入自定义函数。再次使用时只要输入断沙实测和查线点据,第二张的标准差、不确定度计算立马产生。
5. 结 语
在?头站Excel还用于断面图绘制,报汛曲线绘制等方面。另外网上可以看到不少编制好的流量、标准差计算程序。但是我们的测站计算机刚开始普及,符合陕西水文计算要求,职工容易掌握,与手工计算表格、方法、流程相适应的却很少。以上利用Excel表格计算的方法,由于直观符合手算要求,提高了工作效率,经在状头站试用大家普遍能接受。同时体会到一般职工,大可不必对计算机畏惧,即使不懂,只要认真,勤于动脑,同样能用一些软件来解决工作中的实际,这样才能从真正意义上使计算机在我们测报工作得到普遍应用。以上见解由于时间仓促、水平有限肯定有很多不足敬请指正。
(科教范文网 fw.nseac.com编辑发布)