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

@alina0011 · Регистрация: 02.06.2013

Студворк — интернет-сервис помощи студентам

Не могу прописать код перечения линий, необходимо чтоб линия 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

@proft · 03.06.2013, 14:44

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

@The trick · 03.06.2013, 16:23

Сообщение от proft

Visual Basic
1
Dim i, x, y, y_1, y_2, y_3, x_ogr, x_2 As Double

В таком случае только x_2 будет иметь тип Double, надо расписывать каждую переменную

Visual Basic
1
Dim i As Double, x As Double, y As Double....

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@alina0011 0 / 0 / 0 Регистрация: 02.06.2013 Сообщений: 4

	подскажите пожалуйста код для пересечения графика и линий визуализации 03.06.2013, 12:00. Показов 1379. Ответов 2 Метки нет (Все метки) Не могу прописать код перечения линий, необходимо чтоб линия 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 Миниатюры 0

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

Решение