Randelbrot Set

Randelbrot set R(2): z → z² + c + random number

Here’s a compiled Mathematica 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 Apple Macintosh and (much later) 7.0 for Microsoft Windows.

[ home ] || [ 96???? ]