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.
>