Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Центр окружности по 3-м точкам на дуге.


Пётр_К ©   (2007-03-02 17:15:00) 

Как аналитически найти центр окружности зная координаты
трёх точек расположенных на окружности?
Наверняка есть готовый алгоритм.
Вопрос наверное очень простой, но я что-то туплю.


Пётр_К   (2007-03-02 17:47:00) [1]

Большое спасибо.


MBo   (2007-03-02 17:41:00) [2]

A := x2 - x1;
 B := y2 - y1;
 C := x3 - x1;
 D := y3 - y1;
 E := A * (x1 + x2) + B * (y1 + y2);
 F := C * (x1 + x3) + D * (y1 + y3);
 G := 2 * (A * (y3 - y2) - B * (x3 - x2));
 if G = 0 then Exit;
 Cx := (D * E - B * F) / G;
 Cy := (A * F - C * E) / G;


Наверх

Титульная страница Поиск, карта сайта Написать письмо