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