Построить график функции Y(x) - VB
Формулировка задачи:
Представить график функции Y(x). При этом x изменяется от 0 до 2π
Y(x)=sin2x
Решение задачи: «Построить график функции Y(x)»
textual
Листинг программы
Private Sub Command1_Click() Draw 200, 0, 6.3 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# = -5 xmax# = 5 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)) ^ 2 '::: ГЊГҐГ*ГїГ© ôîðìóëó, ïîëó÷èøü äðóãèå ГЈГ°Г*ГґГЁГЄГЁ... End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д