Re: Mandelbrot Set & Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg48078] Re: Mandelbrot Set & Mathematica*From*: drbob at bigfoot.com (Bobby R. Treat)*Date*: Tue, 11 May 2004 05:20:00 -0400 (EDT)*References*: <c7fhp4$oar$1@smc.vnet.net> <c7kl4u$2j6$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Why post 1,000 lines of binary ejecta, when this is all we need? f[x_, y_, max_] := ( z = c = x + I*y; i = 0; While[ Abs[z] < 2.0 && i < max, z = z*z + c; i++ ]; Return[i]; ) DensityPlot[ f[x, y, 60], {x, -2.25, 0.75}, {y, -1.5, 1.5}, PlotPoints -> 150, Mesh -> False, ColorFunction -> Hue ] Bobby "Roger L. Bagula" <rlbtftn at netscape.net> wrote in message news:<c7kl4u$2j6$1 at smc.vnet.net>... > I've attached a short Mandelbrot that works > which I found at a Japanese site. > There is a Mandelbrot 3d that came with 2.2 documentastion and was on > the Math Source cd with information of using c programs with Mathematica. > > fake wrote: > > I'm looking for a program using Mathematica commands to obtain the > > Mandelbrot set representation without using the .m file "Fractal" > > downloadable from Mathworld. Please report the Timing parameter if you have > > done some tests. > > TIA > > > > > filename="m._wks.nb" > > (*********************************************************************** > > Mathematica-Compatible Notebook > > This notebook can be used on any computer system with Mathematica 3.0, > MathReader 3.0, or any compatible application. The data for the notebook > starts with the line of stars above. >