$Sqs = zeroes($V); $Sqs->diagonal(0,1) .= $S; [download]
In reply to Re: Arrgghh! Perl and Matlab (round 2) by tall_man in thread Arrgghh! Perl and Matlab (round 2) by Angharad