ATan2() Ceil()

[Jim Brown]

Can you implement the ATan2() function Erel?
All parameters and return values as Double

r=ATan2(y,x)    - return value in radians
d=ATan2D(y,x)  - return value in degrees

b4a has Floor() but no Ceil()
Is Round() the exact equivalent to Ceil()?

 

[Erel]

Atan2 and Ceil will be added in the next update.
Ceil is not equivalent to Round.

Here is an implementation of Ceil:

Sub ceil(Number As Double) As Double
    Dim f As Double
    f = Floor(Number)
    If f = Number Then Return Number Else Return f + 1

End Sub

 

[klaus]

The Ceil code should be:

Sub Ceil(Number As double) As double
    Dim f As Double
    f = Floor(Number)
    If f [COLOR=red]<[/COLOR] Number Then Return f Else Return f + 1
End Sub

Best regards.

EDIT: The code above is wrong Erel's code is right!

 

[Erel]

Are you sure?
Try:
Ceil(5.1)
Your code will return 5 instead of 6.

 

[klaus]

Yes you are right !

Sorry and best regards.

 

[Jim Brown]

Thanks Erel
for ATan2D() I am using this at the moment (as used in my SnookerSim posted in user creations):

Sub ATan2D(y As Float,x As Float) As Float
   If x<0 Then
      If y<0 Then Return ATanD(y/x)-180.0
      Return ATanD(y/x)+180.0
   End If
   Return ATanD(y/x)
End Sub