Угол поворота точки окружности относительно центраDelphi , Синтаксис , МатематикаУгол поворота точки окружности относительно центра
Автор: Fenik { **** 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. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |