Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use Math::MatrixReal;
...
$matrix2 = Math::MatrixReal->new(3,1); #again, original was a 3x2 matr
+ix
$matrix2->transpose($matrix);
print $matrix2;

Select or download this

[  1.000000000000E+00  2.000000000000E+00  3.000000000000E+00 ]


[  1.000000000000E+00 ]
[  2.000000000000E+00 ]
[  3.000000000000E+00 ]