Re: Mandelbrot
- To: mathgroup at smc.vnet.net
- Subject: [mg13599] Re: Mandelbrot
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Fri, 7 Aug 1998 03:08:04 -0400
- Organization: University of Western Australia
- References: <6q3r31$f29@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Jon Prudhomme wrote:
> I was just curious if anyone had found a decent way to plot the
> Mandelbrot or Julia sets with Mathematica yet.
A nice, fast, solution was presented in The Mathematica Journal 7(1):14.
Mandelbrot = Compile[{{c, _Complex}},
Length[FixedPointList[#1^2 + c & , c, 50,
SameTest -> (Abs[#2] > 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];
Cheers,
Paul
____________________________________________________________________
Paul Abbott Phone: +61-8-9380-2734
Department of Physics Fax: +61-8-9380-1014
The University of Western Australia Nedlands WA 6907
mailto:paul at physics.uwa.edu.au AUSTRALIA
http://www.physics.uwa.edu.au/~paul
God IS a weakly left-handed dice player
____________________________________________________________________