Select Code to Download

#! /usr/bin/perl -w
use warnings;
...
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);

$matrixM =
[ [ 1  2 -1 -1] 
...
$matrixX =
[ [         3] [         2]
  [         1] [         1]]

#! /usr/bin/perl -w
use warnings;
...
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);

$matrixM =[   [  [1 1] [2 1] ]    [ [ 1 -2] [ 2 -1] ]   ]
$matrixB =[  [ 5  8] [10 -5] ]
...
  [  0  21] ]
 [ [ 5 -6]
  [ 0 -7] ] ]