"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/matrix.t" between
PDL-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 tests => 2;		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 = $^O =~ /win32/i ? 1e-6 : 1e-15;		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, 1e-15), "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

---