Разработать процедуру для построения графика функции - VB
Формулировка задачи:
Разработать процедуру для построения графика функции у(x) на отрезке значений аргумента[xmin-50, xmax +50], учитывая, что область значений функции на этом отрезке: ymin < у(x) < ymax.
y(x)=x 4 – 13 x 2 + 36
Решение задачи: «Разработать процедуру для построения графика функции»
textual
Листинг программы
Private Sub Command1_Click() Draw 200, -5, 5 End Sub Sub Draw(n As Integer, xmin As Double, xmax As Double) Dim x() As Double Dim Y() As Double ReDim x(1 To n) As Double ReDim Y(1 To n) As Double xmin# = -50 xmax# = 50 dx# = (xmax - xmin) / n xx# = xmin For i% = 1 To n x(i%) = xx# Y(i%) = func(xx#) xx# = xx# + dx# Next i% ymax# = Y(1) ymin# = Y(1) For i% = 1 To n If Y(i%) > ymax# Then ymax# = Y(i%) If Y(i%) < ymin# Then ymin# = Y(i%) Next i% Me.Picture1.Scale (xmin, ymin#)-(xmax, ymax#) Me.Picture1.PSet (x(1), Y(1)), QBColor(12) For i% = 1 To n Me.Picture1.Line -(x(i%), Y(i%)), QBColor(12) Next i% Me.Picture1.Line (xmin, 0)-(xmax, 0), QBColor(0) Me.Picture1.Line (0, ymin#)-(0, ymax#), QBColor(0) End Sub Function func(x As Double) As Double func = Sin(x) '::: ГЊГҐГ*ГїГ© ôîðìóëó, ïîëó÷èøü äðóãèå ГЈГ°Г*ГґГЁГЄГЁ... End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д