VPF::MSChart y=f(x) - Форум программистов

CaptainNemo

Дата 7.9.2009, 00:01 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 5.6.2008
Где: White Russia, Min sk

Репутация: нет
Всего: 9

Всем привет. Пытаюсь построить функцию вида 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), а по осям абсцисс и ординат было видно, что построена именно эта функция. Спасибо.

Akina

Дата 7.9.2009, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(CaptainNemo @ 7.9.2009, 01:01

)

рисует лишнюю линию

Убери лишнюю последовательность values(..., 1)

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »