《Excel在水文要素计算中的应用.docx》由会员分享，可在线阅读，更多相关《Excel在水文要素计算中的应用.docx（6页珍藏版）》请在三一文库上搜索。
1、Excel在水文要素计算中的应用Excel在水文要素计算中的应用 Excel在水文要素计算中的应用 Excel在水文要素计算中的应用摘要:Excel是办公自动化软件Office的重要组成部分之一,是Windows操作平台上的电子表格软件,具有强大的制作表格、处理数据、分析数据、创立图表等功能,在日常生活工作中得到了大量的应用。目前陕西水文工作正向自动测报迈进,但仍有不少水文测验工程是人工测量,计算。利用Excel来进展一些水文要素的计算,不但适应了现阶段工作要求,还进步了工作效果。关键词:Excel 流量 泥沙 计算98、Windows Me、Windows 2000、Windows XP。硬
2、件环境:一般如今的计算机都能满足,只要能安装Windows 98即可,没有特别要求。除安装Excel 2000外,还应安装Visual Basic6.0。这样就可以创立自定义函数解决数据处理上的一些问题。2. 问题处理以前西安水文局就有人将Excel制作的电子表格用于水流沙计算。目前为进步资料精度?水文资料整编标准?SL247-1999中规定水文数据采用“四舍六入,逢五奇进偶舍的方法处理,同时还限制了相应的有效数字位数。这对于用电子表格计算水文资料提出了高的要求,最好的解决方法是利用Visual Basic编写的自定义函数和Excel内置函数来解决数据处理问题。其中对“四舍六入的处理自定义函数
3、为:Function jinghe(num As Double, DIG As Byte, Optional TorV As Boolean) As VariantDim Temp1 As DoubleDim TFM As StringDim Temp2 As StringDim Tempoff As DoubleIf num = 0 ThenTemp1 = 0Temp2 = 0GoTo ExitFnEnd IfWith Application.WorksheetFunctionIf num 0.1 ThenDIG = DIG - 1End If * (-Right(Int(Abs(num)
4、/ 10 (Int(.Log(Abs(num) - DIG +1),1) _Mod2) = 0) * 10 Int(.Log(Abs(num) - DIG +1)Temp1 = .Round(Abs(num), -(Int(.Log(Abs(num) - DIG +1)Temp1 = Temp1 - TempoffTrn = Trn And (10 Int(.Log(Temp1) = Temp1 And Temp1 Abs(num)If DIG 14 And Trn ThenTemp2 = 有效位数不能太多GoTo ExitFnEnd IfIf DIG = 1 And Int(.Log(Abs
5、(Temp1) = 0 And Not Trn ThenTFM = ElseIf Not (DIG = 1 And Int(Temp1) = Temp1 And Not Trn) Then TFM = TFM .TFM = TFM .Rept(0, DIG + Abs(Trn) -1)End IfTFM = 0 TFMIf Int(.Log(Temp1) 0 ThenTFM = TFM .Rept(0, -Int(.Log(Temp1)ElseIf Int(.Log(Temp1) 0 ThenTFM = TFM E+#End IfTemp1 = Temp1 * Sgn(num)Temp2 =
6、.Text(Temp1, TFM)End WithExitFn:If TorV Thenjinghe = Temp2Elsejinghe = Temp1End IfEnd Function(四)站测深、测速记载及流量计算表),其中在宏中参加以上自定义函数,在计算中符合四舍六入的要求,表下方的统计栏极值挑选采用max函数在测得水深、测点流速中自动挑选。一般一个站的测流垂线根本固定,这样再次使用只需把起点距、测得水深、信号个数、历时输入表格中相应空格,流量就会顷刻算出,完全符合标准要求。输沙率计算(见附表二)比流量计算简单,方法根本同流量计算。4. 关系曲线检验及标准差计算 5. 结 语本文档【Excel在水文要素计算中的应用】更多文档欢迎访问wendang.chazidian