That's the end of the story folks! It has been quite a journey. Now all I have to do is figure out all the options for teaching it to fourth graders. Thank you Bill, Raul, Mike and Brian and everyone who suffered through the many emails.
Linda -----Original Message----- From: programming-boun...@forums.jsoftware.com [mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Raul Miller Sent: Friday, June 26, 2015 8:31 PM To: Programming forum Subject: Re: [Jprogramming] Trouble making patter for a color cube Try https://gist.github.com/rdm/3b11815d4af7392e1f62? Thanks, -- Raul On Fri, Jun 26, 2015 at 8:21 PM, Linda Alvord <lindaalv...@verizon.net> wrote: > When I copy and paste your code I get one giant last line plan=:... > > Can you show me the line breaks? > > I get a two lineerror: > > |value error: plan > | plan=.BASE(<3 1)}FRONT(<2 1)}(LEFT,TOP,RIGHT)1}BACK(<0 1)}4 > |3$BLANK > colours=.,/,/>,"_1 each/"1 nsteps mysquarecolours each plan colours viewmat > i. ($plan)*nsteps+1 > > > Linda > -----Original Message----- > From: programming-boun...@forums.jsoftware.com > [mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Brian > Schott > Sent: Friday, June 26, 2015 4:21 PM > To: Programming forum > Subject: Re: [Jprogramming] Trouble making patter for a color cube > > Linda, > > I am able to make Mike's code work for the following case in jqt and in jhs. > Both produce viewmats. Perhaps you could try it because it eliminates > blank lines and includes other side verbs and nouns. > > NB. Mike Day > NB. 6/25/15 > > > load'viewmat' > > 'BLACK BLUE GREEN CYAN RED MAGENTA YELLOW WHITE'=:#:i.8 > > msc=:mysquarecolours =: 3 : 0 > : > nsteps =. x > 'A B C D' =. y > lamda =. (,:~-.)@:(%~ i.@>:) nsteps > AB =. lamda +/@:(*/"1) A,:B NB. mix of colours between corners A & B CD =. > lamda +/@:(*/"1) D,:C NB. mix of colours between corners C & D > 1 0 2 |: <.255 * lamda +/@:(*/"1) AB,:CD NB. transpose 'cos I got the > order wrong! > ) > mycube=: 3 : 0 > : > nsteps =. 2 >. <: x > 'A B C D H G F E' =. y > BLANK =. < BLACK;BLACK;BLACK;BLACK > FRONT =. < A;B;C;D > BACK =. < H;G;F;E > TOP =. < E;F;B;A > LEFT =. < H;E;A;D > RIGHT =. < F;G;C;B > BASE =. < D;C;G;H > plan =. BASE(<3 1)}FRONT(<2 1)}(LEFT,TOP,RIGHT)1}BACK(<0 1)}4 3$BLANK > colours =. ,/,/>,"_1 each/"1 nsteps mysquarecolours each plan colours > viewmat i.($plan)*nsteps+1 > ) > 30 mycube BLACK,BLUE,WHITE,GREEN,RED,YELLOW,CYAN,:MAGENTA > > > > > > > -- > (B=) > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
