Changeset 238

Timestamp:

May 8, 2007, 1:29:49 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

Math.Absが値を返さないバグを修正

File:

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

Include/Classes/System/Math.ab

@@ -3 +3 @@
 #ifndef __SYSTEM_MATH_AB__
 #define __SYSTEM_MATH_AB__
-
-Const _System_EPS5 = 0.001
 
 Class Math
@@ -602 +600 @@
         urTan =  x / (1 - t)
     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
+    Static Const _System_D = 4.4544551033807686783083602485579e-6 As Double
+    Static Const _System_EPS5 = 0.001 As Double
 End Class
 
-Const _System_Log_N = 7
-Const _System_Atan_N = 20
-Const _System_UrTan_N = 17
-Const _System_D = 4.4544551033807686783083602485579e-6
 Const _System_HalfPI = (_System_PI * 0.5)
 Const _System_InverseHalfPI = (2 / _System_PI) '1 / (PI / 2)