Построение графика методом итерации для функции x-2+sin(1/x)=0 на отрезке от а до б - VB

Узнай цену своей работы

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

Люди добрые, кто может подскажите пожалуйста код построения графика методом итерации для функции x-2+sin(1/x)=0 на отрезке от а до б. Не понимаю как написать код, сколько пробовала не получается, кому не сложно напишите пожалуйста код программы, буду очень признательна

Решение задачи: «Построение графика методом итерации для функции x-2+sin(1/x)=0 на отрезке от а до б»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Dim A As Double, Stp As Double
    Dim X As Double, Y As Double, D As Double, F As Boolean
    A = -6
    Me.Scale (A, -A)-(6, -6)
    Stp = Me.ScaleX(1, vbPixels, vbUser)
    Me.BackColor = vbWhite
    Me.AutoRedraw = True
    Me.Line (Me.ScaleLeft, 0)-Step(Me.ScaleWidth, 0), RGB(192, 192, 255)
    Me.Line (0, Me.ScaleTop)-Step(0, Me.ScaleHeight), RGB(192, 192, 255)
    Me.ForeColor = RGB(128, 128, 128)
    For X = Me.ScaleLeft To Me.ScaleLeft + Me.ScaleWidth
        Me.Line (X, 0.1)-Step(0, -0.2)
        Me.Print X
    Next
    For Y = Me.ScaleTop To Me.ScaleTop + Me.ScaleHeight Step -1
        Me.Line (-0.1, Y)-Step(0.2, 0)
        If Y Then Me.Print Y
    Next
    F = True
    For X = A To 6 Step Stp
        Y = X - 2 + Sin(1 / X)
        If F Then Me.PSet (X, Y): F = False Else Me.Line -(X, Y), RGB(0, 192, 0)
    Next
    X = A: F = True
    Do
        Y = 2 - Sin(1 / X)
        If F Then Me.PSet (X, Y - X): F = False Else Me.Line -(X, Y - X), vbRed
        D = Abs(Y - X)
        X = Y
    Loop While X <= 6 And D > 0.00000001
End Sub

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


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

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

10   голосов , оценка 3.9 из 5
Похожие ответы