This is one way; but, I am afraid you might not like it...
GRB216=:1 0 2{"1 RGB216=: (6 6 6#:i.216){(i.6)*255%5
plaid=. +/~@:((12$30 20 70 40) # (] , ] , ])@:(4 ? 216"_))
load 'viewmat'
(GRB216 viewmat (plaid ; 'gray GRB216'c))^:] f. 4
On Mon, Aug 4, 2014 at 4:46 AM, Linda Alvord <[email protected]>
wrote:
> This produces 4 different plaids. I want do do that, but my strategy (not
> great) is to repeat the code 4 times. UGH.
>
> Linda
>
> -----Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of David
> Lambert
> Sent: Sunday, August 03, 2014 10:19 PM
> To: [email protected]
> Subject: Re: [Jprogramming] Making Plaid Samples
>
> I would recognize that these two sentences produce the same bitmap on my
> computer
>
> viewmat 1 2
> viewmat 1 1 2 2
>
> thus I'd divide the sizes by 10
>
> P=:+/~Q=:(T=:12$3 2 7 4)#S=:N,N,N=:4?216
>
> Now it's interesting to recognize that I investigated the data instead
> of reading the j source that generated it.
>
> Symmetry: (-: |:)P
> Repetition: #/.~P
> Span of like neighbors: I. -. 2-:/\P
> and I looked at one of the graphs.
>
> > Date: Sat, 02 Aug 2014 23:00:44 -0400
> > From: "Linda Alvord"<[email protected]>
> > To:<[email protected]>
> > Subject: [Jprogramming] Making Plaid Samples
> > Message-ID: <000301cfaec7$1ecfbf10$5c6f3d30$@net>
> > Content-Type: text/plain; charset="US-ASCII"
> >
> > This code will produce four different samples of plaid material. How
> would
> > you make them more efficiently without changing the intent of P ?
> >
> >
> >
> > load 'viewmat'
> >
> > RGB216=: (6 6 6#:i.216){(i.6)*255%5
> >
> > GRB216=:1 0 2{"1 RGB216
> >
> > P=: +/~Q=:(T=:12$30 20 70 40)#S=:N,N,N=:4?216
> >
> > GRB216 viewmat P;'gray GRB216'
> >
> > P=: +/~Q=:(T=:12$30 20 70 40)#S=:N,N,N=:4?216
> >
> > GRB216 viewmat P;'gray GRB216'
> >
> > P=: +/~Q=:(T=:12$30 20 70 40)#S=:N,N,N=:4?216
> >
> > GRB216 viewmat P;'gray GRB216'
> >
> > P=: +/~Q=:(T=:12$30 20 70 40)#S=:N,N,N=:4?216
> >
> > GRB216 viewmat P;'gray GRB216'
> >
> >
> >
> > Linda
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
