When I looked at it again, there is what I think may be an easily correctable problem. When you fold up the cube one corner should be the center of a three dimensional graph. Black should extend to blue, red and green from the same corner. Thens the white corner of the cube should be diagonally opposite from the black corner.
Linda -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Linda Alvord Sent: Friday, June 26, 2015 10:15 PM To: [email protected] Subject: Re: [Jprogramming] Trouble making patter for a color cube 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: [email protected] [mailto:[email protected]] 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 <[email protected]> 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: [email protected] > [mailto:[email protected]] 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
