- or download this
#! /usr/bin/perl -w
use warnings;
...
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);
- or download this
$matrixM =
[ [ 1 2 -1 -1]
...
$matrixX =
[ [ 3] [ 2]
[ 1] [ 1]]
- or download this
#! /usr/bin/perl -w
use warnings;
...
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);
- or download this
$matrixM =[ [ [1 1] [2 1] ] [ [ 1 -2] [ 2 -1] ] ]
$matrixB =[ [ 5 8] [10 -5] ]
...
[ 0 21] ]
[ [ 5 -6]
[ 0 -7] ] ]