Changeset 257 for Include/Classes/System/Math.ab

Timestamp:

May 19, 2007, 3:29:33 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

VersionTest追加、Log1p追加

File:

• Include/Classes/System/Math.ab (modified) (2 diffs)

Include/Classes/System/Math.ab

@@ -232 +232 @@
             Dim tmp = x * _System_InverseSqrt2
             Dim p = VarPtr(tmp) As *QWord
-            Dim m = p[0] And &h7FF0000000000000
+            Dim m = GetQWord(p) And &h7FF0000000000000
             Dim k = ((m >> 52) As DWord) As Long - 1022
-            p[0] = m + &h0010000000000000
+            SetQWord(p, m + &h0010000000000000)
             x /= tmp
-
-            x--
-            Dim s = 0 As Double
-            Dim i = _System_Log_N As Long
-            While i >= 1
-                Dim t = (i * x) As Double
-                s = t / (2 + t / (2 * i + 1 + s))
-                i--
-            Wend
-            Log = _System_LOG2 * k + x / (1 + s)
+            Log = _System_LOG2 * k + _System_Log1p(x - 1)
         End If
     End Function
@@ -602 +593 @@
     End Function
 Private
-    Static Const _System_Log_N = 7 As Long
     Static Const _System_Atan_N = 20 As Long
     Static Const _System_UrTan_N = 17 As Long