【導(dǎo)讀】推導(dǎo)威布爾模型及其與乙型水驅(qū)曲線聯(lián)解關(guān)系式的預(yù)測(cè)模型；根據(jù)油氣田實(shí)際生產(chǎn)數(shù)據(jù)，進(jìn)行線性回歸，求得乙型水驅(qū)曲線的截距、斜率；根據(jù)相關(guān)公式，確定威布爾模型常數(shù)a、b、c；計(jì)算油田年產(chǎn)油量；計(jì)算最高年產(chǎn)量發(fā)生的時(shí)間；繪制油田實(shí)際年產(chǎn)量與預(yù)測(cè)產(chǎn)量對(duì)比曲線；[3]陳元千.一種新型水驅(qū)曲線關(guān)系式的推導(dǎo)及應(yīng)用[J].石油學(xué)報(bào)，1993，14：65-73.立完成對(duì)某一油田或區(qū)塊開(kāi)發(fā)指標(biāo)的預(yù)測(cè)。從而將理論知識(shí)和實(shí)。力及解決實(shí)際問(wèn)題的工程應(yīng)用能力。

　　

【正文】 ReDim px(yt), py(yt), s(yt, 3) 39。st = yt / 500 For i = 1 To mn px(i) = i py(i) = aa1 * cc1 * (1 (e ^ (px(i) ^ (bb1 + 1) / cc1))) / (bb1 + 1) 39。累計(jì)產(chǎn)油量 Np 公式 39。實(shí)際散點(diǎn) s(i, 0) = px(i) s(i, 1) = np(i) 39。預(yù)測(cè)曲線 23 s(i, 2) = px(i) s(i, 3) = py(i) Next i 39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類(lèi)型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類(lèi)型 (Index).ShowLine = False 39。去除連線?。? (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎn)是否可見(jiàn) .Size = 120 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。選擇菱形的 . = False 39。顏色不自動(dòng)填充 . 400, 15, 400 39。設(shè)置為紫紅色 . 400, 15, 400 39。同樣這個(gè)也必須設(shè)置，否則中間有默認(rèn)的顏色 End With With .(VtChAxisIdX, 0).AxisTitle = t .(VtChAxisIdY, 0).AxisTitle = Np . = Np 與 t 關(guān)系曲線 End With 39。顯示圖形 = 2 = False 39。自動(dòng)調(diào)節(jié)圖形大小 = s End Sub Private Sub d3_Click() 39。含水率 fw 與時(shí)間 t 的關(guān)系曲線 24 = True ReDim px(yt), py(yt), s(yt, 3) 39。st = yt / 500 For i = 1 To mn px(i) = i py(i) = 100 * (1 10 ^ ((aa + ab * ynp(i) + Log( * ab) / Log(10)))) 39。含水率 fw 公式 If py(i) 0 Then py(i) = 0 39。實(shí)際散點(diǎn) s(i, 0) = px(i) s(i, 1) = fw(i) 39。預(yù)測(cè)曲線 s(i, 2) = px(i) s(i, 3) = py(i) Next i 39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類(lèi)型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類(lèi)型 (Index).ShowLine = False 39。去除連線??！ (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎn)是否可見(jiàn) .Size = 120 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。選擇菱形的 . = False 39。顏色不自動(dòng)填充 . 400, 15, 400 39。設(shè)置為紫紅色 . 400, 15, 400 39。同樣這個(gè)也必須設(shè)置，否則中間有默認(rèn)的顏色 End With With .(VtChAxisIdX, 0).AxisTitle = t .(VtChAxisIdY, 0).AxisTitle = fw 25 . = fw 與 t 關(guān)系曲線 End With 39。顯示圖形 = 2 = False 39。自動(dòng)調(diào)節(jié)圖形大小 = s End Sub Private Sub z1_Click() 39。Weibull 曲線 = True ReDim s(ub, 3) s(0, 0) = 0 s(0, 1) = a1 s(1, 0) = t(ub) ^ (bb1 + 1) s(1, 1) = a1 + a2 * t(ub) ^ (bb1 + 1) For i = 0 To ub Step 1 s(i, 0) = t(i) ^ (bb1 + 1) s(i, 1) = Log(q0(i) / (t(i) ^ bb1)) / Log(10) 39。實(shí)際散點(diǎn) s(i, 2) = t(i) ^ (bb1 + 1) s(i, 3) = a1 + a2 * t(i) ^ (bb1 + 1) Next i 39。橫縱坐標(biāo)表示 With .(VtChAxisIdX, 0).AxisTitle = t^(b+1) .(VtChAxisIdY, 0).AxisTitle = Log(qo/t^b) . = weibull 曲線 End With 26 39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類(lèi)型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類(lèi)型 (Index).ShowLine = False 39。去除連線 (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎn)是否可見(jiàn) .Size = 80 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。選擇菱形的 . = False 39。顏色不自動(dòng)填充 . 300, 30, 300 39。設(shè)置為黑色 . 300, 30, 300 End With = 2 = False = s End Sub Private Sub z2_Click() 39。乙型水驅(qū)規(guī)律曲線 = True ReDim px(ub), py(ub), s(ub, 3) s(0, 0) = 0 s(0, 1) = aa s(1, 0) = np(ub) s(1, 1) = aa + ab * np(ub) For i = 0 To ub Step 1 s(i, 0) = np(i) 39。實(shí)際散點(diǎn) s(i, 1) = lp(i) s(i, 2) = np(i) 27 s(i, 3) = np(i) * ab + aa Next i 39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類(lèi)型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類(lèi)型 (Index).ShowLine = False 39。去除連線 (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎn)是否可見(jiàn) .Size = 80 39。散點(diǎn)的大小 .Style = VtMarkerStyleFilledDiamond 39。選擇菱形的 . = False 39。顏色不自動(dòng)填充 . 400, 40, 400 39。設(shè) 置為黑色 . 400, 40, 400 39。同樣這個(gè)也必須設(shè)置，否則中間有默認(rèn)的顏色 End With 39。橫縱坐標(biāo)表示 With .(VtChAxisIdX, 0).AxisTitle = Np .(VtChAxisIdY, 0).AxisTitle = Log(Lp) . = 乙型水驅(qū)規(guī)律曲線 End With = 2 = False = s End Sub 28 結(jié)果 運(yùn)行 界面 如下： 29 數(shù)據(jù)輸入 讀取數(shù)據(jù) 、 計(jì)算數(shù)據(jù) ， 出現(xiàn)界面如下： 30 曲線繪制 Qo 與 t 曲線繪制 、 Np 與 t 曲線繪制 、 fw 與 t 曲線繪制 ， 數(shù)據(jù)輸入 輸出數(shù)據(jù)到表格， 出現(xiàn)界面如下： 31 曲線模型 Weibull曲線 、 乙型 水驅(qū)規(guī)律曲線 ，出現(xiàn)界面如下： 32 XXXX 石油大學(xué)課程設(shè)計(jì)成績(jī)?cè)u(píng)價(jià)表 課程名稱 石油工程課程設(shè)計(jì) 題目名稱 威布爾模型與乙型水驅(qū)曲線的聯(lián)解法 學(xué)生姓名 學(xué)號(hào) 指導(dǎo)教師姓名 職稱 講師 序號(hào) 評(píng)價(jià)項(xiàng)目 指 標(biāo) 滿分 評(píng)分 1 工作量、工作態(tài)度和出勤率 按期圓滿的完成了規(guī)定的任務(wù)，難易程度和工作量符合教學(xué)要求，工作努力，遵守紀(jì)律，出勤率高，工作作風(fēng)嚴(yán)謹(jǐn)，善于與他人合作。 20 2 課程設(shè)計(jì)質(zhì)量 課程設(shè)計(jì)選題合理，計(jì)算過(guò)程簡(jiǎn)練準(zhǔn)確，分析 問(wèn)題思路清晰，結(jié)構(gòu)嚴(yán)謹(jǐn)，文理通順，撰寫(xiě)規(guī)范，圖表完備正確。 45 3 創(chuàng)新 工作中有創(chuàng)新意識(shí)，對(duì)前人工作有一些改進(jìn)或有一定應(yīng)用價(jià)值。 5 4 答辯 能正確回答指導(dǎo)教師所提出的問(wèn)題。 30 總分 評(píng)語(yǔ)： 指導(dǎo)教師： 年 月 日