<menuitem id="r3jhr"></menuitem><noscript id="r3jhr"><progress id="r3jhr"><code id="r3jhr"></code></progress></noscript>

      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

      久久亚洲中文字幕精品一区四_久久亚洲精品无码av大香_天天爽夜夜爽性能视频_国产精品福利自产拍在线观看
      <menuitem id="r3jhr"></menuitem><noscript id="r3jhr"><progress id="r3jhr"><code id="r3jhr"></code></progress></noscript>
        亚洲午夜在线观看专区 | 亚洲国产精品激情在线观看 | 亚洲欧美日韩国产高清在线观看 | 欧美大片一级中文字幕 | 日韩制服丝袜片中文字幕 | 午夜精品福利波多野结衣 |