Select Code to Download

#!/usr/bin/perl 

...
$recA = $Us * $Ss * $Vs;

print "$recA\n";

$recA = $Us * $Ss * $Vs;

recA = U(:,1:ns)*S(1:ns,1:ns)*Vt(1:ns,:)