when adding ;-, mv(-1,1) in the += statement, I get the expected result.
If the sloppy code is not expected to work, please barf, but do not continue with nonsense!
Cheers Ingo pdl> $x=zeroes(4,5,3,2,3,10) pdl> $y=floor random(4,10)*20 $x(,0,0,0,0,)+=$y pdl> p $y [ [ 4 7 3 16] [ 0 9 8 4] [15 10 10 6] [17 4 19 10] [15 3 0 6] [13 13 6 3] [ 8 6 13 4] [ 4 13 15 11] [ 0 6 18 3] [15 10 6 18] ] pdl> p $x(,0,0,0,0,;-) [ [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] [91 81 98 81] ]
_______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
