1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use Test::More tests => 7;
use File::Spec;
use lib File::Spec->catfile("..","lib");
use Math::MatrixReal;
do 'funcs.pl';
my $matrix = new Math::MatrixReal (10,10);
$matrix->one;
ok( $matrix->is_idempotent );
ok( $matrix->is_periodic(1) );
$matrix = new Math::MatrixReal (10,5);
ok( !$matrix->is_idempotent );
ok( !$matrix->is_periodic(1) );
$matrix = new Math::MatrixReal (10,10);
$matrix->one;
ok( $matrix->is_periodic(20) );
$matrix->zero;
ok( $matrix->is_periodic(20) );
ok( $matrix->is_idempotent );
|
