威布尔模型与乙型水驱曲线的联解法课程设计报告9150.pdf

XXXX 石 油 大 学 课 程 设 计 年 月 日 课 程 石油工程课程设计 题 目 威布尔模型与乙型水驱曲线的联解法 院 系 石油工程学院 专业班级 油工 班 学生姓名 学生学号 指导教师 XXXX 石油大学课程设计任务书 课程 石油工程课程设计 题目 威布尔模型与乙型水驱曲线的联解法 专业 石油工程 姓名 学号 主要内容、基本要求、主要参考资料等 主要内容：(1)推导威布尔模型及其与乙型水驱曲线联解关系式的预测模型；(2)根据油气田实际生产数据，进行线性回归，求得乙型水驱曲线的截距、斜率；(3)根据相关公式，确定威布尔（Weibull）模型常数 a、b、c；(4)计算油田年产油量；(5)计算油田累积产油量；(6)计算含水率；(7)计算可采储量；(8)计算最高年产量发生的时间；(9)计算最高年产量；(10)绘制油田实际年产量与预测产量对比曲线；(11)绘制油田实际累积产量与预测累积产量对比曲线。基本要求：该专题设计最终要求是，学生通过自选基础数据，利用威布尔模型与乙型水驱曲线联解预测模型，结合油田实际生产资料，预测选定油气田的年产量、累积产量、含水率、可采储量、最高年产量、最高年产量发生的时间等开发指标，并编制相应软件，并提交规范设计报告。主要参考资料 1陈元千.预测油气田产量的 Weibull 模型J.新疆石油地质，1995，16（3）：250-255.2童宪章.天然水驱和人工注水油藏的统计规律探讨J.石油勘探与开发，1978，4（6）：38-64.3 陈元千.一种新型水驱曲线关系式的推导及应用J.石油学报，1993，14（2）：65-73.4 陈元千.水驱曲线关系式的推导J.石油学报，1985，6（2）：69-78.完成期限 指导教师 专业负责人 年 月 日 目 录 1 前 言.错误!未定义书签。设计的目的意义.错误!未定义书签。设计的主要内容.错误!未定义书签。2 基础数据.错误!未定义书签。3 基础理论.错误!未定义书签。威布尔预测模型的建立.错误!未定义书签。威布尔模型与乙型水驱曲线的联解法.错误!未定义书签。模型的求解方法.错误!未定义书签。4 设计结果.错误!未定义书签。认识与结论.错误!未定义书签。参考文献.错误!未定义书签。附录：计算机程序与结果.错误!未定义书签。1 前 言 设计的目的意义 本课题的目的是让学生通过自选一组数据，利用所学专业知识在指导教师的指导下独立完成对某一油田或区块开发指标的预测。本课题要求学生对威布尔（Weibull）模型及其与乙型水驱曲线联解关系式进行推导，其结果包括，对油气田的年产量、累积产量、含水率、可采储量、最高年产量、最高年产量发生的时间的预测方法。从而将理论知识和实际问题相结合，通过该专题设计的训练，加强学生理论知识运用能力，计算机技术应用能力及解决实际问题的工程应用能力。设计的主要内容 根据已有的基础数据，利用所学的专业知识，在指导教师指导下独立完成并提交一个油田或一个区块油田开发指标预测结果，设计主要内容如下：（1）推导威布尔模型及其与乙型水驱曲线联解关系式；（2）根据油气田实际生产数据，进行线性回归，求得乙型水驱曲线的截距、斜率；（3）根据相关公式，确定威布尔（Weibull）模型常数 a、b、c；（4）计算油田年产油量；（5）计算油田累积产油量；（6）计算含水率；（7）计算可采储量；（8）计算最高年产量发生的时间；（9）计算最高年产量；（10）绘制油田实际年产量与预测产量对比曲线；（11）绘制油田实际累积产量与预测累积产量对比曲线。2 基础数据 某油田的开发数据如下：表 2-1 某油田开发数据 年份 时间（a）Qo（104t/a）Qw（104t/a）Np（104t）Wp（104t）Lp（104t）1968 1 1969 2 1970 3 1971 4 1972 5 1973 6 1974 7 1975 8 1976 9 1977 10 1978 11 1979 12 1980 13 1981 14 1982 15 1983 16 1984 17 1985 18 1986 19 1987 20 1988 21 1989 22 1990 23 3 基础理论 威布尔（Weibull）预测模型能够很好地预测油田产油量随时间的变化关系，但却不能预测油田的含水率、产水量、产液量及累积产水量和累积产液量，而这些开发指标正是水驱开发油田所需要预测的。乙型水驱曲线法是油藏工程中重要的预测方法，但它只能预测累积产水量与累积产油量之间的关系，却不能预测开发指标与开发时间的关系，而油田开发指标的预测，都离不开与开发时间的联系。将 Weibull 预测模型和乙型水驱曲线法相结合，则能够预测水驱油田的含水率、产油量、产水量、产液量、可采储量及其相应的累积产量随开发时间变化的联解法。联解法既能保持两种方法原有的预测功能，又克服了两者的局限性。威布尔预测模型的建立 Weibull(威布尔)于 1939 年提出的统计分布模型已成为生命试验和可靠性理论研究的基础。该模型的分布密度表示为：)/(1)(xexxf (3-1)式中 f(x)威布尔分布的分布密度函数；x分布变量，根据实际问题，分布区间为 0；控制分布形态的形状参数；控制分布峰位和峰值的尺度参数。若对(3-l)式进行积分，在x为 0区间内，可以得到 Weibu11 的分布函数值等于 1，推证如下：1)/()()(0)/(0)/(00 xxxxxxxxfxFededed)/(-1 （3-2）为将 Weibull分布模型用于油气田开发指标的预测，将(3-l)式改写为)/(1ttCQe (3-3)式中 Q油气田的年产量，104t/a（油）或108m3/a（气）；t 油气田的开发时间，a；C由 Weibull分布模型转换为油气田开发实用模型的模型转换常数。油气田的累积产量表达式为：ttQN0dp （3-4）式中 NP油气田的累积产量，104t 或 108t(油)；108m(气)。式中 NP油气田的累积产量，104t 或 108t(油)；108m(气)。将（3-3）代入（3-4）式并考虑（3-2）式中的变量变换法，t从 0 到t积分得：()p1lNCe （3-5）当t 时，()0le，则pRNCN,因此（3-5）式又可改写为：()pR1lNNe （3-6）在得到上面的结果之后，便可对模型转换常数的性质和作用做这样的说明：由于Weibull分布模型，在x从 0 到区间的分布函数F（x）=,这相当于实际开发的油气田，在t从 0 到区间的累积产量，即油气田的可采储量。因此，为了能够得到（3-5）式的结果，就必须在（3-3）中引入模型转换常数C。而该模型转换常数就是油气田的可采储量。因此，可以将（3-3）式再改写为：1(/)RetNQt （3-7）为了确定最高年产量发生的时间，有（3-7）式对时间t求导数得：2(/)Rd1edtNQttt （3-8）当ddQt=0 时，必然有1t=0，故可以得到最高年产量发生的时间tm为：1/1mt （3-9）将（3-9）式代入（3-7）式，得到油气田的最高年产量（Qmax）的表达式：1/1 1/1/maxR1eQN （3-10）再将（3-9）式代入（3-6）式，得到油气田最高年产量发生时的累积产量（Npm）为：1/pmR1 eNN （3-11）油气田的剩余可采储量NRR表示为：RRRPNNN （3-12）将（3-6）式代入（3-12）式得：/RRRetNN （3-13）剩余可采储量的储采比表示为：RR/NQ （3-14）将（3-7）式和（3-13）式代入（3-14）式得：1/()t （3-15）剩余可采储量的采油速度为储采比的倒数，故由（3-15）式得到剩余可采储量采油速度o的表达式：1o()/t （3-16）式中o以小数 f 表示，若改以百分数%表示时，（3-16）式改为下式：1o(100/)%t （3-17）威布尔模型与乙型水驱曲线的联解法 利用数理统计学中的威布尔（Weibull）分布，研究与推导得到了威布尔（Weibull）预测模型1。该模型具有预测油田产量、累积产量和可采储量的功能，其基本关系式分别为：1oexpbbtQatc （3-18）1p1exp()1bactNbc （3-19）R1acNb （3-20）乙型水驱曲线法，首先是由我国著名专家童宪章先生2以经验公式的形式，于 1978年提出。它的理论推导由文献 3完成，其基本关系式为：ppBNALlg （3-21）由（3-21）式对时间 t 求导数得：tNBtLLddddppp303.21 （3-22）已知：wopddQQtL；opddQtN；woowRQQ 故由（3-22）式得：)1(303.21wopRBL （3-23）将（3-23）式代入（3-21）式得：BBNAR303.2lg)1lg(pwo （3-24）取经济极限水油比(Rwo)L，由（24）式得到预测油田可采储量的关系式：BBARN)303.2lg()(1lgLwoR （3-25）已知水油比与含水率的关系为：wwwoffR1 （3-26）将（3-26）式代入（3-24）式得：)303.2lg(101BBNAfpw （3-27）将（3-19）式代入（3-27）式得：BctbacBAbf303.2lg)exp(111101w （3-28）当由（3-18）式和（3-28）式得到预测的产油量和含水率之后，可由下面的公式分别预测油田的产水量和产液量：)1(wwowffQQ （3-29）)11(woLfQQ （3-30）最高年产量发生的时间tm的计算公式如下：11m1bbbct 最高年产量Qmax为：11maxe1bbbbbbcaQ 模型的求解方法 为了确定预测模型的模型常数a、b、c以及可采储量NR的数值，对（3-18）式可进行如下处理：1303.21lglgbbtcatQo （3-31）若设：alg （3-32）c303.21 （3-33）则得：1lgbbttQo （3-34）根据实际的开发数据，首先利用（3-34）式进行线性试差求解，根据最大线性相关系数求出b，然后利用最小二乘法求得和。再由（3-32）式和（3-33）式改写的下式，分别确定模型的常数a和c的数值：10a （3-35）303.21c （3-36）确定出预测模型参数a、b、c后，即可根据（3-20）式求解出可采储量NR。在确定预测模型常数a、b、c、NR时，其值是否正确可靠，要利用（3-18）式、（3-19）式、（3-28）式预测的理论产油量、累积产油量和含水率，与实际产油量、累积产油量和含水率进行对比加以确定，而达到最佳拟合效果的参数才是最准确、可靠的。4 设计结果 将表 1 中的累积产液量（Lp）和相应的累积产油量（NP）数据，按照（3-21）式的直线关系绘于图 4-1，得到了一条很好的直线。经线性回归求得直线的截距 A=；直线的斜率B=；直线的相关系数 r=。图 4-1 该油田的乙型水驱曲线 将表 1 中的 Log(Qo/t)和相应的t(b+1)数据，按照（3-34）式的直线关系绘于图 4-2，得到了一条很好的直线。经线性回归求得直线的截距=；直线的斜率=；参数a=，b=，c=，直线的相关系数 r=。图 4-2 该油田的 weibull 曲线 在确定预测模型常数a、b、c后，利用（3-18）式、（3-19）式、（3-28）式计算油田年产油量、计算油田累积产油量、计算含水率如下表：表 4-1 数据表 时间（a）实际产量 预测产量 实际累计产量 预测累计产量 实际含水率 预测含水率 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 11 12 13 14 15 16 17 18 19 20 87 21 2747 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 计算可采储量：NR=（104t），计算最高年产量发生的时间：，计算最高年产量：Qmax=(104t)。预测的理论产油量、累积产油量和含水率，与实际产油量、累积产油量和含水率进行对比。按照（3-18）式的关系在同一坐标系中绘制实际产量与预测产量及其对应时间t之间的关系曲线，绘于图4-3。图 4-3 产量与时间关系曲线 按照（3-19）式的关系在同一坐标系中绘制实际累计产量与预测累计产量及其对应时间t之间的关系曲线，绘于图 4-4。图 4-4 累计产量与时间关系曲线 按照（3-28）式的关系在同一坐标系中绘制实际含水率与预测含水率及其对应时间t之间的关系曲线，绘于图 4-5。图 4-5 含水率与时间关系曲线 认识与结论 通过本次课程设计，得出如下认识与结论：（1）通过此次油田开发的课程设计，我基本掌握了威布尔（Weibull）模型与乙型水驱曲线联解法，并能初步对油田进行预测分析。（2）通过这次的课程设计，培养了我独立思考和动手操作的能力，也使我在日常的学习与讨论当中增长了许多课外知识，认识到数学模型对油气田的产量预测的重要性。虽然在课程设计的过程中遇到了一些问题，但经过反复的思考与检查找出原因所在并进行改正。（3）通过计算机的编程学习与操作，使我对 VB 语言有了更进一步的认识和了解。同时，提高了使用计算机技应用的能力以及解决实际问题的工程应用能力，使理论与实践相结合。（4）现在能熟练掌握、运用威布尔（Weibull）模型与乙型水驱曲线联解法的原理、推导及公式，可以对油气田的年产量、累计产量、含水率、可采储量、最高年产量、最高年产量发生的时间以及与最高年产量对应的累积产量进行预测。（5）这次课程设计，使我认识到学好计算机的重要性与实践操作的必要性，在老师的指导下和与同学的讨论中，不断地发现问题、不断地解决问题、不断地领悟、不断地获取，使自己的程序不断完善。（6）课程设计诚然是一门专业课，它给了我很多的专业知识以及专业上的提升。课程设计同时又是一门讲道课，一门思辨课，给了我许多道，给了我许多思，得到很大的提升空间。参考文献 1陈元千.预测油气田产量的 Weibull 模型J.新疆石油地质，1995，16（3）：250-255.2童宪章.天然水驱和人工注水油藏的统计规律探讨J.石油勘探与开发，1978，4（6）：38-64.3 陈元千.一种新型水驱曲线关系式的推导及应用J.石油学报，1993，14（2）：65-73.4 陈元千.水驱曲线关系式的推导J.石油学报，1985，6（2）：69-78.附录：计算机程序与结果 计算机程序 Option Base 0 Const e=Dim a,t(200),qt(200),t0(200),q0(200),qw(200),ye(200),wp(200)Dim b,c,d Dim afw,qmax,tm,NR,x,y,a1,a2,r,rmax,bmax,aa1,bb1,cc1,ub,aa,ab,ar,br,yt,an,bn,mn Dim s(),px(),py()Dim sx,sy,sxy,sx2,sy2 Dim np(200),lp(200)Dim yq0(200),ynp(200),yfw(200),ynr,fw(200)Private Sub c1_Click()yt=50 Rem 源数据输入 Open +For Input As#1 ub=-1 Do Until EOF(1)ub=ub+1 Input#1,ye(ub),t(ub),q0(ub),qw(ub),np(ub),wp(ub),lp(ub)lp(ub)=Log(lp(ub)/Log(10)Loop Close#1 Private Sub c5_Click()Rem 乙型参数计算 For an=ub To 2 Step-1 求相关系数 r,趋势线 sx=0:sy=0:sxy=0:sx2=0:sy2=0 l=ub-an For i=l To an+l sx=sx+np(i)Next i For i=l To an+l sy=sy+lp(i)Next i For i=l To an+l sxy=sxy+np(i)*lp(i)Next i For i=l To an+l sx2=sx2+np(i)2 Next i For i=l To an+l sy2=sy2+lp(i)2 Next i a2=(an+1)*sxy-sx*sy)/(an+1)*sx2-sx 2)a1=(sx2*sy-sx*sxy)/(an+1)*sx2-sx 2)r=(an+1)*sxy-sx*sy)/(an+1)*sx2-sx 2)*(an+1)*sy2-sy 2)取最大值 r If r ar Then ar=r Next an aa=a1 ab=a2 =aa 截距，参数 A =ab 斜率，参数 B =ar 最大相关系数 Rem weibull 参数计算 bn=12 l=ub-bn bmax=0 rmax=0 For b=1 To 2 Step sx=0:sy=0:sxy=0:sx2=0:sy2=0 For i=l To l+bn t(i)=i+1 Next i For i=l To l+bn qt(i)=Log(q0(i)/(t(i)b)/Log(10)t0(i)=t(i)(b+1)Next i For i=l To l+bn sx=sx+t0(i)Next i For i=l To l+bn sy=sy+qt(i)Next i For i=l To l+bn sxy=sxy+qt(i)*t0(i)Next i For i=l To l+bn sx2=sx2+t0(i)2 Next i For i=l To l+bn sy2=sy2+qt(i)2 Next i r=Abs(bn+1)*sxy-sx*sy)/(bn+1)*sx2-sx 2)*(bn+1)*sy2-sy 2)最大相关系数 If r rmax Then r 取最大值 rmax=r bmax=b a2=(bn+1)*sxy-sx*sy)/(bn+1)*sx2-sx 2)a1=(sx2*sy-sx*sxy)/(bn+1)*sx2-sx 2)End If Next b aa1=10 a1 bb1=bmax cc1=-1/*a2)afw=100*(1-10 (-(aa+ab*aa1*cc1/(bb1+1)+Log*ab)/Log(10)极限含水率 fw 公式，fw=1-10(-A+B(a*c/(b+1)(1-exp(-t(b+1)/c)tm=(bb1*cc1/(bb1+1)(1/(bb1+1)最高年产量对应时间 tm 公式，tm=(b*c/(b+1)(1/(b+1)qmax=aa1*(bb1*cc1/(bb1+1)(bb1/(bb1+1)*Exp(-bb1/(bb1+1)最高年产量 Qmax 公式，Qmax=a*(b*c/(b+1)(b/(b+1)*exp(-b/(b+1)NR=aa1*cc1/(bb1+1)可采储量 NR 公式，NR=a*c/(b+1)=a2 斜率 =a1 截距 =rmax 最大相关系数 =aa1 参数 a =bb1 参数 b =cc1 参数 c =afw 极限含水率 =qmax 最高年产量 =tm 最高年产量对应时间 =NR 可采储量 Rem 预测数据 For i=0 To yt t(i)=i+1 yq0(i)=Round(aa1*(t(i)bb1)*(e (-t(i)(bb1+1)/cc1),2)ynp(i)=Round(aa1*cc1*(1-(e (-t(i)(bb1+1)/cc1)/(bb1+1),2)If i=ub Then fw(i)=Round(100*qw(i)/(qw(i)+q0(i),2)yfw(i)=Round(100*(1-10 (-(aa+ab*ynp(i)+Log*ab)/Log(10),2)If yfw(i)0 Then yfw(i)=0 Next i mn=50 Rem 表格输出 (0)=1000 表格行宽(1)=1200(2)=1200(3)=1200(4)=1200(5)=1200(6)=1200 =201 =7 =(1)*+*12 =(1)*+*12(0,0)=时间/a(0,1)=实际产量(0,2)=预测产量(0,3)=实际累计产量(0,4)=预测累计产量(0,5)=实际含水率%(0,6)=预测含水率%For i=0 To mn(i+1,0)=Format(t(i),0.#)(i+1,1)=Format(q0(i),0.#)(i+1,2)=Format(yq0(i),0.#)(i+1,3)=Format(np(i),0.#)(i+1,4)=Format(ynp(i),0.#)(i+1,5)=Format(fw(i),0.#)(i+1,6)=Format(yfw(i),0.#)Next i 横纵坐标 With MSChart1.ColumnCount=2 .(1).=15 .(1).=VtPenStyleSolid .(VtChAxisIdX).=True .(VtChAxisIdY).=True .(VtChAxisIdY).=0 .(VtChAxisIdX).=0 .(VtChAxisIdX).=6 .(VtChAxisIdY).=6 .(VtChAxisIdX).=0 .(VtChAxisIdY).=0 .(VtChAxisIdX).=VtPenStyleDotted .(VtChAxisIdY).=VtPenStyleDotted =False =False =VtChChartType2dXY 二维坐标 .Column=1 End With With MSChart2.ColumnCount=2 .(1).=15 .(1).=VtPenStyleSolid .(VtChAxisIdX).=True .(VtChAxisIdY).=True .(VtChAxisIdY).=0 .(VtChAxisIdX).=0 .(VtChAxisIdX).=6 .(VtChAxisIdY).=6 .(VtChAxisIdX).=0 .(VtChAxisIdY).=0 .(VtChAxisIdX).=VtPenStyleDotted .(VtChAxisIdY).=VtPenStyleDotted =False =False =VtChChartType2dXY .Column=1 End With With MSChart3.ColumnCount=2 .(1).=15 .(1).=VtPenStyleSolid .(VtChAxisIdX).=True .(VtChAxisIdY).=True .(VtChAxisIdY).=0 .(VtChAxisIdX).=0 .(VtChAxisIdX).=6 .(VtChAxisIdY).=6 .(VtChAxisIdX).=0 .(VtChAxisIdY).=0 .(VtChAxisIdX).=VtPenStyleDotted .(VtChAxisIdY).=VtPenStyleDotted =False =False =VtChChartType2dXY .Column=1 End With End Sub Private Sub c2_Click()=True 输出数据在表格内 Rem 曲线绘制 Rem 数据输出 End Sub Private Sub c3_Click()文件输出 Open +For Output As#2 Print#2,年份,时间,预测产量,预测累计产量,预测含水率 For i=0 To yt Print#2,ye(0)+i,i+1,yq0(i),ynp(i),yfw(i)Next i Close#2 Print End Sub Private Sub c4_Click()End End Sub Private Sub d1_Click()理论产油量 Qo 与时间 t 的关系曲线绘制 =True ReDim px(yt),py(yt),s(yt,3)st=yt/500 For i=1 To mn px(i)=i py(i)=aa1*(px(i)bb1)*(e (-px(i)(bb1+1)/cc1)理论产油量 Qo 公式 实际散点 s(i,0)=px(i)s(i,1)=q0(i)预测曲线 s(i,2)=px(i)s(i,3)=py(i)Next i 散点 Dim Index As Integer Index=1 设置图标类型为非自动选择，这样可以设置为自己需要的类型 =False 去除连线！=False With .Visible=True 散点的点是否可见 .Size=120 散点的大小 .Style=VtMarkerStyleFilledDiamond 选择菱形的 .=False 颜色不自动填充 .400,15,400 设置为紫红色 .400,15,400 同样这个也必须设置，否则中间有默认的颜色 End With 横纵坐标表示 With .(VtChAxisIdX,0).AxisTitle=t .(VtChAxisIdY,0).AxisTitle=Qo .=Qo 与 t 关系曲线 End With =s 显示图形 End Sub Private Sub d2_Click()累积产油量 Np 与时间 t 的关系曲线 =True ReDim px(yt),py(yt),s(yt,3)st=yt/500 For i=1 To mn px(i)=i py(i)=aa1*cc1*(1-(e (-px(i)(bb1+1)/cc1)/(bb1+1)累计产油量 Np公式 实际散点 s(i,0)=px(i)s(i,1)=np(i)预测曲线 s(i,2)=px(i)s(i,3)=py(i)Next i 散点 Dim Index As Integer Index=1 设置图标类型为非自动选择，这样可以设置为自己需要的类型 =False 去除连线！=False With .Visible=True 散点的点是否可见 .Size=120 散点的大小 .Style=VtMarkerStyleFilledDiamond 选择菱形的 .=False 颜色不自动填充 .400,15,400 设置为紫红色 .400,15,400 同样这个也必须设置，否则中间有默认的颜色 End With With .(VtChAxisIdX,0).AxisTitle=t .(VtChAxisIdY,0).AxisTitle=Np .=Np 与 t 关系曲线 End With 显示图形 =2 =False 自动调节图形大小 =s End Sub Private Sub d3_Click()含水率 fw 与时间 t 的关系曲线 =True ReDim px(yt),py(yt),s(yt,3)st=yt/500 For i=1 To mn px(i)=i py(i)=100*(1-10 (-(aa+ab*ynp(i)+Log*ab)/Log(10)含水率 fw 公式 If py(i)0 Then py(i)=0 实际散点 s(i,0)=px(i)s(i,1)=fw(i)预测曲线 s(i,2)=px(i)s(i,3)=py(i)Next i 散点 Dim Index As Integer Index=1 设置图标类型为非自动选择，这样可以设置为自己需要的类型 =False 去除连线！=False With .Visible=True 散点的点是否可见 .Size=120 散点的大小 .Style=VtMarkerStyleFilledDiamond 选择菱形的 .=False 颜色不自动填充 .400,15,400 设置为紫红色 .400,15,400 同样这个也必须设置，否则中间有默认的颜色 End With With .(VtChAxisIdX,0).AxisTitle=t .(VtChAxisIdY,0).AxisTitle=fw .=fw 与 t 关系曲线 End With 显示图形 =2 =False 自动调节图形大小 =s End Sub Private Sub z1_Click()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)实际散点 s(i,2)=t(i)(bb1+1)s(i,3)=a1+a2*t(i)(bb1+1)Next i 横纵坐标表示 With .(VtChAxisIdX,0).AxisTitle=t(b+1).(VtChAxisIdY,0).AxisTitle=Log(qo/tb).=weibull 曲线 End With 散点 Dim Index As Integer Index=1 设置图标类型为非自动选择，这样可以设置为自己需要的类型 =False 去除连线 =False With .Visible=True 散点的点是否可见 .Size=80 散点的大小 .Style=VtMarkerStyleFilledDiamond 选择菱形的 .=False 颜色不自动填充 .300,30,300 设置为黑色 .300,30,300 End With =2 =False =s End Sub Private Sub z2_Click()乙型水驱规律曲线 =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)实际散点 s(i,1)=lp(i)s(i,2)=np(i)s(i,3)=np(i)*ab+aa Next i 散点 Dim Index As Integer Index=1 设置图标类型为非自动选择，这样可以设置为自己需要的类型 =False 去除连线 =False With .Visible=True 散点的点是否可见 .Size=80 散点的大小 .Style=VtMarkerStyleFilledDiamond 选择菱形的 .=False 颜色不自动填充 .400,40,400 设置为黑色 .400,40,400 同样这个也必须设置，否则中间有默认的颜色 End With 横纵坐标表示 With .(VtChAxisIdX,0).AxisTitle=Np .(VtChAxisIdY,0).AxisTitle=Log(Lp).=乙型水驱规律曲线 End With =2 =False =s End Sub 结果 运行界面如下：数据输入-读取数据、计算数据，出现界面如下：曲线绘制-Qo 与t曲线绘制、Np 与t曲线绘制、fw与t曲线绘制，数据输入-输出数据到表格，出现界面如下：曲线模型-Weibull 曲线、乙型水驱规律曲线，出现界面如下：XXXX 石油大学课程设计成绩评价表 课程名称 石油工程课程设计 题目名称 威布尔模型与乙型水驱曲线的联解法 学生姓名 学号 指导教师姓名 职称 讲师 序号 评价项目 指 标 满分 评分 1 工作量、工作态度和出勤率 按期圆满的完成了规定的任务，难易程度和工作量符合教学要求，工作努力，遵守纪律，出勤率高，工作作风严谨，善于与他人合作。20 2 课程设计质量 课程设计选题合理，计算过程简练准确，分析问题思路清晰，结构严谨，文理通顺，撰写规范，图表完备正确。45 3 创新 工作中有创新意识，对前人工作有一些改进或有一定应用价值。5 4 答辩 能正确回答指导教师所提出的问题。30 总分 评语：指导教师：年 月 日