#!/usr/bin/perl -w
use Math::MatrixReal;
$matrix = Math::MatrixReal->new_from_string(<<'MATRIX');
[ 1 2 3 ]
MATRIX
# was a 3x2 matrix in original example, removed these [ 4 5 6 ]
print $matrix . "\n\n";                #added this to example
$matrix2 = Math::MatrixReal->new(3,1); #again, original was a 3x2 matrix
$matrix2->transpose($matrix);
print $matrix2;


##</code><code>##

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


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