Barnsley fern: Difference between revisions

{{trans|PARI/GP}}

[[File:BarnsleyFernR.png|right|thumb|Output BarnsleyFernR.png]]

## Where: fn - file name; n - number of dots; clr - color; ttl - plot title;

## psz - picture size.

==='Obvious' solution===

The matrix solution above is a clever approach, but the following solution is more readable if you're unfamiliar with linear algebra. This is very much a blind "just do what the task says" solution. It's so simple that it probably runs unadapted in S. I suspect that there is room for an interesting use of R's ifelse function somewhere, but I couldn't find a clean way.

{

currentX<-currentY<-newX<-newY<-0