Barnsley fern: Difference between revisions

→‎{{header|J}}: nicer image
(→‎{{header|J}}: add row/column labels for coefficient table)
(→‎{{header|J}}: nicer image)
Line 1,573:
ifs=: (fa@] + fm@] +/ .* [) prob
getPoints=: ifs^:(<200000)
plotFern=: 'dot;gridsframe 0;grids 0;tics 0 0;labels 0;aspect 02;color green' plot ;/@|:
plotFern getPoints 0 0</syntaxhighlight>
892

edits