14
Mar
04

Spiral-Shaped Julia Set Fractal

zn+1 = tan(zn2 + zc), zc = 2.0625+0.1425i
(* runtime: 5 minutes *)
Julia = Compile[{{z, _Complex}}, Length[FixedPointList[f, z, 250, SameTest -> (Abs[#] > 2 &)]]];
f[z_] := Tan[z^2 + zc]; zc = 2.0625 + 0.1425 I;
DensityPlot[Log[Julia[x + I y]], {x, 0.64836364, 0.92763636}, {y, 1.20509091, 1.48872727}, PlotPoints -> 275, Mesh -> False, Frame -> False, ColorFunction -> (CMYKColor[#, #, #, 0] &)];

Advertisements

0 Responses to “Spiral-Shaped Julia Set Fractal”



  1. Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s


Welcome !

You will find here some of my favorite hobbies and interests, especially science and art.

I hope you enjoy it!

Subscribe to the RSS feed to stay informed when I publish something new here.

I would love to hear from you! Please feel free to send me an email : bugman123-at-gmail-dot-com

Archives

Blog Stats

  • 546,238 hits

%d bloggers like this: