Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Угол поворота точки окружности относительно центра

Delphi , Синтаксис , Математика

Угол поворота точки окружности относительно центра

Автор: Fenik
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Угол поворота точки окружности относительно центра

Center - центр окружности;
P - точка на окружности;

Угол определяется так, как учили в школе: от нуля по
оси X вправо и дальше против часовой стрелки.
Значение возвращает в градусах.

Зависимости: Math
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Автор: Николай Федоровских
Дата:        12 июня 2003 г.
***************************************************** }

function GetAngle(const Center, P: TPoint): Double;
begin
  Result := ArcTan2(Center.y - P.y, P.x - Center.x) * (180 / Pi);
  {Чтобы возвращала результат в радианах, нужно <* (180 / Pi)> убрать}
  if Result < 0 then
    Result := Result + 360; {Эта строка необязательна}
end;

Статья Угол поворота точки окружности относительно центра раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Математика ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
05.07.2020 11:22:55/0.014575958251953/0