Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 07f3abfb2d
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (11 sloc) 0.563 kb
use Test::More tests => 4;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::MatrixReal;
do '';
$matrix = Math::MatrixReal->new_diag( [ 1, 2, 3 ] );
$matrix2 = Math::MatrixReal->new_random(10);
ok_matrix(~$matrix, $matrix, 'transpose of a diagonal matrix is itself');
ok_matrix(~(~$matrix2), $matrix2, 'transpose twice = original' );
ok_matrix( ($matrix2 + ~$matrix2), ~($matrix2 + ~$matrix2), 'transpose commutes with addition' );
ok_matrix( ($matrix2 - ~$matrix2), -~($matrix2 - ~$matrix2), 'transpose commutes with subtraction' );
Jump to Line
Something went wrong with that request. Please try again.