Построить график функции - VB
Формулировка задачи:
Представить график функции :
x·(x^2+x-2) интервал [-2, 2]
Решение задачи: «Построить график функции»
textual
Листинг программы
Dim xbeg As Integer, xend As Integer, x(100) As Integer, y(100) As Integer Dim xg As Integer, yg As Integer, h As Integer, a As Double, b As Double Private Sub Command1_Click() xg = 0.7 * Me.Width yg = 0.5 * Me.Height Line (100, yg)-(xg, yg), vbRed h = 0.01 * (xg - 100) 'коэффициенты масштабирования для х a = (xend - xbeg) / (xg - 100) b = xend - a * xg x(1) = 100 'Вычерчивание графика For i = 2 To 100 x(i) = 100 + (i - 1) * h Line (x(i - 1), f(a * x(i - 1) + b))-(x(i), f(a * x(i) + b)), vbBlue Next End Sub Private Sub Form_Load() Me.WindowState = 2 xbeg = -2 xend = 2 End Sub Function f(x) 'Функция f = -700 * x * (x ^ 2 + x - 2) + yg End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д