Changeset 53 for Include/Classes

Timestamp:

Jan 8, 2007, 6:29:41 AM (18 years ago)

Author:

dai

Message:

タイプミスを修正。urTanをPrivateにした。

File:

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

Include/Classes/System/Math.ab

@@ -500 +500 @@
 
     Static Function Sin(value As Double) As Double
-        If IsNaN(number) Then
-            Return number
-        ElseIf IsInf(number) Then
+        If IsNaN(value) Then
+            Return value
+        ElseIf IsInf(value) Then
             Return _System_GetNaN()
             Exit Function
         End If
 
-        Dim k As Integer
+        Dim k As Long
         Dim t As Double
 
-        t = urTan(x * 0.5, k)
+        t = urTan(value * 0.5, k)
         t = 2 * t / (1 + t * t)
         If (k And 1) = 0 Then 'k mod 2 = 0 Then
@@ -587 +587 @@
     End Function
 
-    'ToString
-
     Static Function Truncate(x As Double) As Double
         return Fix(x)
     End Function
 
-'Private
+Private
     Static Function urTan(x As Double, ByRef k As Long) As Double
         Dim i As Long
@@ -599 +597 @@
 
         If x >= 0 Then
-            k = Fix(x * _System_InverseHalfPI) + 0.5
-        Else
-            k = Fix(x * _System_InverseHalfPI) - 0.5
+            k = ( ( Fix(x * _System_InverseHalfPI) As Double ) + 0.5 ) As Long
+        Else
+            k = ( ( Fix(x * _System_InverseHalfPI) As Double ) - 0.5 ) As Long
         End If
         x = (x - (3217.0 / 2048.0) * k) + _System_D * k