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

　　摘要：

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

　　關鍵詞：

　　Excel流量泥沙計算

　　電子表格Excel有很多版本,現在以使用最廣的Excel2000在北洛河頭水文站的使用，來談談它在水文要素計算中的應用。

　　1.Excel2000的'執行

　　軟體執行環境：Windows98、WindowsMe、Windows2000、WindowsXP。硬體環境：一般現在的計算機都能滿足，只要能安裝Windows98即可，沒有特別要求。除安裝Excel2000外，還應安裝VisualBasic6.0。這樣就可以建立自定義函式解決資料處理上的一些問題。

　　2.問題處理

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

　　Functionjinghe(numAsDouble,DIGAsByte,OptionalTorVAsBoolean)AsVariant

　　DimTemp1AsDouble

　　DimTFMAsString

　　DimTemp2AsString

　　DimTempoffAsDouble

　　Ifnum=0Then

　　Temp1=0

　　Temp2="0"

　　GoToExitFn

　　EndIf

　　WithApplication.WorksheetFunction

　　Ifnum<0.1Then

　　DIG=DIG-1

　　EndIf

　　Tempoff=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)))-DIG+1))

　　Temp1=Temp1-Tempoff

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

　　IfDIG>14AndTrnThen

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

　　GoToExitFn

　　EndIf

　　IfDIG=1AndInt(.Log(Abs(Temp1)))=0AndNotTrnThen

　　TFM=""

　　Else

　　IfNot(DIG=1AndInt(Temp1)=Temp1AndNotTrn)ThenTFM=TFM&"."

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

　　EndIf

　　TFM="0"&TFM

　　IfInt(.Log(Temp1))<0Then

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

　　ElseIfInt(.Log(Temp1))>0Then

　　TFM=TFM&"E+###"

　　EndIf

　　Temp1=Temp1*Sgn(num)

　　Temp2=.Text(Temp1,TFM)

　　EndWith

　　ExitFn:

　　IfTorVThen

　　jinghe=Temp2

　　Else

　　jinghe=Temp1

　　EndIf

　　EndFunction

　　自定義函式形式為：jinghe(數值,保留有效位數,返回文字或數值)，其中根據頭站特點對數值小於1時的情況已作了設定，在流量、泥沙資料計算過程中應用良好。

　　3.流量、輸沙率計算

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

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

　　按照《水文資料整編規範》SL247-1999規定水位流量、單斷沙關係曲線，關係點在10各以上就必須進行三種檢驗和標準差計算。利用Excel表格製作計算表(見附表三、四：頭(四)站2005年單斷沙關係曲線檢驗及標準差計算表，水位流量與此相同在此不再贅述)，其中點據數n統計採用COUNT(B5:B34)，正負號統計採用COUNTIF(G5:G34,"+")，計算過程採用了四捨六入自定義函式。再次使用時只要輸入斷沙實測和查線點據，第二張的標準差、不確定度計算立馬產生。

　　5.結語

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