Changeset 92 for Include/Classes/System


Ignore:
Timestamp:
Feb 12, 2007, 11:47:19 AM (18 years ago)
Author:
konisi
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Math.ab

    r91 r92  
    147147        End If
    148148
    149         Return Sin(_System_HalfPI - Abs(x))
     149        Return Math.Sin((_System_HalfPI - Abs(x)) As Double)
    150150    End Function
    151151
     
    510510        Dim t As Double
    511511
    512         t = urTan(value * 0.5, k)
     512        t = urTan((value * 0.5) As Double, k)
    513513        t = 2 * t / (1 + t * t)
    514514        If (k And 1) = 0 Then 'k mod 2 = 0 Then
     
    587587    End Function
    588588
     589    'ToString
     590
    589591    Static Function Truncate(x As Double) As Double
    590592        return Fix(x)
    591593    End Function
    592594
    593 Private
     595'Private
    594596    Static Function urTan(x As Double, ByRef k As Long) As Double
    595597        Dim i As Long
     
    597599
    598600        If x >= 0 Then
    599             k = ( ( Fix(x * _System_InverseHalfPI) As Double ) + 0.5 ) As Long
    600         Else
    601             k = ( ( Fix(x * _System_InverseHalfPI) As Double ) - 0.5 ) As Long
     601            k = Fix(x * _System_InverseHalfPI) + 0.5
     602        Else
     603            k = Fix(x * _System_InverseHalfPI) - 0.5
    602604        End If
    603605        x = (x - (3217.0 / 2048.0) * k) + _System_D * k
Note: See TracChangeset for help on using the changeset viewer.