paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 09:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ cot, sec, csc, secant, cosecant (mantis #8142)

Browse Source 
git-svn-id: trunk@6170 -
This commit is contained in:
Jonas Maebe 2007-01-24 19:22:53 +00:00
parent c1b1be9a67
commit 0e1c9c901d
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
rtl/objpas/math.pp
View File

@ -262,8 +262,14 @@ function radtocycle(rad : float) : float;
function tan(x : float) : float;
function cotan(x : float) : float;
function cot(x : float) : float; inline;
procedure sincos(theta : float;out sinus,cosinus : float);
function secant(x : float) : float; inline;
function cosecant(x : float) : float; inline;
function sec(x : float) : float; inline;
function csc(x : float) : float; inline;
{ inverse functions }
function arccos(x : float) : float;
@ -677,6 +683,11 @@ function cotan(x : float) : float;
end;
{$endif FPC_MATH_HAS_COTAN}
function cot(x : float) : float; inline;
begin
cot := cotan(x);
end;
{$ifndef FPC_MATH_HAS_SINCOS}
procedure sincos(theta : float;out sinus,cosinus : float);
@ -687,6 +698,30 @@ procedure sincos(theta : float;out sinus,cosinus : float);
{$endif FPC_MATH_HAS_SINCOS}
function secant(x : float) : float; inline;
begin
secant := 1 / cos(x);
end;
function cosecant(x : float) : float; inline;
begin
cosecant := 1 / sin(x);
end;
function sec(x : float) : float; inline;
begin
sec := secant(x);
end;
function csc(x : float) : float; inline;
begin
csc := cosecant(x);
end;
{ ArcSin and ArcCos from Arjan van Dijk (arjan.vanDijk@User.METAIR.WAU.NL) }