[Jcl-checkins-diff] SF.net SVN: jcl: [2076] trunk/jcl/source/common/JclMath.pas

[<ou...@us...>]

Revision: 2076
          http://svn.sourceforge.net/jcl/?rev=2076&view=rev
Author:   outchy
Date:     2007-07-16 06:32:40 -0700 (Mon, 16 Jul 2007)

Log Message:
-----------
Fixed errors in ArcCosh function and logarithm computation

Modified Paths:
--------------
    trunk/jcl/source/common/JclMath.pas

Modified: trunk/jcl/source/common/JclMath.pas
===================================================================
--- trunk/jcl/source/common/JclMath.pas	2007-07-16 12:56:12 UTC (rev 2075)
+++ trunk/jcl/source/common/JclMath.pas	2007-07-16 13:32:40 UTC (rev 2076)
@@ -999,7 +999,7 @@
 begin
   DomainCheck((X <= 0.0) or (Base <= 0.0) or (Base = 1.0));
   {$IFDEF CLR}
-  Result := System.Math.Log(X);
+  Result := System.Math.Log(X, Base);
   {$ELSE}
   Result := FLogBaseN(Base, X);
   {$ENDIF CLR}
@@ -1303,7 +1303,7 @@
 begin
   DomainCheck(X < 1.0);
   {$IFDEF CLR}
-  Result := System.Math.Log(X, 2);
+  Result := System.Math.Log(X + Sqrt(X * X - 1));
   {$ELSE}
   Result := FArcCosH(X);
   {$ENDIF CLR}
@@ -1342,7 +1342,7 @@
 function ArcSinH(X: Float): Float;
 {$IFDEF CLR}
 begin
-  Result := System.Math.Log(X + Sqrt(1 + X * X));
+  Result := System.Math.Log(X + Sqrt(X * X + 1));
 end;
 {$ELSE}
 assembler;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.