Revision as of 00:53, 3 December 2021 (view source) Rdm (talk \| contribs) (J implementation) ← Older edit		Revision as of 05:15, 3 December 2021 (view source) Rdm (talk \| contribs) m (J: cleaner implementation) Newer edit →
Line 390: sunfract=: {{ NB. y: number of "sunflower seeds" phi=. 0.51+%:5 XY=. (y%10)+(2(I^phi)%~~seeds~~y) * +.^j.21p1phi*I=.1+i.y XY,.(%:I)%13 }} sunfractsvg=: {{)n <svg xmlns="http://www.w3.org/2000/svg" width="%d" height="%d" style="stroke:gold">▼ <rect width="100%%" height="100%%" fill="black" />▼ %s </svg>▼ ~~}}{{~~ fract=. sunfract x C=.,'\n<circle cx="%.2f" cy="%.2f" r="%.1f" />' sprintf fract ({{)n (m sprintf (;/<.20+}:>./fract),<C) fwrite y▼ ▲ <svg xmlns="http://www.w3.org/2000/svg" width="%d" height="%d" style="stroke:gold"> }}</lang>▼ ▲ <rect width="100%%" height="100%%" fill="black" /> %s ▲ </svg> ▲ (m}} sprintf (;/<.20+}:>./fract),<C) fwrite y}} ▲}}</lang> Example use:

Sunflower fractal (view source)