Excel在水文要素計算中應用的論文

Excel在水文要素計算中應用的論文

　　Excel在水文要素計算中的應用 Excel在水文要素計算中的應用 Excel在水文要素計算中的應用

　　摘要:Excel是辦公自動化軟體Office的重要組成部分之一,是Windows操作平臺上的`電子表格軟體,具有強大的製作表格、處理資料、分析資料、建立圖表等功能,在日常生活工作中得到了大量的應用。目前陝西水文工作正向自動測報邁進,但仍有不少水文測驗專案是人工測量,計算。利用Excel來進行一些水文要素的計算,不但適應了現階段工作要求,還提高了工作效果。

　　關鍵詞:Excel 流量 泥沙 計算

　　電子表格Excel有很多版本,現在以使用最廣的Excel 2000在北洛河?頭水文站的使用,來談談它在水文要素計算中的應用 軟體執行環境:Windows 98、Windows Me、Windows 2000、Windows XP。硬體環境:一般現在的計算機都能滿足,只要能安裝Windows 98即可,沒有特別要求。除安裝Excel 2000外,還應安裝Visual Basic6.0。這樣就可以建立自定義函式解決資料處理上的一些問題。

　　1. 問題處理

　　以前西安水文局就有人將Excel製作的電子表格用於水流沙計算。目前為提高資料精度《水文資料整編規範》SL247-1999中規定水文資料採用“四捨六入,逢五奇進偶舍”的方法處理,同時還限制了相應的有效數字位數。這對於用電子表格計算水文資料提出了高的要求,最好的解決辦法是利用Visual Basic編寫的自定義函式和Excel內建函式來解決資料處理問題。其中對“四捨六入”的處理自定義函式為:

　　Function jinghe(num As Double, DIG As Byte, Optional TorV As Boolean) As Variant

　　Dim Temp1 As Double

　　Dim TFM As String

　　Dim Temp2 As String

　　Dim Tempoff As Double

　　If num = 0 Then

　　Temp1 = 0

　　Temp2 = "0"

　　GoTo ExitFn

　　End If

　　With Application.WorksheetFunction

　　If num < 0.1 Then

　　DIG = DIG - 1

　　End If * ((--Right(Int(Abs(num) / 10 ^ (Int(.Log(Abs(num))) - DIG + 1)), 1) _

　　Mod 2) = 0)) * 10 ^ Int(.Log(Abs(num)) - DIG + 1)

　　Temp1 = .Round(Abs(num), -(Int(.Log(Abs(num))) - DIG + 1))

　　Temp1 = Temp1 - Tempoff

　　Trn = Trn And (10 ^ Int(.Log(Temp1)) = Temp1 And Temp1 > Abs(num))

　　If DIG > 14 And Trn Then

　　Temp2 = "有效位數不能太多"

　　GoTo ExitFn

　　End If

　　If DIG = 1 And Int(.Log(Abs(Temp1))) = 0 And Not Trn Then

　　TFM = ""

　　Else

　　If Not (DIG = 1 And Int(Temp1) = Temp1 And Not Trn) Then TFM = TFM & "."

　　TFM = TFM & .Rept("0", DIG + Abs(Trn) - 1)

　　End If

　　TFM = "0" & TFM

　　If Int(.Log(Temp1)) < 0 Then

　　TFM = TFM & .Rept("0", -Int(.Log(Temp1)))

　　ElseIf Int(.Log(Temp1)) > 0 Then

　　TFM = TFM & "E+###"

　　End If

　　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時的情況已作了設定,在流量、泥沙資料計算過程中應用良好。

　　2. 流量、輸沙率計算?

　　用 Excel建立流量計算表(詳見附表一“?頭(四)站測深、測速記載及流量計算表”),其中在宏中加入以上自定義函式,在計算中符合四捨六入的要求,表下方的統計欄極值挑選採用max函式在測得水深、測點流速中自動挑選。一般一個站的測流垂線基本固定,這樣再次使用只需把起點距、測得水深、訊號個數、歷時輸入表格中相應空格,流量就會頃刻算出,完全符合規範要求。輸沙率計算(見附表二)比流量計算簡單,方法基本同流量計算。

　　3. 關係曲線檢驗及標準差計算

　　4. 結 語

　　在頭站Excel還用於斷面圖繪製,報汛曲線繪製等方面。另外目前網上可以看到不少編制好的流量、標準差計算程式。但是我們的測站計算機剛開始普及,符合陝西水文計算要求,職工容易掌握,與手工計算表格、方法、流程相適應的卻很少。以上利用Excel電子表格計算的方法,由於直觀符合手算要求,提高了工作效率,經在狀頭站試用大家普遍能接受。同時體會到一般職工,大可不必對計算機畏懼,即使不懂英語,只要認真學習,勤於動腦,同樣能用一些應用軟體來解決工作中的實際問題,這樣才能從真正意義上使計算機在我們測報工作得到普遍應用。