viewmat((1>+/~@:(4^~(%~i:)))*.1<+/~@:(2^~(%~i:)))666 NB. no output $viewmat((1>+/~@:(4^~(%~i:)))*.1<+/~@:(2^~(%~i:)))666 0 0
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm