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

　　

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