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
