水文預(yù)報(bào)課程設(shè)計(jì)（河海大學(xué)）水文專業(yè)-全文預(yù)覽
【正文】 r (wum wu) (wlm wl)) (wdm wd)) Then wu = wum wl = wlm wd = wdm End If n = n + 1 Loop j = j + 1 Loop For j = 0 To 40 rt2(j) = CInt(rt2(j) * 10) / 10 wucha = (rt2(j) ) * 100 / kc = + * j KC= amp。 rt1(j) amp。包氣帶水量變化 Loop For j = 0 To 40 rt1(j) = CInt(rt1(j) * 10) / 10 wucha = (rt1(j) 946) * 100 / 946 kc = + j * KC= amp。分別調(diào)用四個(gè)雨量站雨量資料Dim kc As Single, pe As Single, r As Single, rs As Single, rg As Single, Ep As Single, Eu As Single, El As Single, Ed As Single, et As Single, n As Integer, wu As Single, wl As Single, wd As Single, wm As Single, wum As Integer, wlm As Integer, wdm As IntegerDim fc As Single, B As Single, C As Single, IM As Single, j As IntegerDim wucha As Single IM = fc = 22 B = C = wu = 10 wl = 40 wd = 60 wum = 20 wlm = 60 wdm = 60 wm = wum + wlm + wdm WMM = wm * (B + 1) j = 0 Do While kc = kc = + * j 39。所以從這一點(diǎn)的意義上來(lái)講，任務(wù)一當(dāng)中的誤差會(huì)直接傳播到任務(wù)二當(dāng)中，并逐漸放大，給產(chǎn)匯流計(jì)算帶來(lái)很大的影響！七、程序代碼日模計(jì)算Private Sub Command1_Click()Dim T() As String, Q() As Single, E() As Single, p As Single, p1() As Single, p2() As Single, p3() As Single, p4() As SingleDim i As Integer, k As Integer Open d:\VB\ For Input As 1Dim Lines As StringDim NextLine As String Do Until EOF(1) Line Input 1, NextLine i = i + 1 ReDim Preserve T(i) T(i) = Val(NextLine) Loop Close 1 39。KC=，有年份實(shí)測(cè)R計(jì)算R絕對(duì)誤差相對(duì)誤差1989946%1990%任務(wù)二：匯流計(jì)算結(jié)果：時(shí)間P(mm)RD(mm)RG(mm)R(mm)QD(m3/s)QG(m3/s)Q(m3/s)1989923 12:001989923 15:001989923 18:0001989923 21:0057121989924 0:001989924 3:001281989924 6:001989924 9:0001989924 12:007681989924 15:001989924 18:001989924 21:00731989925 0:001989925 3:001871989925 6:001989925 9:0025881989925 12:0001989925 15:0001989925 18:0001989925 21:000001989926 0:0000001989926 3:0000003571989926 6:000000721989926 9:0000002041989926 12:0000001989926 15:00000001989926 18:00000001989926 21:0000000當(dāng)然了計(jì)算到最后地下水還沒(méi)退去，不過(guò)由于地下水退水比較慢，所以計(jì)算到這里就沒(méi)繼續(xù)算下去。3. 資料包括19891990年，放在\資料下，數(shù)據(jù)格式為：T(i) Q(i) E(i) P1(i) P2(i) P3(i) P4(i)：組別學(xué)號(hào)計(jì)算年份 參數(shù) 初始張力水蓄量21101201989—90WMWUMWLMWDMWWUWLWD140206060110104060BCIMFc22任務(wù)二：1. 計(jì)算參數(shù)： WM=140,WUM=20,WLM=60,WDM=60，IM=,FC=，W=110,WU=10,WL=40,WD=60 ，b=,C= ,Cg= Qg=單位線資料序號(hào)1234567891011流量040801301008048201050。全流域蓄滿后：rg=FC rs=PEFC，基本計(jì)算公式：（4）匯流計(jì)算：根據(jù)流域凈雨和流域徑流單位線，采用卷積的差分形式算出流域出口的流量過(guò)程。 時(shí) 時(shí) 當(dāng)PE0，則產(chǎn)流，即R0；此時(shí)土壤中上中下層含水量會(huì)發(fā)生變化，如果產(chǎn)流，則PER后的值就給三層土壤來(lái)分，上層的土壤先補(bǔ)充水，如果上層補(bǔ)充滿以后，中層開始補(bǔ)充水，如果中層補(bǔ)充滿以后，下層開始補(bǔ)充水，如果三層都達(dá)到最大值，則土壤水分保持最大值不變。3)當(dāng)WU+PEP, C.(EPEU)=WL, EU=WU+P,EL=C*(EPEU),ED=0。雨量站分布較均勻，有10年逐日降水資料和時(shí)段降水資料；寶口水文站具有10年以上水位、流量資料；流域?qū)偕絽^(qū)性小流域且受到地形、地貌等下墊面條件影響，洪水陡漲緩落，匯流時(shí)間一般2—3小時(shí)（h），有時(shí)更短；一次洪水總歷時(shí)2~5天（d）。流域內(nèi)地勢(shì)平緩，土壤主要有黃壤和砂壤，具有明顯的腐殖層，淀積層和母質(zhì)土等層次結(jié)構(gòu)，透水性好。二、基本資料白盆珠水庫(kù)位于廣東省東江一級(jí)支流西枝江的上游，壩址以上集雨面積856km2 。任務(wù)二：根據(jù)已給的設(shè)計(jì)暴雨資料（寶口流域23日至26日暴雨）和任務(wù)一率定的Kc，將流域作為整體進(jìn)行（1）次洪產(chǎn)流量，地下徑流匯流計(jì)算；（2）繪出直接徑流過(guò)程，地下徑流過(guò)程，總的流量過(guò)程。降雨年際間變化大，年內(nèi)分配不均，多年平均降雨量為1800mm，實(shí)測(cè)年最大降雨量為3417mm，汛期4—9月降雨量占年降雨量的81％左右：。白盆珠水庫(kù)有10年逐日入庫(kù)流量資料、逐日蒸發(fā)資料和時(shí)段入庫(kù)流量資料：流域內(nèi)有7個(gè)雨量站，其中寶口以上有4個(gè)。2)當(dāng)WU+PEP, WL=, EU=WU+P,EL=(EPEU)*WL/WLM,ED=0。考慮到流域包氣帶厚度不一樣這時(shí)候就引進(jìn)了一個(gè)蓄水容量曲線概念，如圖13，其基本原理是：流域內(nèi)各點(diǎn)包氣帶的蓄水容量是不同的，將各點(diǎn)包氣帶蓄水容量從小到大排列，以包氣帶達(dá)到田間持水量時(shí)的土壤含水量WM′為縱坐標(biāo)，以流域內(nèi)小于等于該 WM′的面積占全流域的面積比α為橫坐標(biāo)，所繪的曲線稱為流域蓄水容量曲線。（3）水源劃分全流域蓄滿前：PEFC，產(chǎn)流面積上(α1)，所有降雨全部用于產(chǎn)流（地下徑流）其他面積上(1 α1 )，降雨補(bǔ)充土壤含水量；PEFC，產(chǎn)流面積上(α2)，降雨產(chǎn)流（rg=FC. α2,rs=(PEFC). α2 )其他面積上(1 α2 )，降雨補(bǔ)充土壤含水量。：禾多布、馬山、高潭、寶口，、。經(jīng)過(guò)以上程序分析計(jì)算，得到KC=。要明確一點(diǎn)，KC是一個(gè)非常敏感的參數(shù)，只要有一點(diǎn)點(diǎn)的誤差，都會(huì)給匯流階段的計(jì)算帶來(lái)很大的誤差。調(diào)用蒸發(fā)資料E i = 0 Open d:\VB\ For Input As 4 Do Until EOF(4) Line Input 4, Next
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1