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

+ Corrected arsinh function

Browse Source
This commit is contained in:
michael 2000-07-05 13:19:59 +00:00
parent 3dd006a7df
commit 50220183bd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/math.pp
View File

@ -375,7 +375,7 @@ function arcosh(x : float) : float;
function arsinh(x : float) : float; function arsinh(x : float) : float;
begin begin
arsinh:=Ln(x-Sqrt(1+x*x)); arsinh:=Ln(x+Sqrt(1+x*x));
end; end;
function artanh(x : float) : float; function artanh(x : float) : float;
@ -683,7 +683,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.19 2000-07-04 20:53:22 michael Revision 1.20 2000-07-05 13:19:59 michael
+ Corrected arsinh function
Revision 1.19 2000/07/04 20:53:22 michael
+ Exceptions now used for errors + Exceptions now used for errors
Revision 1.18 2000/04/29 10:10:51 jonas Revision 1.18 2000/04/29 10:10:51 jonas