MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: fractals


The program below for the Mandelbrot set was appeared  in The
Mathematica Journal 7(1):14. 


In[1]:=
Mandelbrot = Compile[{{c, _Complex}}, 
   Length[FixedPointList[#1^2 + c & , c, 50, 
      SameTest -> (Abs[#2] > 2. & )]]]; 


In[2]:=
DensityPlot[Mandelbrot[x + I*y], {x, -2., 0.5}, {y, -1.1, 1.1}, 
  Mesh -> False, AspectRatio -> Automatic, Frame -> False, ColorFunction
-> Hue, PlotPoints -> 125];

(* Graphic not shown *)


Cheers,
Ted Ersek

___________________________
 James L. Fisher wrote:
>
>I am looking for examples of fractals generated 
>using Mathematica programing.  These can be 
>Serpinski carpet, etc. .........
>


  • Prev by Date: Re: Two programming challenges
  • Next by Date: Button Function
  • Previous by thread: fractals
  • Next by thread: Re: fractals