1. <rp id="zsypk"></rp>

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

        時間:2021-06-12 17:52:43 論文 我要投稿

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

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

          摘要:

        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電子表格計算的方法,由于直觀符合手算要求,提高了工作效率,經在狀頭站試用大家普遍能接受。同時體會到一般職工,大可不必對計算機畏懼,即使不懂英語,只要認真學習,勤于動腦,同樣能用一些應用軟件來解決工作中的實際問題,這樣才能從真正意義上使計算機在我們測報工作得到普遍應用。以上見解由于時間倉促、水平有限肯定有很多不足敬請指正。

        【Excel在水文要素計算中的應用論文】相關文章:

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

        Excel程序在機械設計計算中的應用論文04-21

        海洋水文測量要素研究論文04-16

        項目教學在Excel數據處理中的應用實踐論文06-27

        水文地質調查評價在環境影響評價中的應用論文05-13

        《Excel中公式與函數的應用》說課稿范文04-02

        Excel在會計中的應用實驗報告10-10

        2SPSS在“再測信度”計算中的應用的論文06-15

        審美要素及平面設計應用研究論文04-15

        99热这里只有精品国产7_欧美色欲色综合色欲久久_中文字幕无码精品亚洲资源网久久_91热久久免费频精品无码
          1. <rp id="zsypk"></rp>