#! /usr/bin/perl -w
use warnings;
use strict;	
use PDL;
my $matrixM = pdl  [ [ 1, 2,-1,-1],
                     [ 1, 2, 2, 1],
                     [ 1, 1, 1, 2],
                     [-2,-1, 1, 2] ];
my $matrixB = pdl [ [5],[10],
                    [8],[-5] ];
my $matrixX;
print "\$matrixM = ", $matrixM,"<br>\n";
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);

##</code><code>##

$matrixM =
[ [ 1  2 -1 -1] 
 [ 1  2  2  1]
 [ 1  1  1  2]
 [-2 -1  1  2]]
$matrixB =
[ [ 5]
 [10]
 [ 8]
 [-5]]
$matrixX =
[ [         3] [         2]
  [         1] [         1]]

##</code><code>##

#! /usr/bin/perl -w
use warnings;
use strict;	
use PDL;
use PDL::Complex;
my $matrixM = pdl [ [ 1+1*i, 2+1*i], [ 1-2*i, 2-1*i] ];<br>
my $matrixB = pdl [ 5+8*i, 10-5*i ];
my $matrixX;
print "\$matrixM = ",$matrixM,"<br>\n";
print "\$matrixB = ", $matrixB,"<br>\n";
print "\$matrixX = ", $matrixM->inv x $matrixB,"<br>\n";
exit(0);

##</code><code>##

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