Построение графика методом итерации для функции 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д