MathGroup Archive 1998

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

Search the Archive

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
____________________________________________________________________


  • Prev by Date: Re: Eigenvectors of a Complex Hermitian Matrix
  • Next by Date: Mathematica lock-up when comsuming Win95 system resources
  • Previous by thread: Re: Mandelbrot
  • Next by thread: Re: Mandelbrot