Excel在水文要素計(jì)算中的應(yīng)用

1、Excel在水文要素計(jì)算中的應(yīng)用Excel在水文要素計(jì)算中的應(yīng)用 Excel在水文要素計(jì)算中的應(yīng)用 Excel在水文要素計(jì)算中的應(yīng)用摘要:Excel是辦公自動(dòng)化軟件Office的重要組成部分之一,是Windows操作平臺(tái)上的電子表格軟件,具有強(qiáng)大的制作表格、處理數(shù)據(jù)、分析數(shù)據(jù)、創(chuàng)立圖表等功能,在日常生活工作中得到了大量的應(yīng)用。目前陜西水文工作正向自動(dòng)測(cè)報(bào)邁進(jìn),但仍有不少水文測(cè)驗(yàn)工程是人工測(cè)量,計(jì)算。利用Excel來(lái)進(jìn)展一些水文要素的計(jì)算,不但適應(yīng)了現(xiàn)階段工作要求,還進(jìn)步了工作效果。關(guān)鍵詞:Excel 流量 泥沙 計(jì)算98、Windows Me、Windows 2000、Windows XP。硬

2、件環(huán)境:一般如今的計(jì)算機(jī)都能滿足,只要能安裝Windows 98即可,沒(méi)有特別要求。除安裝Excel 2000外,還應(yīng)安裝Visual Basic6.0。這樣就可以創(chuàng)立自定義函數(shù)解決數(shù)據(jù)處理上的一些問(wèn)題。2. 問(wèn)題處理以前西安水文局就有人將Excel制作的電子表格用于水流沙計(jì)算。目前為進(jìn)步資料精度?水文資料整編標(biāo)準(zhǔn)?SL247-1999中規(guī)定水文數(shù)據(jù)采用“四舍六入,逢五奇進(jìn)偶舍的方法處理,同時(shí)還限制了相應(yīng)的有效數(shù)字位數(shù)。這對(duì)于用電子表格計(jì)算水文資料提出了高的要求,最好的解決方法是利用Visual Basic編寫(xiě)的自定義函數(shù)和Excel內(nèi)置函數(shù)來(lái)解決數(shù)據(jù)處理問(wèn)題。其中對(duì)“四舍六入的處理自定義函數(shù)

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 = "0"GoTo ExitFnEnd IfWith Application.WorksheetFunctionIf num 0.1 ThenDIG = DIG - 1End If * (-Right(I

4、nt(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) - DIG +1)Temp1 = Temp1 - TempoffTrn = Trn And (10 Int(.Log(Temp1) = Temp1 And Temp1 Abs(num)If DIG 14 And Trn ThenTemp2 = "有效位數(shù)不能太多"GoTo ExitFnEnd IfIf

5、DIG = 1 And Int(.Log(Abs(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(Te

6、mp1)ElseIf Int(.Log(Temp1) 0 ThenTFM = TFM "E+#"End IfTemp1 = Temp1 * Sgn(num)Temp2 = .Text(Temp1, TFM)End WithExitFn:If TorV Thenjinghe = Temp2Elsejinghe = Temp1End IfEnd Function(四)站測(cè)深、測(cè)速記載及流量計(jì)算表),其中在宏中參加以上自定義函數(shù),在計(jì)算中符合四舍六入的要求,表下方的統(tǒng)計(jì)欄極值挑選采用max函數(shù)在測(cè)得水深、測(cè)點(diǎn)流速中自動(dòng)挑選。一般一個(gè)站的測(cè)流垂線根本固定,這樣再次使用只需把起點(diǎn)距、測(cè)得水深、信號(hào)個(gè)數(shù)、歷時(shí)輸入表格中相應(yīng)空格,流量就會(huì)頃刻算出,完全符合標(biāo)準(zhǔn)要求。輸