Select Code to Download

#!/usr/bin/perl
use warnings;
...
$s->print("Solutions s\n");
$a->multiply($s)->print("A*s\n");

OUTPUT
det-> 0
...
18.00000
19.00000
20.00000

#!/usr/bin/perl
use warnings;
...

my $out = $A * $solution;
print $out,"\n";

OUTPUT:
det-> 0
...
[  1.800000000000E+01 ]
[  1.900000000000E+01 ]
[  2.000000000000E+01 ]

#!/usr/bin/perl
use warnings;
...
$s->print("Solutions s\n");
$a->multiply($s)->print("A*s\n");

OUTPUT:
det-> -1104
...
18.00000
19.00000
20.00000

#!/usr/bin/perl
use warnings;
...

my $out = $A * $solution;
print $out,"\n";

det-> -1104
dim->0
...
[  1.800000000000E+01 ]
[  1.900000000000E+01 ]
[  2.000000000000E+01 ]

[1  0  0  0],
[0  1  0  0],
[0  0  1  0],
[0  0  0  1]

#!/usr/bin/perl
use warnings;
...

print "solution->\n$c\n";

OUTPUT:
[  1.000000000000E+00 -2.000000000000E+00  3.000000000000E+00  4.00000
+0000000E+00 ]
...
[  1.803260869565E+01 ]
[  1.602898550725E+01 ]
[  8.804347826087E-01 ]