Changeset 92 for Include/Classes/System
- Timestamp:
- Feb 12, 2007, 11:47:19 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Math.ab
r91 r92 147 147 End If 148 148 149 Return Sin(_System_HalfPI - Abs(x))149 Return Math.Sin((_System_HalfPI - Abs(x)) As Double) 150 150 End Function 151 151 … … 510 510 Dim t As Double 511 511 512 t = urTan( value * 0.5, k)512 t = urTan((value * 0.5) As Double, k) 513 513 t = 2 * t / (1 + t * t) 514 514 If (k And 1) = 0 Then 'k mod 2 = 0 Then … … 587 587 End Function 588 588 589 'ToString 590 589 591 Static Function Truncate(x As Double) As Double 590 592 return Fix(x) 591 593 End Function 592 594 593 Private595 'Private 594 596 Static Function urTan(x As Double, ByRef k As Long) As Double 595 597 Dim i As Long … … 597 599 598 600 If x >= 0 Then 599 k = ( ( Fix(x * _System_InverseHalfPI) As Double ) + 0.5 ) As Long600 Else 601 k = ( ( Fix(x * _System_InverseHalfPI) As Double ) - 0.5 ) As Long601 k = Fix(x * _System_InverseHalfPI) + 0.5 602 Else 603 k = Fix(x * _System_InverseHalfPI) - 0.5 602 604 End If 603 605 x = (x - (3217.0 / 2048.0) * k) + _System_D * k
Note:
See TracChangeset
for help on using the changeset viewer.