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

Timestamp:

May 7, 2007, 4:22:52 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

#_fullcompileで検出されたエラーの修正（明らかに判るもののみ）

File:

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

Include/Classes/System/Math.ab

@@ -194 +194 @@
 
     Static Function Floor(value As Double) As Long
-        return Int(value)
+        Return Int(value)
     End Function
 
@@ -201 +201 @@
     'GetType
 
-    Static Function IEEERemainder(value1 As Double, value2 As Double) As Double
-        Dim q As Double
-        If value2=0 then return _System_GetNaN()
-        q=value1/value2
-        If q<>Int(q) then
-            If q+0.5<>Int(q+0.5) then
-                q=Int(q+0.5)
-            ElseIf Int(q+0.5)=Int(q*2+1)/2 then
-                q=Int(q+0.5)
+    Static Function IEEERemainder(x As Double, y As Double) As Double
+        If y = 0 Then Return _System_GetNaN()
+        Dim q = x / y
+        If q <> Int(q) Then
+            If q + 0.5 <> Int(q + 0.5) Then
+                q = Int(q + 0.5)
+            ElseIf Int(q + 0.5) = Int(q * 2 + 1) / 2 Then
+                q = Int(q + 0.5)
             Else
-                q=Int(q-0.5)
+                q = Int(q - 0.5)
             End If
         End If
-        If x-y*q=0 then
-            If x>0 then
-                return +0
+        If x - y * q = 0 Then
+            If x > 0 Then
+                Return +0
             Else
-                return -0
+                Return -0
             End If
         Else
-            return x-y*q
+            Return x-y*q
         End If
     End Function
@@ -252 +251 @@
 
     Static Function Log10(x As Double) As Double
-        Return Math.Log(x) / Math.Log(10)
+        Return Math.Log(x) / _System_Ln10
     End Function
 
@@ -582 +581 @@
 
     Static Function Truncate(x As Double) As Double
-        return Fix(x)
+        Return Fix(x)
     End Function
 
@@ -611 +610 @@
 Const _System_HalfPI = (_System_PI * 0.5)
 Const _System_InverseHalfPI = (2 / _System_PI) '1 / (PI / 2)
+Const _System_Ln10 = 2.3025850929940456840179914546844 '10の自然対数
 
 #endif '__SYSTEM_MATH_AB__