Построить график функции 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5