Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Вычисления



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

 Прислал: Fenik (Новоуральск) ( 12 июня 2003 г. )
©  Автор: Николай Федоровских
 Описание:
Center - центр окружности;
P - точка на окружности;

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

 Зависимости:
Math

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Угол поворота точки окружности относительно центра

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;


Вернуться к списку функций

Наверх ▲