Here is Raul's improvement load 'plot' ]x=:_,(i:S=:10),_ ]M=:|.x<:/(%:3)+(-%:3)*|x f=: 13 :'<"1 |.|: ($,$#:[:I.,)y' 'point;aspect 1;pensize 20' plot f|.M
Linda Sent from AOL Mobile Mail On Tuesday, September 5, 2017 Linda Alvord <lindaalv...@verizon.net> wrote: load 'plot' ]x=:i:S=:10 ]L=:|.x<:/(%:3)+(-%:3)*|x ]M=:0,.(0,L,0),.0 f=: 13 :'<"1 |.|: ($,$#:[:I.,)y' 'point;aspect 1;pensize 20' plot f|.M Sent from AOL Mobile Mail On Tuesday, September 5, 2017 bill lam <bbill....@gmail.com> wrote: Linda, I tried your script on jandroid, it failed with an ill format number error in the line, ]M=:0,.(0,L,0),.0n The last 0n should be just 0. I think. Also there is an extra point on the top right corner, is that expected? On Sep 5, 2017 3:49 PM, "Linda Alvord" <lindaalv...@verizon.net> wrote: Something happened when I sent this earlier. Sorry load 'plot' ]x=:i:S=:10 ]L=:|.x<:/(%:3)+(-%:3)*|x ]M=:0,.(0,L,0),.0n f=: 13 :'<"1 |.|: ($,$#:[:I.,)y' 'point;aspect 1;pensize 20' plot f|.M From: Linda Alvord [mailto:lindaalv...@verizon.net] Sent: Monday, September 4, 2017 8:48 PM To: lindaalv...@verizon.net; programm...@jsoftware.com Subject: Re: [Jprogramming] paint equilateral triangle in plot Much better, thanks to Raul. Try on your phone. load 'plot' ]x=:i:S=:10 ]L=:|.x<:/(%:3)+(-%:3)*|x ]M=:0,.(0,L,0),.0n f=: 13 :'<"1 |.|: ($,$#:[:I.,)y' 'point;aspect 1;pensize 20' plot f|.M Linda Sent from AOL Mobile Mail _____ On Saturday, September 2, 2017 Linda Alvord <lindaalv...@verizon.net <mailto:lindaalv...@verizon.net> > wrote: Nice! Maybe it will be even simper if I chop it back into little pieces. Linda -----Original Message----- From: Programming [mailto:programming-bounces@ forums.jsoftware.com <mailto:programming-boun...@forums.jsoftware.com?> ] On Behalf Of Raul Miller Sent: Saturday, September 2, 2017 1:37 PM To: Programming forum <programm...@jsoftware.com <mailto:programming@jsoftware. com> > Subject: Re: [Jprogramming] paint equilateral triangle in plot Do you mean like this? load 'plot' E=:(%:3) (] <:/ [ - (* |)) _,~_,i:20 'point;aspect 1;pensize 10' plot <"1|.|:($, $ #: I.@,)E <mailto:I.@,)E> Thanks, -- Raul On Sat, Sep 2, 2017 at 1:00 PM, Linda Alvord < lindaalv...@verizon.net <mailto:lindaalv...@verizon.net> > wrote: > > > It has rounded vertices and lumpy sides and uses too much paint. > > Experiment with S and pensize. > > > > load 'plot' > ]xx=:i:s=:20 > ]yy=:(%:3)+(-%:3)*|xx > ]D=:|.xx<:/yy > ]E=:|.0,.(0,D,0),.0 > ]t=:0{$E > ]x=:t#i.t > ]y=:(*:t)$i.t > ]A=: x;y > ]B=:|:>AI=:($E),"2(,E)#B > ]J=:|.<"1 |:I > 'point;aspect 1;pensize 10' plot J > > Please share ways to of ways to simplify this. Thanks. > Linda > > > Linda > > > Experiment with S and pensize. > > > > load 'plot' > > ]xx=:i:s=:20 > > ]yy=:(%:3)+(-%:3)*|xx > > ]D=:|.xx<:/yy > > ]E=:|.0,.(0,D,0),.0 > > ]t=:0{$E > > ]x=:t#i.t > > ]y=:(*:t)$i.t > > ]A=: x;y > > ]B=:|:>A > > I=:($E),"2(,E)#B > > ]J=:|.<"1 |:I > > $J > > 'point;aspect 1;pensize 10' plot J > > Let me know of ways to simplify this. Thanks. > > > > Linda > > > > Sent from AOL Mobile Mail > ---------------------------------------------------------------------- > 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
