You should also define f before referencing it, since it's a noun. That said, good job.
Thanks, -- Raul On Tue, Mar 1, 2016 at 5:32 PM, Ric Sherlock <[email protected]> wrote: > Thanks to Chris for pointing out that there were formatting issues with my > last post. > I'll try to post again - this time after removing formatting so that > (hopefully) the line-endings don't get stuffed up. > > require 'plot' > > fm=: {&(_2 (]\"1) 4 {."1 f) > fa=: {&(4 5 {"1 f) > prob=: (+/\ 6 {"1 f) I. ?@0: > > ifs=: prob (fa@[ + fm@[ +/ .* ]) ] > getPoints=: ifs^:(<200000) > plotFern=: 'dot' plot ;/@|: > > > f=: _99 ". ];._2 noun define > 0 0 0 0.16 0 0 0.01 > 0.85 0.04 -0.04 0.85 0 1.60 0.85 > 0.20 -0.26 0.23 0.22 0 1.60 0.07 > -0.15 0.28 0.26 0.24 0 0.44 0.07 > ) > > plotFern getPoints 0 0 > > On Wed, Mar 2, 2016 at 11:02 AM, Ric Sherlock <[email protected]> wrote: > >> I haven't played with this stuff before and found the result quite magical. >> Here is what I ended up with... >> >> require 'plot' >> >> >> fm=: {&(_2 (]\"1) 4 {."1 f) >> >> fa=: {&(4 5 {"1 f) >> >> prob=: (+/\ 6 {"1 f) I. ?@0: >> >> >> ifs=: prob (fa@[ + fm@[ +/ .* ]) ] >> >> getPoints=: ifs^:(<200000) >> >> plotFern=: 'dot' plot ;/@|: >> >> >> f=: _99 ". ];._2 noun define >> >> 0 0 0 0.16 0 0 0.01 >> >> 0.85 0.04 -0.04 0.85 0 1.60 0.85 >> >> 0.20 -0.26 0.23 0.22 0 1.60 0.07 >> >> -0.15 0.28 0.26 0.24 0 0.44 0.07 >> >> ) >> >> >> plotFern getPoints 0 0 >> >> On Wed, Mar 2, 2016 at 7:22 AM, Raul Miller <[email protected]> wrote: >> >>> Someone created a couple rosettacode pages: >>> >>> http://rosettacode.org/wiki/Barnsley_fern >>> >>> and >>> >>> https://en.wikipedia.org/wiki/Chaos_game >>> >>> which correspond roughly to sections 4.4 and 4.5 of your book. >>> >>> Do you feel like doing the J entries for these two rosettacode tasks? >>> >>> Or would you prefer someone less expert (such as myself) to be doing that? >>> >>> Thanks, >>> >>> -- >>> Raul >>> >>> On Fri, Feb 26, 2016 at 7:07 AM, Cliff Reiter <[email protected]> >>> wrote: >>> > I posted this in Jchat, but was encouraged to also post here. Apologies >>> for >>> > the overlap. >>> > >>> > Hello fellow Jer's, >>> > I have released print and PDF versions of >>> > Fractals, Visualization and J, Fourth edition, Part 1 >>> > at lulu.com. Compared to the 3rd edition, there are several new >>> sections, >>> > fairly substantial reorganization and update of scripts to JQT 8.04 >>> along >>> > with the wordsmithing inspired by feedback from teaching a few times >>> with >>> > it. >>> > The table of contents for 4th ed. Part 1 and sample sections from each >>> > chapter (and lulu links) can be found at: >>> > http://webbox.lafayette.edu/~reiterc/j/fvj4/index.html >>> > Note, I have left the 3rd edition as available at lulu since it works OK >>> > with J6.02 (32bit) and is complete. So be alert to edition. Last year at >>> > this time I thought 4th ed. Part 1 would be done by August '15. So Part >>> 2 is >>> > in the works but is at least several months away. >>> > Best, Cliff >>> > ---------------------------------------------------------------------- >>> > 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
