RE: fractals
- To: mathgroup at smc.vnet.net
- Subject: [mg14471] RE: [mg14457] fractals
- From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
- Date: Fri, 23 Oct 1998 20:58:49 -0400
- Sender: owner-wri-mathgroup at wolfram.com
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. .........
>