Randelbrot set

Back to Robert's Math Figures

Randelbrot set:

Here's the compiled Mathematica 3.0 version:

randelbrot = 
   Compile[{{c, _Complex}}, 
     -Length[
       FixedPointList[
         #^2 + c + Random[Complex, {-0.05 - 0.05 I, 0.05 + 0.05 I}]&, c, 50,
         SameTest -> (Abs[#2] > 2.0 &)]]];

ListDensityPlot[
  Table[randelbrot[a+b I], {b, -1.1, 1.1, 0.0114}, {a, -2, 0.5, 0.0142}],
    Mesh -> False, AspectRatio -> Automatic, Frame -> False];

Designed and rendered using Mathematica 3.0 for the Apple Macintosh.

[Privacy Policy] [Terms of Use]

Home || The Math Library || Quick Reference || Search || Help 

© 1994-2012 Drexel University. All rights reserved.
http://mathforum.org/
The Math Forum is a research and educational enterprise of the Goodwin College of Professional Studies.