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

Timestamp:

Jul 26, 2007, 5:43:54 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

File:

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

Include/Classes/System/Math.ab

@@ -172 +172 @@
             End If
         End If
-        Dim i As Long, k As Long
-        Dim x2 As Double, w As Double
-
+        Dim k As Long
         If x >= 0 Then
             k = Fix(x / _System_LOG2 + 0.5)
@@ -183 +181 @@
         x -= k * _System_LOG2
 
-        x2 = x * x
-        w = x2 / 22
-
-        i = 18
+        Dim x2 = x * x
+        Dim w = x2 / 22
+
+        Dim i = 18
         While i >= 6
             w = x2 / (w + i)