i think this has solved the problem load 'plot' ]x=:i:S=:10 ]L=:|.x<:/(%:3)+(-%:3)*|xproblems ]M=:0,.(0,L,0),.0 f=: 13 :'<"1 |.|: ($,$#:[:I.,)y' 'point;aspect 1;pensize 20' plot f|.M
Linda Sent from AOL Mobile Mail On Monday, September 4, 2017 'Jim Russell' via Programming <programm...@jsoftware.com> wrote: Btw, the multi-line plot failed for me, but the original version had worked on my iPhone. > On Sep 4, 2017, at 10:06 PM, Linda Alvord <lindaalv...@verizon.net> wrote: > > A single underscore is a "number" infinity. A double underscore is negative Infinity. > > Linda > > Sent from AOL Mobile Mail > > On Monday, September 4, 2017 Björn Helgason <gos...@gmail.com> wrote: > you are catenating _ to the vector > > On 4 Sep 2017 14:26, "Linda Alvord" <lindaalv...@verizon.net> wrote: > Raul, How would you explain this? > > ,i:5 > _5 _4 _3 _2 _1 0 1 2 3 4 5 > _,i:5 > _ _5 _4 _3 _2 _1 0 1 2 3 4 5 > > Linda > -----Original Message----- > From: Programming [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> > 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 > > Thanks, > > -- > Raul > > > On Sat, Sep 2, 2017 at 1:00 PM, Linda Alvord <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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
