Sunflower fractal: Difference between revisions

{{trans|Perl}}

 

phi = (1 + sqrt(5)) / 2

size = 600

r * cos(t) + size / 2, sqrt(i) / 13))

 

 

=={{header|Action!}}==

{{libheader|Action! Tool Kit}}

{{libheader|Action! Real Math}}

 

INT ARRAY SinTab=[

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Sunflower_fractal.png Screenshot from Atari 8-bit computer]

 

=={{header|Applesoft BASIC}}==

 

=={{header|C}}==

The colouring of the "fractal" is determined with every iteration to ensure that the resulting graphic looks similar to a real Sunflower, thus the parameter ''diskRatio'' determines the radius of the central disk as the maximum radius of the flower is known from the number of iterations. The scaling factor is currently hardcoded but can also be externalized. Requires the [http://www.cs.colorado.edu/~main/bgi/cs1300/ WinBGIm] library.

 

/*Abhishek Ghosh, 14th September 2018*/

 

return 0;

}

 

=={{header|C++}}==

{{trans|Perl}}

#include <fstream>

#include <iostream>

}

return EXIT_SUCCESS;

 

{{out}}

 

=={{header|FreeBASIC}}==

Const PI As Double = 4 * Atn(1)

Const ancho = 400

Sleep

End

 

=={{header|Go}}==

<br>

The image produced, when viewed with (for example) EOG, is similar to the Ring entry.

 

import (

dc.Stroke()

dc.SavePNG("sunflower_fractal.png")

 

=={{header|javascript}}==

</html>

</pre>

TPI = Math.PI * 2, C = (Math.sqrt(10) + 1) / 2;

class Sunflower {

const sunflower = new Sunflower();

sunflower.start();

 

=={{header|J}}==

This implementation assumes a recent J implementation (for example, J903):

 

 

sunfract=: {{ NB. y: number of "sunflower seeds"

</svg>

}} sprintf (;/<.20+}:>./fract),<C) fwrite y}}

 

Example use:

 

3000 sunfractsvg '~/sunfract.html'

129147

 

(The number displayed is the size of the generated file.)

'''Works with gojq, the Go implementation of jq'''

 

def svg(size):

"<svg xmlns='http://www.w3.org/2000/svg' width='\(size)'",

svg(600),

sunflower(600),

 

=={{header|Julia}}==

{{trans|R}}

Run from REPL.

 

function sunflowerplot()

 

sunflowerplot()

 

=={{header|Liberty BASIC}}==

nomainwin

UpperLeftX=1:UpperLeftY=1

close #1

end

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

pts = Table[

i = N[ni];

{ni, numseeds}

];

 

=={{header|Microsoft Small Basic}}==

{{trans|Ring}}

GraphicsWindow.Width=410

GraphicsWindow.Height=400

y=r*Math.Cos(angle)+200

GraphicsWindow.DrawEllipse(x, y, i/numberofseeds*10, i/numberofseeds*10)

{{out}}

[https://1drv.ms/u/s!AoFH_AlpH9oZgf5kvtRou1Wuc5lSCg Sunflower fractal]

{{trans|Go}}

{{libheader|imageman}}

import imageman

 

image.drawCircle(x, y, toInt(8 * fi / Fn), Foreground)

 

 

=={{header|Objeck}}==

{{trans|C}}

use Game.Framework;

 

SCREEN_HEIGHT := 480

}

 

=={{header|Perl}}==

{{trans|Sidef}}

use constant π => 3.14159265;

use constant φ => (1 + sqrt(5)) / 2;

}

 

See [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/sunflower.svg Phi-packing image] (SVG image)

 

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/SunflowerFractal.htm here].

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">numberofseeds</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">3000</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Processing}}==

{{trans|C}}

//Abhishek Ghosh, 26th June 2022

 

ellipse(x + r*sin(theta), y + r*cos(theta), 10 * i/(1.0*iter),10 * i/(1.0*iter));

}

 

=={{header|Python}}==

from turtle import *

from math import *

 

done()

 

=={{header|R}}==

phi=1/2+sqrt(5)/2

r=seq(0,1,length.out=2000)

points(x[i],y[i],cex=size[i],lwd=thick[i],col="goldenrod1")

}

{{Out}}

[https://raw.githubusercontent.com/schwartstack/sunflower/master/sunflower2.png Sunflower]

{{trans|C}}

 

 

(require 2htdp/image)

(+ (/ WIDTH 2) (* r (sin theta)))

(+ (/ HEIGHT 2) (* r (cos theta)))

 

=={{header|Raku}}==

Or, to be completely accurate: It is a variation of a generative [[wp:Fermat's_spiral|Fermat's spiral]] using the Vogel model to implement phi-packing. See: [https://thatsmaths.com/2014/06/05/sunflowers-and-fibonacci-models-of-efficiency/ https://thatsmaths.com/2014/06/05/sunflowers-and-fibonacci-models-of-efficiency]

 

 

my $seeds = 3000;

|@c.map( { :circle[:cx(.[0]), :cy(.[1]), :r(.[2])] } ),

],

See: [https://github.com/thundergnat/rc/blob/master/img/phi-packing-perl6.svg Phi packing] (SVG image)

 

=={{header|Ring}}==

# Project : Sunflower fractal

 

}

label1 { setpicture(p1) show() }

Output:

 

=={{header|Sidef}}==

{{trans|Go}}

 

func draw_sunflower(seeds=3000) {

 

var img = draw_sunflower()

Output image: [https://github.com/trizen/rc/blob/master/img/sunflower-sidef.png Sunflower fractal]

 

=={{header|Vlang}}==

import gx

import math

}

ctx.end()

 

=={{header|Wren}}==

{{trans|Go}}

{{libheader|DOME}}

import "dome" for Window

 

}

}

 

=={{header|Yabasic}}==

{{trans|Wren}}

// Adapted from Wren to Yabasic by Galileo, 01/2022

 

y = r * cos(angle) + 200

circle x, y, i / seeds * 5

 

=={{header|zkl}}==

Uses Image Magick and

the PPM class from http://rosettacode.org/wiki/Bitmap/Bresenham%27s_line_algorithm#zkl

img,color := PPM(400,400), 0x00ff00; // green

c:=((5.0).sqrt() + 1)/2;

}

img.writeJPGFile("sunflower.zkl.jpg");

{{out}}

Image at [http://www.zenkinetic.com/Images/RosettaCode/sunflower.zkl.jpg sunflower fractal]