Select Code to Download

Equation 1: (1+i)*Xsub1 + (2+i)*Xsub2 = 5+10i

Equation 2: (1-2i)*Xsub1 + (2-i)*Xsub2 = 8 -5i

use Math::Complex;

...

print "$r1 (should be $b1)\n";
print "$r2 (should be $b2)\n";

5+8i (should be 5+10i)
10-5i (should be 8-5i)