s(i, 2) = px(i) s(i, 3) = py(i) Next i '散点
Dim Index As Integer
Index = 1 '设置图标类型为非自动选择，这样可以设置为自己需要的类型 MSChart2.Plot.SeriesCollection(Index).ShowLine = False '去除连线！！
MSChart2.Plot.SeriesCollection.Item(Index).SeriesMarker.Auto = False With MSChart2.Plot.SeriesCollection.Item(Index).DataPoints.Item(-1).Marker .Visible = True '散点的点是否可见 .Size = 120 '散点的大小
.Style = VtMarkerStyleFilledDiamond '选择菱形的 .FillColor.Automatic = False '颜色不自动填充
.FillColor.Set 400, 15, 400 '设置为紫红色
.Pen.VtColor.Set 400, 15, 400 '同样这个也必须设置，否则中间有默认的颜色
End With
With Form1.MSChart2
.Plot.Axis(VtChAxisIdX, 0).AxisTitle = \ .Plot.Axis(VtChAxisIdY, 0).AxisTitle = \
.Title.Text = \与t关系曲线\End With '显示图形
MSChart2.Column = 2
MSChart2.Plot.UniformAxis = False '自动调节图形大小 MSChart2.ChartData = s End Sub
Private Sub d3_Click()
'含水率fw与时间t的关系曲线
23
MSChart3.Visible = 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(2.303 * 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 '设置图标类型为非自动选择，这样可以设置为自己需要的类型 MSChart3.Plot.SeriesCollection(Index).ShowLine = False '去除连线！！ MSChart3.Plot.SeriesCollection.Item(Index).SeriesMarker.Auto = False With MSChart3.Plot.SeriesCollection.Item(Index).DataPoints.Item(-1).Marker .Visible = True '散点的点是否可见 .Size = 120 '散点的大小
.Style = VtMarkerStyleFilledDiamond '选择菱形的 .FillColor.Automatic = False '颜色不自动填充 .FillColor.Set 400, 15, 400 '设置为紫红色
.Pen.VtColor.Set 400, 15, 400 '同样这个也必须设置，否则中间有默认的颜色
End With
With Form1.MSChart3
.Plot.Axis(VtChAxisIdX, 0).AxisTitle = \ .Plot.Axis(VtChAxisIdY, 0).AxisTitle = \
24
.Title.Text = \与t关系曲线\End With '显示图形
MSChart3.Column = 2
MSChart3.Plot.UniformAxis = False '自动调节图形大小 MSChart3.ChartData = s End Sub
Private Sub z1_Click() 'Weibull曲线
Form2.MSChart1.Visible = 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 Form2.MSChart1
.Plot.Axis(VtChAxisIdX, 0).AxisTitle = \ .Plot.Axis(VtChAxisIdY, 0).AxisTitle = \
.Title.Text = \曲线\End With
25
'散点
Dim Index As Integer
Index = 1 '设置图标类型为非自动选择，这样可以设置为自己需要的类型 Form2.MSChart1.Plot.SeriesCollection(Index).ShowLine = False '去除连线 Form2.MSChart1.Plot.SeriesCollection.Item(Index).SeriesMarker.Auto = False With Form2.MSChart1.Plot.SeriesCollection.Item(Index).DataPoints.Item(-1).Marker .Visible = True '散点的点是否可见 .Size = 80 '散点的大小
.Style = VtMarkerStyleFilledDiamond '选择菱形的 .FillColor.Automatic = False '颜色不自动填充 .FillColor.Set 300, 30, 300 '设置为黑色 .Pen.VtColor.Set 300, 30, 300
End With
Form2.MSChart1.Column = 2
Form2.MSChart1.Plot.UniformAxis = False Form2.MSChart1.ChartData = s Form2.Show End Sub
Private Sub z2_Click()
'乙型水驱规律曲线
Form2.MSChart2.Visible = 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)
26
s(i, 3) = np(i) * ab + aa Next i '散点
Dim Index As Integer
Index = 1 '设置图标类型为非自动选择，这样可以设置为自己需要的类型 Form2.MSChart2.Plot.SeriesCollection(Index).ShowLine = False '去除连线 Form2.MSChart2.Plot.SeriesCollection.Item(Index).SeriesMarker.Auto = False With Form2.MSChart2.Plot.SeriesCollection.Item(Index).DataPoints.Item(-1).Marker .Visible = True '散点的点是否可见 .Size = 80 '散点的大小
.Style = VtMarkerStyleFilledDiamond '选择菱形的 .FillColor.Automatic = False '颜色不自动填充 .FillColor.Set 400, 40, 400 '设置为黑色
.Pen.VtColor.Set 400, 40, 400 '同样这个也必须设置，否则中间有默认的颜色
End With
'横纵坐标表示 With Form2.MSChart2
.Plot.Axis(VtChAxisIdX, 0).AxisTitle = \
.Plot.Axis(VtChAxisIdY, 0).AxisTitle = \
.Title.Text = \乙型水驱规律曲线\End With
Form2.MSChart2.Column = 2
Form2.MSChart2.Plot.UniformAxis = False Form2.MSChart2.ChartData = s Form2.Show End Sub
27
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库威布尔模型与乙型水驱曲线的联解法开发课程设计报告(6)在线全文阅读。
相关推荐：