Select Code to Download

#! /usr/bin/perl
use strict;
...
                                 );
$matrix_3x3          ->print_complex("\n\$matrix_3x3:\n\n");
$matrix_3x3->invert()->print_complex("\nInverse of \$matrix_3x3:\n\n")
+;

$matrix_2x2:

...
|  0.05235+0.14079i  0.13718+0.23105i -0.31949-0.16968i |
|  0.09747-0.15162i  0.08303-0.01805i  0.26715+0.02888i |
|  0.22383-0.07040i -0.06859-0.11552i -0.09025+0.08484i |