Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пересечение прямых 
:(
    Опции темы
Dmitry V.Abramov
Дата 8.12.2003, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 177
Регистрация: 30.9.2003
Где: Saint-Petersburg

Репутация: 5
Всего: 4
Цитата
Dmitry V.Abramov Чем тебе не нравится мой способ? Ведь он намноге меньше

Не вижу реализации твоего способа - не могу оценить.
Код
Имеем 8 координат 4-х точек, которые пренадлежат исходным прямым: (x1,y1),(x2,y2),(x3,y3) & (x4,y4).
Вся наёбка идёт по ур-нию прямой вида y=k*x+b.
Находим k1:=(y1-y2)/(x2-x1); k2:=(y3-y4)/(x4-x3);
Находим b1:=(Form1.Image1.Height-y2-x2*k1); b2:=(Form1.Image1.Height-y4-x4*k2);
Далее находим отчку пересечения по x= (b2-b1)/(k1-k2);
Далее подставляем полученный х в y=k1*x+b1 откуда находим у.
Так в четыре строки находим координаты точки пересечения!!!!

Ну так дай посмотреть на эти 4 строчки. Работающие. С отловом divide by zero, параллельности и совпадения.
--------------------
/DVA
PM MAIL WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0379 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.