Excel在水文要素计算中的应用.doc

《Excel在水文要素计算中的应用.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、Excel在水文要素计算中的应用摘要：Excel是办公自动化软件Office的重要组成部分之一，是Windows操作平台上的电子表格软件，具有强大的制作表格、处理数据、分析数据、创建图表等功能，在日常生活工作中得到了大量的应用。目前陕西水文工作正向自动测报迈进，但仍有不少水文测验项目是人工测量，计算。利用Excel来进行一些水文要素的计算，不但适应了现阶段工作要求，还提高了工作效果。关键词：Excel流量泥沙计算电子表格Excel有很多版本,现在以使用最广的Excel2000在北洛河头水文站的使用，来谈谈它在水文要素计算中的应用。

2、1.Excel2000的运行软件运行环境：Windows98、WindowsMe、Windows2000、WindowsXP。硬件环境：一般现在的计算机都能满足，只要能安装Windows98即可，没有特别要求。除安装Excel2000外，还应安装VisualBasic6.0。这样就可以创建自定义函数解决数据处理上的一些问题。2.问题处理　　以前西安水文局就有人将Excel制作的电子表格用于水流沙计算。目前为提高资料精度《水文资料整编规范》SL247-1999中规定水文数据采用“四舍六入，逢五奇进偶舍”的方法处理，同时还限制了相应

3、的有效数字位数。这对于用电子表格计算水文资料提出了高的要求，最好的解决办法是利用VisualBasic编写的自定义函数和Excel内置函数来解决数据处理问题。其中对“四舍六入”的处理自定义函数为：Functionjinghe(numAsDouble,DIGAsByte,OptionalTorVAsBoolean)AsVariantDimTemp1AsDoubleDimTFMAsStringDimTemp2AsStringDimTempoffAsDoubleIfnum=0ThenTemp1=0Temp2="0"GoToExitFnEn

4、dIfWithApplication.WorksheetFunctionIfnum<0.1ThenDIG=DIG-1EndIfTempoff=Abs((--Right(num/10^(Int(.Log(Abs(num)))-DIG+1),2)=0.5)_*((--Right(Int(Abs(num)/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))

5、)-DIG+1))3Temp1=Temp1-TempoffTrn=TrnAnd(10^Int(.Log(Temp1))=Temp1AndTemp1>Abs(num))IfDIG>14AndTrnThenTemp2="有效位数不能太多"GoToExitFnEndIfIfDIG=1AndInt(.Log(Abs(Temp1)))=0AndNotTrnThenTFM=""ElseIfNot(DIG=1AndInt(Temp1)=Temp1AndNotTrn)ThenTFM=TFM&"."TFM=TFM&.Rep

6、t("0",DIG+Abs(Trn)-1)EndIfTFM="0"&TFMIfInt(.Log(Temp1))<0ThenTFM=TFM&.Rept("0",-Int(.Log(Temp1)))ElseIfInt(.Log(Temp1))>0ThenTFM=TFM&"E+###"EndIfTemp1=Temp1*Sgn(num)Temp2=.Text(Temp1,TFM)EndWithExitFn:IfTorVThenjinghe=Temp2Elsejinghe=Temp1EndIfEndFunc

7、tion自定义函数形式为：jinghe(数值,保留有效位数,返回文本或数值)，其中根据头站特点对数值小于1时的情况已作了设定，在流量、泥沙数据计算过程中应用良好。3.流量、输沙率计算用Excel创建流量计算表（详见附表一“头（四）站测深、测速记载及流量计算表”），其中在宏中加入以上自定义函数，在计算中符合四舍六入的要求，表下方的统计栏极值挑选采用max函数在测得水深、测点流速中自动挑选。一般一个站的测流垂线基本固定，这样再次使用只需把起点距、测得水深、信号个数、历时输入表格中相应空格，流量就会顷刻算出，完全符合规范要求。输沙率

8、计算（见附表二）比流量计算简单，方法基本同流量计算。4.关系曲线检验及标准差计算按照《水文资料整编规范》SL247-1999规定水位流量、单断沙关系曲线，关系点在10各以上就必须进行三种检验和标准差计算。利用Excel表格制作计算表(