Select Code to Download

my $mt = transpose($matrix);
my $m2 = $mt x $matrix;
my $m2i = $m2->inv;
my $psuedo = $m2i x $mt;