威布爾模型與乙型水驅(qū)曲線的聯(lián)解法開發(fā)課程設(shè)計(jì)報(bào)告-資料下載頁
2025-08-03 11:31本頁面
【正文】 .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é)圖形大小 = sEnd SubPrivate Sub d3_Click()39。含水率fw與時(shí)間t的關(guān)系曲線 = TrueReDim px(yt), py(yt), s(yt, 3)39。st = yt / 500For i = 1 To mnpx(i) = ipy(i) = 100 * (1 10 ^ ((aa + ab * ynp(i) + Log( * ab) / Log(10)))) 39。含水率fw公式If py(i) 0 Then py(i) = 039。實(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 i39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類型 (Index).ShowLine = False 39。去除連線??！ (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎ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 . = fw與t關(guān)系曲線End With 39。顯示圖形 = 2 = False 39。自動(dòng)調(diào)節(jié)圖形大小 = sEnd SubPrivate Sub z1_Click()39。Weibull曲線 = TrueReDim s(ub, 3)s(0, 0) = 0s(0, 1) = a1s(1, 0) = t(ub) ^ (bb1 + 1)s(1, 1) = a1 + a2 * t(ub) ^ (bb1 + 1)For i = 0 To ub Step 1s(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 i39。橫縱坐標(biāo)表示W(wǎng)ith .(VtChAxisIdX, 0).AxisTitle = t^(b+1) .(VtChAxisIdY, 0).AxisTitle = Log(qo/t^b) . = weibull 曲線End With39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類型 (Index).ShowLine = False 39。去除連線 (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎ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 = sEnd SubPrivate Sub z2_Click()39。乙型水驅(qū)規(guī)律曲線 = TrueReDim px(ub), py(ub), s(ub, 3)s(0, 0) = 0s(0, 1) = aas(1, 0) = np(ub)s(1, 1) = aa + ab * np(ub)For i = 0 To ub Step 1s(i, 0) = np(i) 39。實(shí)際散點(diǎn)s(i, 1) = lp(i)s(i, 2) = np(i)s(i, 3) = np(i) * ab + aaNext i39。散點(diǎn) Dim Index As Integer Index = 1 39。設(shè)置圖標(biāo)類型為非自動(dòng)選擇，這樣可以設(shè)置為自己需要的類型 (Index).ShowLine = False 39。去除連線 (Index). = False With (Index).(1).Marker .Visible = True 39。散點(diǎn)的點(diǎ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 With39。橫縱坐標(biāo)表示W(wǎng)ith .(VtChAxisIdX, 0).AxisTitle = Np .(VtChAxisIdY, 0).AxisTitle = Log(Lp) . = 乙型水驅(qū)規(guī)律曲線End With = 2 = False = sEnd Sub結(jié)果運(yùn)行界面如下：數(shù)據(jù)輸入讀取數(shù)據(jù)、計(jì)算數(shù)據(jù)，出現(xiàn)界面如下：曲線繪制Qo與t曲線繪制、Np與t曲線繪制、fw與t曲線繪制，數(shù)據(jù)輸入輸出數(shù)據(jù)到表格，出現(xiàn)界面如下：曲線模型 Weibull曲線、乙型水驅(qū)規(guī)律曲線，出現(xiàn)界面如下：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)，善于與他人合作。202課程設(shè)計(jì)質(zhì)量課程設(shè)計(jì)選題合理，計(jì)算過程簡(jiǎn)練準(zhǔn)確，分析問題思路清晰，結(jié)構(gòu)嚴(yán)謹(jǐn)，文理通順，撰寫規(guī)范，圖表完備正確。453創(chuàng)新工作中有創(chuàng)新意識(shí)，對(duì)前人工作有一些改進(jìn)或有一定應(yīng)用價(jià)值。54答辯能正確回答指導(dǎo)教師所提出的問題。30總分評(píng)語：指導(dǎo)教師： 年 月 日34
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1