Подскажите пожалуйста код для пересечения графика и линий визуализации - VB

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

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

Не могу прописать код перечения линий, необходимо чтоб линия Picture1.Line (X1, X1)-(????, X1) пересеклась с графиком F = x - 2 + Sin(1 / x) . а уже далее до y=x и так до конца Метод итераций ............. X1 = a y = a Do y = Fn(X1) d = Abs(y - X1) Picture1.Line (minx, miny)-(X1, X1) Picture1.Line (X1, X1)-(?????, X1) X1 = y Loop Until d >= e

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

textual
Листинг программы
Option Explicit
Dim i, x, y, y_1, y_2, y_3, x_ogr, x_2 As Double
Private Sub Form_Load()
Picture1.Scale (-5, 5)-(5, -5)
Picture1.Line (5, 0)-(-5, 0)
Picture1.Line (0, 5)-(0, -5)
'слияние на точке с координатой x=-2
x_ogr = -1  'указать необходимую координату в котрой будет слияние
For i = 5 To -5 Step -0.001
x = i
 
y = x
If x >= x_ogr Then
y_1 = i - 2 + Sin(1 / (x))
y_2 = y_1
x_2 = x
Else
y_1 = x
End If
 
 
Picture1.PSet (x, y), vbGreen
Picture1.PSet (x, y_1), &HFF&
Next i
y_3 = x_2
Picture1.Line (x_ogr, y_2)-(x_ogr, y_3), &HFF&
End Sub

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

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