Matlab:
load data.txt
a=data;
Perl:
$a = supersplit_open( 'data.txt' ); #Without supersplit, it's more code
####
Matlab:
sum(a')
Perl:
$sum = map{ my $c = 0; map{ $c += $_; }@$_; $c; } @$a;
##
##
Matlab:
sum(a)
Perl:
my $last = $#{$a->[0]};
$sum = [ map {0} 0..$last ];
map{ $sum->[$i] += $_->[$i] for my $i (0..$last) } @$a;
##
##
large=find( a(:,1) > 1E10 );
large_ok = find( a(:,1) > 1E10 & a(:,3) > 0 );
sum( a(large,:) )
mean( a(large_ok,:) )
##
##
SELECT mean(a1), mean(a2), mean(a3), mean(a4), mean(a5)
FROM a
WHERE a1 > 1.0E10 and a3 > 0;
##
##
Matlab:
for i=1:length(b)
s(i) = sum(b(1:i));
end
Perl:
my $localsum = 0;
$s = [ map{ $localsum += $_ } @$b ];