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 ____________________________________________________________________