Sunflower fractal: Difference between revisions

{{trans|Perl}}

 

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

size = 600

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

 

 

=={{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|Julia}}==

{{trans|R}}

Run from REPL.

 

function sunflowerplot()

for i in 2:length(r)

θ[i] = θ[i - 1] + 2π * ϕ

end

x = r .* cos.(θ)

y = r .* sin.(θ)

end

 

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)

 

=={{header|Phix}}==

{{libheader|Phix/pGUI}}

 

 

 

 

 

 

=={{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|Wren}}==

{{trans|Go}}

{{libheader|DOME}}

import "dome" for Window

 

}

}

 

=={{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]