A strange observation with PDL-2.014:

*The code:*

use PDL;

my $P = pdl('[ [ [0 1] [2 3] ] [ [4 5] [6 7] ] ]'); # Double D [2,2,2]
print "P-BEFORE info=". $P->info . " data: " . $P . "\n";
$P->reshape(4, 2);
print "P-AFTER  info=". $P->info . " data: " . $P . "\n";

my $Q = pdl([ [ [0,1],[2,3] ],[ [4,5],[6,7] ] ]); # Double D [2,2,2]
print "Q-BEFORE info=". $Q->info . " data: " . $Q . "\n";
$Q->reshape(4, 2);
print "Q-AFTER  info=". $Q->info . " data: " . $Q . "\n";

*The output on PDL-2.013 (IMO correct):*

P-BEFORE info=PDL: Double D [2,2,2] data:
[
 [
  [0 1]
  [2 3]
 ]
 [
  [4 5]
  [6 7]
 ]
]

P-AFTER  info=PDL: Double D [4,2] data:
[
 [0 1 2 3]
 [4 5 6 7]
]

Q-BEFORE info=PDL: Double D [2,2,2] data:
[
 [
  [0 1]
  [2 3]
 ]
 [
  [4 5]
  [6 7]
 ]
]

Q-AFTER  info=PDL: Double D [4,2] data:
[
 [0 1 2 3]
 [4 5 6 7]
]

*The output on PDL-2.014:*

P-BEFORE info=PDL: Double D [2,2,2] data:
[
 [
  [0 1]
  [2 3]
 ]
 [
  [4 5]
  [6 7]
 ]
]

P-AFTER  info=PDL: Double D [2,2,2] data:*##### **BUG?*
[
 [
  [0 1]
  [2 3]
 ]
 [
  [4 5]
  [6 7]
 ]
]

Q-BEFORE info=PDL: Double D [2,2,2] data:
[
 [
  [0 1]
  [2 3]
 ]
 [
  [4 5]
  [6 7]
 ]
]

Q-AFTER  info=PDL: Double D [4,2] data:
[
 [0 1 2 3]
 [4 5 6 7]
]

--
kmx
------------------------------------------------------------------------------
_______________________________________________
pdl-general mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/pdl-general

Reply via email to