Как считать интеграл и сохранять его в "таблицу"? - Visual Basic .NET

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

Ситуация такая: есть функция рисования графиков на оси координат, есть функция подсчета интеграла (код прикреплен). У нас есть t(можно считать как x) от 0 до 2*пи с шагом 0,1. Есть w1 = 2*пи/T, T=Пи, и есть k = от 0 до 60 (это максимум). Нужно посчитать интеграл при k = 1, t раз(формула будет прикреплена). После чего нужно как - то построить график при первом k, при втором k и т.д. (там будет синусоида). Как это сделать? И в конце концов нам нужно будет выполнить одно выражение (формула тоже прикреплена). Кто может помочь? Я не могу понять как это реализовать и как потом выводить эти коэффициенты на экран и графики. Буду рад любым советам и ответам!
Public Class Form1
    Private xmin, xmax, ymin, ymax, w, h As Integer
    Private bmp As Bitmap
    Private g As Graphics
    Private pnAxis, pnGraphics As Pen
    Private pnt As List(Of PointF), pp As PointF
    Private isDraw As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xmin = -7 : xmax = 7 : ymin = -2 : ymax = 2
        w = PictureBox1.Width
        h = PictureBox1.Height
        bmp = New Bitmap(w, h, PictureBox1.CreateGraphics())
        PictureBox1.Enabled = False
        pnAxis = New Pen(Brushes.Blue, -1)
        pnGraphics = New Pen(Brushes.Red, 2)
        Button1.Enabled = False
        Label2.Text = "min = " & xmin.ToString
        Label3.Text = "max = " & xmax.ToString
        Label5.Text = "min = " & ymin.ToString
        Label4.Text = "max = " & ymax.ToString
        Label1.Text = "X"
        Label6.Text = "Y"
        Label7.Text = "Интегралл"
        Label8.Text = ""
    End Sub
    Private Sub CreateGraphics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Enabled = True
        gettingStartedCanvas()
        Button1.Enabled = True
        Label8.Text = ""
    End Sub
    Private Sub GetIntegral_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kx As Double = w / 2 / xmax
        Dim ky As Double = h / 2 / ymax
        Dim p As PointF
        For i = 0 To pnt.Count - 1
            p = pnt(i)
            p.X -= w / 2
            p.Y -= h / 2
            p.Y = -p.Y
            p.X /= kx
            p.Y /= ky
            pnt(i) = p
        Next
        'вычисляем приближенно по методу трапеций
        Dim sum As Double = 0.0
        For i = 1 To pnt.Count - 1
            sum += (pnt(i - 1).Y + pnt(i).Y) / 2 * (pnt(i).X - pnt(i - 1).X)
        Next
        Label8.Text = sum.ToString
        Button1.Enabled = False
        PictureBox1.Enabled = False
    End Sub
    Private Sub gettingStartedCanvas()
        g = Graphics.FromImage(bmp)
        g.Clear(PictureBox1.BackColor)
        g.DrawLine(pnAxis, New Point(w / 2, 0), New Point(w / 2, h))
        g.DrawLine(pnAxis, New Point(0, h / 2), New Point(w, h / 2))
        PictureBox1.Image = bmp
        g.Dispose()
    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim x As Integer = e.Location.X
        Dim y As Integer = e.Location.Y
        If x <> 0 Then x = 0
        pnt = New List(Of PointF)
        pp = New PointF(x, y)
        pnt.Add(pp)
        isDraw = True
        g = Graphics.FromImage(bmp)
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        If Not isDraw Then Exit Sub
        Dim x As Integer = e.Location.X
        Dim y As Integer = e.Location.Y
        If x <> w Then x = w
        pnt.Add(New PointF(x, y))
        g.DrawLine(pnGraphics, pp, pnt(pnt.Count - 1))
        isDraw = False
        g.Dispose()
        PictureBox1.Image = bmp
    End Sub
    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If isDraw Then
            Dim x As Integer = e.Location.X
            Dim y As Integer = e.Location.Y
            If x <= pp.X Then Exit Sub
            Dim p As PointF = New PointF(x, y)
            g.DrawLine(pnGraphics, pp, p)
            pnt.Add(p)
            pp = p
            PictureBox1.Image = bmp
        End If
    End Sub
End Class


textual

Код к задаче: «Как считать интеграл и сохранять его в "таблицу"? - Visual Basic .NET»

For i = 0 To nn - 1
            x(i) = pnt(ii(i)).X
            y(i) = pnt(ii(i)).Y
        Next
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.000 из 5

Источник
Похожие ответы