Help for this page

Select Code to Download


  1. or download this
    pdl> $x = sequence 2,2,3     # "2x2 planar RGB" image, 4 unique colors
pdl> $x = $x-> glue( 0, $x ) # "4x2 RGB" image, 4 unique colors
...

pdl> p $x-> clump(2)-> transpose-> uniqvec-> getdim( 1 )
5
  2. or download this
    use strict;
use warnings;
...

>perl pdl180504.pl
1627779072.000000