Преобразование тригонометрических единиц измерений

Категория Процедуры и функции.

Функция CycleToRad( Cycles: Extended ): Extended;
Модуль: Math
Описание
Функция преобразовывает значение аргумента из циклов (оборотов) в радианы (1 цикл= 2*Pi).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
L, R: Real;
begin
…
R:= 10;
L:= R*CycleToRad(1); // вычисляет длину окружности с радиусом R
…
end; {/codecitation}
 

Функция DegToRad( Degrees: Extended ): Extended;
Модуль: Math
Описание
Функция преобразовывает значение аргумента из градусов в радианы (1° = Pi/180 радиан).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
Y, Angle: Real;
begin
…
Angle:= 60;
Y:= Cos( DegToRad(Angle) ); { Y:= 0.5 }
…
end; {/codecitation}
 

Функция GradToRad( Grads: Extended ): Extended;
Модуль: Math
Описание
Функция преобразовывает значение аргумента из десятичных градусов (grad) в радианы (1 grad = Pi/200 радиан).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
x, y: Real;
begin
…
x:= GradToRad( 100 );
y:= Sin( x ); // Y:= 1
…
end; {/codecitation}
 

Функция RadToCycle( Radians: Extended ): Extended;
Модуль: Math
Описание
Функция преобразовывает значение аргумента из радианов в циклы (1 радиан = 1 цикл/(2*Pi) ).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
Y: Real;
begin
…
Y:= RadToCycle(Pi); // Y:= 0.5
…
end; {/codecitation}
 

Функция RadToDeg( Radians: Extended ): Extended;
Модуль: Math
Описание
Функция преобразовывает значение аргумента из радианов в градусы ( 1 радиан = (180/Pi)° ).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"}var
X, Angle: Real;
begin
…
X:= ArcCos(0.5);
Angle:= RadToDeg(X); // Angle:= 60
…
end; {/codecitation}
 

Функция RadToGrad( Radians: Extended ): Extended;
Модуль: Math
Описание
Функция преобразовывает значение аргумента из радианов в десятичные градусы ( 1 радиан = 200/Pi grad ).
Пример
{codecitation class="brush: pascal; gutter: false;" width="500px"} var
Y: Real;
begin
…
Y:= RadToGrad(Pi); // Y:= 200
…
end;{/codecitation}
 

Добавить комментарий