"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/basic.t" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

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

basic.t  (PDL-2.077):basic.t  (PDL-2.078)
skipping to change at line 46 skipping to change at line 46
my $a1=zeroes(101,51,26); my $a1=zeroes(101,51,26);
my $x = $a1->xlinvals(0.5,1.5); my $x = $a1->xlinvals(0.5,1.5);
my $y = $a1->ylinvals(-2,-1); my $y = $a1->ylinvals(-2,-1);
my $z = $a1->zlinvals(-3,2); my $z = $a1->zlinvals(-3,2);
ok(all($a1->shape==$x->shape), "xlinvals shape"); #7 ok(all($a1->shape==$x->shape), "xlinvals shape"); #7
ok(all($a1->shape==$y->shape), "ylinvals shape"); #8 ok(all($a1->shape==$y->shape), "ylinvals shape"); #8
ok(all($x->shape==$z->shape), "zlinvals shape"); #9 ok(all($x->shape==$z->shape), "zlinvals shape"); #9
ok(tapprox($x->uniqvec->flat,pdl(50..150)/100),"xlinvals values"); #10 ok(tapprox($x->uniqvec->flat,pdl(50..150)/100),"xlinvals values"); #10
ok(tapprox($y->mv(1,0)->uniqvec->flat,pdl(-100..-50)/50),"ylinvals values"); #11 ok(tapprox($y->mv(1,0)->uniqvec->flat,pdl(-100..-50)/50),"ylinvals values"); #11
ok(tapprox($z->mv(2,0)->uniqvec->flat,pdl(0..25)/5-3),"zlinvals values"); #12 ok(tapprox($z->mv(2,0)->uniqvec->flat,pdl(0..25)/5-3),"zlinvals values"); #12
$a1->inplace->xvals;
my $got = $a1->slice('(10),(0),(0)');
ok tapprox($got, 10), 'inplace xvals works' or diag "got:$got";
} }
{ {
my $x = zeroes(11,6,8); my $x = zeroes(11,6,8);
my $xl = $x->xlogvals(1e2,1e12); my $xl = $x->xlogvals(1e2,1e12);
my $yl = $x->ylogvals(1e-3,1e2); my $yl = $x->ylogvals(1e-3,1e2);
my $zl = $x->zlogvals(1e-10,1e-3); my $zl = $x->zlogvals(1e-10,1e-3);
ok(all($x->shape==$xl->shape),"xlogvals shape"); #13 ok(all($x->shape==$xl->shape),"xlogvals shape"); #13
ok(all($x->shape==$yl->shape),"ylogvals shape"); #14 ok(all($x->shape==$yl->shape),"ylogvals shape"); #14
ok(all($x->shape==$zl->shape),"zlogvals shape"); #15 ok(all($x->shape==$zl->shape),"zlogvals shape"); #15
 End of changes. 1 change blocks. 
0 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)