# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1525553731 -7200
# Node ID c5c0850734f319c0fa89a7a0bea0f9fcf5fb36ee
# Parent  5e76d6588adc2dc37809e4a8a7a7bc17856d41a1
#FEATURE by cg
class: Number
added:
        #arcTan:

diff -r 5e76d6588adc -r c5c0850734f3 Number.st
--- a/Number.st	Sat May 05 22:50:07 2018 +0200
+++ b/Number.st	Sat May 05 22:55:31 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -932,6 +934,8 @@
 ! !
 
 
+
+
 !Number methodsFor:'Compatibility-Squeak'!
 
 asSmallAngleDegrees
@@ -3151,6 +3155,30 @@
     "Modified: / 05-07-2017 / 17:26:16 / cg"
 !
 
+arcTan:denominator
+    "Evaluate the four quadrant arc tangent of the argument denominator (x) and the receiver (y)."
+
+    |t|
+    
+    (self isZero) ifTrue: [
+        (denominator strictlyPositive)
+            ifTrue: [ ^ 0 ]
+            ifFalse: [ ^ self class pi ]
+    ].
+    (denominator isZero) ifTrue: [
+        (self strictlyPositive)
+            ifTrue: [ ^ self class halfpi ]
+            ifFalse: [ ^ self class halfpiNegative ]
+    ].
+    t := (self / denominator) arcTan.
+    (denominator strictlyPositive)
+        ifTrue: [ ^ t ]
+        ifFalse: [ ^ t + self class pi ]
+
+    "Created: / 07-06-2007 / 21:10:32 / cg"
+    "Modified: / 11-06-2007 / 12:58:34 / cg"
+!
+
 arcTanh
     "return the inverse hyperbolic tangent of the receiver."
     "caveat: misnomer; should be called aTanh or arTanh"