【正文】 顏色不自動填充 . 400, 40, 400 39。散點的大小 .Style = VtMarkerStyleFilledDiamond 39。去除連線(Index). = False With (Index).(1).Marker .Visible = True 39。數(shù)據(jù)Dim Index As Integer Index = 1 39。Y軸次要網格數(shù)量.(VtChAxisIdX). = VtPenStyleDotted.(VtChAxisIdY). = VtPenStyleDotted = False = False = VtChChartType2dXY 39。Y軸主要網格數(shù)量.(VtChAxisIdX). = 0 39。//.(VtChAxisIdX). = 12 39。// 設置最大值.(VtChAxisIdX). = 18.(VtChAxisIdY). = 200039。 39。 39。本句代表了：第一點數(shù)據(jù)的X軸坐標，Y軸坐標Next iFor i = 0 To 15MyData(i, 0) = b(i + 2): MyData(i, 1) = c(i + 2)Next i39。 ,Next jPrint 1, Left(strTemp, Len(strTemp) 1)Next iEnd WithClose 1End SubPrivate Sub Command3_Click()Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim e() As StringDim f() As StringDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1n = UBound(a)ReDim e(1 To n) As StringReDim f(1 To n) As StringFor i = 2 To UBound(a)e(i) = Str(Log(Val(c(i)) / Val(b(i))) / Log(Val(10)))f(i) = Str(Val(b(i)) ^ 2)Next iWith MSFlexGrid3(0, 0) = 年份(0, 1) = LogQ/t(0, 2) = t2.Rows = UBound(a)For i = 2 To UBound(a)(i 1, 0) = a(i)(i 1, 1) = e(i)(i 1, 2) = f(i)Next iEnd WithEnd SubPrivate Sub Command4_Click()k = 10 ^ Val()l = 1 / ( * Val())Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim g() As SingleDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1n = UBound(a)ReDim g(2 To n + 2) As SingleFor i = 2 To ng(i) = k * Val(b(i)) * Exp((Val(b(i)) ^ 2 / l))Next iWith MSFlexGrid4.Rows = UBound(a)For i = 0 To n 2(i + 1, 4) = g(i + 2)Next iEnd WithReDim MyData(n 2, 3) As Double39。參考文獻[1]陳元千. 瑞利模型的完善推導與應用[J]. 油氣地質與采收率，2004，11（4）：3941.[2]陳元千 油藏工程實踐[M].石油工業(yè)出版社,2003附 錄 程 序Private Sub Command2_Click()Dim a() As StringDim b() As StringDim c() As StringDim d() As StringDim i As Integeri = 1Open d:\ For Input As 1On Error GoTo hDo While Not EOF(1)ReDim Preserve a(i)ReDim Preserve b(i)ReDim Preserve c(i)ReDim Preserve d(i)Input 1, a(i), b(i), c(i), d(i)i = i + 1Looph:Close 1With MSFlexGrid1.Rows = UBound(a)For i = 1 To UBound(a)(i 1, 0) = a(i)(i 1, 1) = b(i)(i 1, 2) = c(i)(i 1, 3) = d(i)Next iEnd WithEnd SubPrivate Sub Command1_Click()Open d:\ For Output As 1With MSFlexGrid1k = .RowsFor i = 0 To k 1strTemp = For j = 0 To .Cols 1DoEventsstrTemp = strTemp amp。（5）通過這次的課程設計，培養(yǎng)了我獨立思考和動手操作的能力，也使我在日常的學習與討論當中增長了許多課外知識，認識到數(shù)學模型對油氣田的產量預測的重要性。同時，提高了使用計算機技應用的能力以及解決實際問題的工程應用能力，使理論與實踐相結合。（2）能熟練掌握、運用瑞利(Rayleigh)模型原理、推導及公式，可以對油氣田的年產量、累計產量、可采儲量、最高年產量、最高年產量發(fā)生的時間以及與最高年產量對應的累積產量進行預測。 圖42 實際與預測產量隨時間變化曲線在同一坐標系中繪制實際累計產量與預測累計產量及其對應時間t之間的關系曲線，繪于圖43。圖41 該油田與的半對數(shù)關系將a和c的數(shù)值代入式（37）得到該油田的可采儲量為11020104t；將c的值代入式（314）；將a和c的數(shù)值代入式（315）104t；將該油田可采儲量的數(shù)值代入式（318）104t。經線性回歸求得直線的截距α=；直線的斜率β=；直線的相關系數(shù)r=。當根據(jù)油氣田的實際生產數(shù)據(jù)，由式（322）進行線性回歸之后，可以求得直線的截距和斜率的數(shù)值，并由式（322）和式（21）確定模型常數(shù)a和c的數(shù)值。 由上述推導的結果可以看出，要想利用瑞利模型進行各項預測，就必須首先確定模型常數(shù)a和c的數(shù)值。再將式（314）代入式（311）得到預測最高年產量對應的累積產量為 （316）式中：為最高年產量對應的累積產量，104t/a（油），108m3/a（氣）。該可采儲量可視為，將數(shù)理統(tǒng)計中的理論分布轉為預測模型的轉換常數(shù)。由式(3l)表示的瑞利分布，在x從0到∞區(qū)間內的累積分布（或分布函數(shù)）等于1，因此可以得到關系式如下