Changeset 92 for Include/Classes

Timestamp:

Feb 12, 2007, 11:47:19 AM (18 years ago)

Author:

konisi

Message:

basicフォルダ内の整備、掲示板にエラーを報告したもの以外は型チェック終了しました。

File:

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

Include/Classes/System/Math.ab

@@ -147 +147 @@
         End If
 
-        Return Sin(_System_HalfPI - Abs(x))
+        Return Math.Sin((_System_HalfPI - Abs(x)) As Double)
     End Function
 
@@ -510 +510 @@
         Dim t As Double
 
-        t = urTan(value * 0.5, k)
+        t = urTan((value * 0.5) As Double, 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
@@ -597 +599 @@
 
         If x >= 0 Then
-            k = ( ( Fix(x * _System_InverseHalfPI) As Double ) + 0.5 ) As Long
-        Else
-            k = ( ( Fix(x * _System_InverseHalfPI) As Double ) - 0.5 ) As Long
+            k = Fix(x * _System_InverseHalfPI) + 0.5
+        Else
+            k = Fix(x * _System_InverseHalfPI) - 0.5
         End If
         x = (x - (3217.0 / 2048.0) * k) + _System_D * k