Всем привет. Пытаюсь построить функцию вида y=f(x) используя контрол MSChart. Нашел два варианта решения, но никак не могу разобраться, как к своему проекту применить.
| Код |
Private Sub Command1_Click()
Dim M As Single
Dim N As Single, b As Single
Dim xmin As Single, xmax As Single
Dim xstep As Single
Dim X As Single
Dim values() As Single
Dim i As Integer
Dim num_x As Integer
M = 14: N = 12: b = 13
xmin = -10
xmax = 10
xstep = 1
num_x = (xmax - xmin) / xstep
ReDim values(1 To num_x, 1 To 2)
X = xmin
For i = 1 To num_x
values(i, 2) = N * X ^ 2 - M * X + b
X = X + xstep
Next i
MSChart1.chartType = VtChChartType2dLine
MSChart1.ChartData = values
End Sub
|
Вот этот вариант близок к тому, что мне надо, но рисует лишнюю линию…
Хотелось бы, что бы в интервале x=-10…10 строилась кривая y=f(x), а по осям абсцисс и ординат было видно, что построена именно эта функция. Спасибо.
|
)