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

Timestamp:

May 6, 2007, 8:37:57 PM (18 years ago)

Author:

dai

Message:

タスプミスを修正。

File:

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

Include/Classes/System/Math.ab

@@ -68 +68 @@
             Asin = _System_GetNaN()
         Else
-            Asin = ATan(x / Sqrt(1 - x * x))
+            Asin = Math.Atan(x / Sqrt(1 - x * x))
         End If
     End Function
@@ -126 +126 @@
     Static Function Ceiling(x As Double) As Long
         If Floor(x) = x then
-            Return x
+            Return x As Long
         Else
             Return Floor(x) + 1
@@ -144 +144 @@
     Static Function Cosh(value As Double) As Double
         Dim t As Double
-        t = Exp(value)
+        t = Math.Exp(value)
         return (t + 1 / t) * 0.5
     End Function
@@ -514 +514 @@
         If Math.Abs(x) > _System_EPS5 Then
             Dim t As Double
-            t = Exp(x)
+            t = Math.Exp(x)
             Return (t - 1 / t) * 0.5
         Else
@@ -571 +571 @@
     Static Function Tanh(x As Double) As Double
         If x > _System_EPS5 Then
-            Return 2 / (1 + Exp(-2 * x)) - 1
+            Return 2 / (1 + Math.Exp(-2 * x)) - 1
         ElseIf x < -_System_EPS5 Then
-            Return 1 - 2 / (Exp(2 * x) + 1)
+            Return 1 - 2 / (Math.Exp(2 * x) + 1)
         Else
             Return x * (1 - x * x * 0.333333333333333) 'x * (1 - x * x / 3)
@@ -591 +591 @@
 
         If x >= 0 Then
-            k = Fix(x * _System_InverseHalfPI) + 0.5
-        Else
-            k = Fix(x * _System_InverseHalfPI) - 0.5
+            k = ( Fix(x * _System_InverseHalfPI) + 0.5 ) As Long
+        Else
+            k = ( Fix(x * _System_InverseHalfPI) - 0.5 ) As Long
         End If
         x = (x - (3217.0 / 2048.0) * k) + _System_D * k