Changeset 3574

Timestamp:

09/04/03 05:06:39 (19 years ago)

Author:

piso

Message:

divideBy()

File:

• trunk/j/src/org/armedbear/lisp/Complex.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Complex.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: Complex.java,v 1.15 2003-09-04 04:28:01 piso Exp $
+ * $Id: Complex.java,v 1.16 2003-09-04 05:06:39 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -144 +144 @@
     }
 
+    public LispObject divideBy(LispObject obj) throws LispError
+    {
+        if (obj instanceof Complex) {
+            LispObject a = realpart;
+            LispObject b = imagpart;
+            LispObject c = ((Complex)obj).getRealPart();
+            LispObject d = ((Complex)obj).getImaginaryPart();
+            LispObject ac = a.multiplyBy(c);
+            LispObject bd = b.multiplyBy(d);
+            LispObject bc = b.multiplyBy(c);
+            LispObject ad = a.multiplyBy(d);
+            LispObject denominator = c.multiplyBy(c).add(d.multiplyBy(d));
+            return Complex.getInstance(ac.add(bd).divideBy(denominator),
+                                       bc.subtract(ad).divideBy(denominator));
+        }
+        return Complex.getInstance(realpart.divideBy(obj),
+                                   imagpart.divideBy(obj));
+    }
+
     public boolean isEqualTo(LispObject obj) throws LispError
     {