## "Fossies" - the Fresh Open Source Software Archive

### Source code changes of the file "t/matrix.t" betweenPDL-2.080.tar.gz and PDL-2.081.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

matrix.t  (PDL-2.080):matrix.t  (PDL-2.081)
use strict; use strict;
use warnings; use warnings;
use PDL::LiteF; use PDL::LiteF;
use Test::More; use Test::More;
use PDL::Matrix; use PDL::Matrix;
use PDL::MatrixOps;
my \$m = mpdl([[1,2,1],[2,0,3],[1,1,1]]); # matrix with determinant 1 my \$m = mpdl([[1,2,1],[2,0,3],[1,1,1]]); # matrix with determinant 1
my \$tol = ; my \$tol = 1e-6;
note "determinant: ",\$m->det; note "determinant: ",\$m->det;
ok approx(\$m->det, 1, \$tol), "det" or diag 'got: ', \$m->det; ok approx(\$m->det, 1, \$tol), "det" or diag 'got: ', \$m->det;
ok approx(\$m->determinant, 1, "determinant"; ok approx(\$m->determinant, 1, \$tol), "determinant";
is ref(identity(\$m)), 'PDL::Matrix', 'identity of mpdl right class';
is ref(my \$from_scalar = identity(vpdl 3)), 'PDL::Matrix', 'identity of mpdl rig
ht class';
is \$from_scalar.'', <<EOF, 'from scalar';
\n[
[1 0 0]
[0 1 0]
[0 0 1]
]
EOF
my \$v = vpdl [1..3];
my \$gotfunc = inv(\$m);
my \$gotfuncmul = \$gotfunc x \$v;
my \$expected = vpdl('[13 -2 -8]');
isa_ok \$gotfunc, 'PDL::Matrix', 'inv(\$mpdl) right class';
ok all(approx \$gotfuncmul, \$expected, \$tol), 'inv(\$mpdl) mult correct'
or diag "gotfuncmul=",ref(\$gotfuncmul),":", \$gotfuncmul,
"expected=",ref(\$gotfuncmul),":", \$expected;
my \$gotmeth = \$m->inv;
my \$gotmethmul = \$gotmeth x \$v;
isa_ok \$gotmeth, 'PDL::Matrix', '\$mpdl->inv right class';
ok all(approx \$gotmethmul, \$expected, \$tol), '\$mpdl->inv mult correct';
done_testing;
End of changes. 4 change blocks.
2 lines changed or deleted 3 lines changed or added