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