Построить график функции на заданном интервале - Visual Basic .NET

Формулировка задачи:

2. Составить программу на языке Visual Basic Net, которая строит график функции при х от -3 до 3 с шагом 0,1.

График sin x ^2 - x

Решение задачи: «Построить график функции на заданном интервале»

textual
                            Листинг программы 
                        

                            Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim fmin As Double = -3
        Dim fmax As Double = 3
        Dim fstep As Double = 0.1
        Dim CustomFunction = Function(x As Double) Math.Sin(x ^ 2 - x)
 
        Dim points As New List(Of PointF)
        For x As Double = fmin To fmax Step fstep
            points.Add(New PointF(x, CustomFunction(x)))
        Next
 
        Dim gp As New System.Drawing.Drawing2D.GraphicsPath
        gp.AddCurve(points.ToArray)
 
        Dim r As RectangleF = gp.GetBounds
        Dim scale As Single = 0.75 * Math.Min(Me.ClientRectangle.Width / r.Width, Me.ClientRectangle.Height / r.Height)
 
        Dim m As New System.Drawing.Drawing2D.Matrix
        m.Translate(Me.ClientRectangle.Width / 2, Me.ClientRectangle.Height / 2)
        m.Scale(scale, scale)
        gp.Transform(m)
 
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.DrawPath(New Pen(Color.Black, 1), gp)
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.Refresh()
    End Sub
End Class
                        