Select Code to Download

use strict;
use warnings;
...
print $x-> transpose
        -> whereND( $mask )
        -> transpose;

print $z-> info( '%M' );

my $a = ones(3);
my $b = 2 * ones(3);
...
$b *= $a;

print $b;

my $z = random( 10 );
$z( $z-> maximum_ind ) .= 0;
print $z;

my $z = zeroes( 10 );
my $i = pdl( 1, 3, 5, 3, 1 );
indadd( 1, $i, $z );
print $z;

my $z = 1 + sequence 14;
my $len = 4;

print $z-> lags( 0, 1, 1 + $z-> nelem - $len )
        -> slice( '','-1:0' );

my $x = sequence 16, 16;

...
        -> lags( 0, 4, 4 )
        -> slice( '', '-1:0' )
        -> sumover;

my $x = sequence 16, 16;

...
        -> reorder( 0, 2, 1, 3 )
        -> clump( 2 )
        -> sumover