IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Пересекаються ли отрезки
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 346
Пол: Мужской
Реальное имя: Иван

Репутация: -  7  +


Привет всем в Новом Году smile.gif
Вспомнилась мне, задачка, которая фигурировала в цитате с баша, а именно:
"Даны координаты начала и конца двух отрезков, определить пересекаються ли они".
Вот я и задумался над этим... в голову пришел лишь один алгоритм:
1) У нас даны координаты 4 точек, запишем их в таком порядке, чтобы образовался полигон(для нахождения диагоналей).
2) Находим площадь этого полигона(половина произведения диагоналей на синус угла между ними).
3) Сравниваем полученый результат с половиной произведения наших отрезков на синус угла между ними.
4) Если площади совпали, значит отрезки являються диагоналями, а следовательно пересекаються, если нет, значит не перезекаються.
Если какая либо из заданых точек принадлежит другому отрезку, это ведь ничего не меняет, всерамно должен работать. Длинну отрезков по координатам найдем легко, углы между отрезками можна найти через модуль разности углов под которым расположен каждый из отрезков к горизонтали. А сами углы находим через арктангенс в паскале. Следовательно при реализаии проблем возникнуть не должно... но мне интересно, как еще можно решить эту задачу(желательно по проще)? Визуально-графический метод не предлагать smile.gif

Сообщение отредактировано: RathaR -


--------------------
Считающий себя единственым здравомыслящим человеком сумасшедший? Если да, возможно я псих...
Пусть умолкнет всякий критик!
Я - системный аналитик!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Сразу споткнулся на:
Цитата
запишем их в таком порядке, чтобы образовался полигон
А каков, собственно, критерий, что точки упорядочены нами именно в нужном порядке?
Боюсь, на один шаг в алгоритме это никак не тянет.

И чем, собственно, не устраивает наиболее очевидный алгоритм?
1. По координатам записываем уравнения прямых.
2. Решаем полученную систему уравнений, получая координаты точки пересечения прямых (если нет, значит, не пересекаются).
3. Узнаем, лежит ли точка пересечения внутри каждого из отрезков или вне его.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Цитата(andriano @ 2.01.2010 11:13) *

2. Решаем полученную систему уравнений, получая координаты точки пересечения прямых (если нет, значит, не пересекаются).


Ага разбирая отдельно случай вертикальных отрезков, горизонтальных, нулевого определитеся системы. Это отвратительное решение в лоб.
Как делал бы я.
Задаём прямую, содержащую отрезок 1 в виде ax+by+c = 0.
Подставляем в левую часть концы второго отрезка. Если получились числа одного знака - то не пересекаются. Если разного, то потом делаем то же самое, но наоборот - концы первого отрезка подставляем в уравнение для второго. Если опять разного знака - то пересекаются.


Добавлено через 2 мин.
Выглядело это примерно так:


function Intersect(X11, Y11, X21, Y21, X12, Y12, X22, Y22: double): boolean;
var
d11, d21, d12, d22: double;
begin
d11 := (x22 - x11) * (y12 - y11) - (x12 - x11) * (y22 - y11);
d21 := (x22 - x21) * (y12 - y21) - (x12 - x21) * (y22 - y21);
d12 := (x21 - x12) * (y11 - y12) - (x11 - x12) * (y21 - y12);
d22 := (x21 - x22) * (y11 - y22) - (x11 - x22) * (y21 - y22);
Result := (((d11 > 0) and (d21 < 0)) or ((d11 < 0) and (d21 > 0)))
and (((d12 > 0) and (d22 < 0)) or ((d12 < 0) and (d22 > 0)));
end;



На самом деле, это результат выкидывания всего лишнего из функции, считающей квадрат расстояния между двумя отрезками.

Добавлено через 4 мин.
Цитата(Lapp @ 3.01.2010 22:44) *

Вах! )) Отрезкм


И вижу я в той теме тот же ужас с разбором отдельного вертикального случая.
Я вообще терпеть не могу анизотропные решения (то есть, зависящие от направления и выбора системы координат).

Добавлено через 1 мин.
А ещё надо разобрать случай, когда отрезки ПОЧТИ вертикальны (да, да, делить на ПОЧТИ ноль тоже запрещено), и ПОЧТИ параллельны.
Короче, мой вариант лучше. И даже операция деления нигде не используется.


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +


Цитата(TarasBer @ 5.01.2010 14:53) *

Подставляем в левую часть концы второго отрезка. Если получились числа одного знака - то не пересекаются. Если разного, то потом делаем то же самое, но наоборот - концы первого отрезка подставляем в уравнение для второго. Если опять разного знака - то пересекаются.

Класс! +1 good.gif
Мне подобная идея сразу пришла в голову, только не получалось с реализацией, т.к. думал реализовать разницу знаков через вертикальную и горизонтальную прямые, которые бы проходили через одну из точек отрезка...А тут оказывается все намного проще)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
RathaR   Пересекаються ли отрезки   1.01.2010 23:03
Lapp   мне интересно, как еще можно решить эту задачу(жел…   1.01.2010 23:45
andriano   Сразу споткнулся на: А каков, собственно, критерий…   2.01.2010 15:13
TarasBer   2. Решаем полученную систему уравнений, получая к…   5.01.2010 19:53
sheka   Подставляем в левую часть концы второго отрезка. …   5.01.2010 22:17
RathaR   Искал... не нашел ничего похожего... Непонял... …   2.01.2010 21:05
sheka   100пудово решал бы именно так, как предложил andri…   2.01.2010 22:30
RathaR   могу предложить извращенный вариант :lol: исполь…   3.01.2010 17:21
Lapp   Искал... не нашел ничего похожего...Вах! )) От…   4.01.2010 2:44
RathaR   Вах! )) [url=http://forum.pascal.net.ru/index…   4.01.2010 3:33
Lapp   Недосмотрел, бывает :rolleyes: Хотя и не мудрено, …   4.01.2010 7:38
andriano   Но там ведь реализован метод через уравнения прям…   4.01.2010 15:41
Unconnected   А как по координатам можно записать уравнение пр…   5.01.2010 2:10
RathaR   А как по координатам можно записать уравнение пря…   5.01.2010 2:18
Unconnected   Ага, спасибо, википедия лучше гугла иногда)   5.01.2010 2:42
andriano   википедия лучше гугла Это в перлы. Нет, можно, к…   5.01.2010 15:32
RathaR   Это в перлы. Да ладно, чего к словам то придират…   5.01.2010 18:23
TarasBer   И название темы поправте, а то глаза режеть.   5.01.2010 21:20
Lapp   И название темы поправте, а то глаза режет[color=#…   6.01.2010 4:00
andriano   TarasBer, выразись, пожалуйста, конкретнее, какую …   6.01.2010 4:03
Lapp   Прежде, чем выделять красным предполагаемую ошибку…   6.01.2010 5:01
RathaR   внимательно перечитал название темы. эм... я в н…   6.01.2010 6:38
Lapp   стараюсь как могу,Именно так. И это главное. Я, в…   6.01.2010 7:00
TarasBer   > а по сабжу "пересекаються" поправля…   6.01.2010 17:36
Lapp   А в украинском разве нет правил тся-ться? Впрочем,…   7.01.2010 5:40
TarasBer   Вот вы опять всё приняли на свой счёт. Хотя у мен…   7.01.2010 18:47
Lapp   Вот и хорошо ))   8.01.2010 3:27
sheka   То же самое, но чуть больше слов :) http://users.l…   13.08.2012 20:48


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 3.05.2024 18:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name