Changeset 11718

Timestamp:

03/26/09 20:58:22 (15 years ago)

Author:

ehuelsmann

Message:

Fix multiplication of Complex values.

Patch by: Robert Dodier <robert_dodier at yahoo dot com>

File:

• trunk/abcl/src/org/armedbear/lisp/Complex.java (modified) (1 diff)

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

@@ -222 +222 @@
         // xy = (ac - bd) + i(ad + bc)
         // real part = ac - bd
-        // imag part = (a + b)(c + d) - ac - bd
+        // imag part = ad + bc
         LispObject ac = a.multiplyBy(c);
         LispObject bd = b.multiplyBy(d);
-        return Complex.getInstance(ac.subtract(bd),
-                                   a.add(b).multiplyBy(c.add(d)).subtract(ac).subtract(bd));
+        LispObject ad = a.multiplyBy(d);
+        LispObject bc = b.multiplyBy(c);
+        return Complex.getInstance(ac.subtract(bd), ad.add(bc));
       }
     return Complex.getInstance(realpart.multiplyBy(obj),