MathGroup Archive 2004

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

Search the Archive

Re: Mandelbrot Set & Mathematica


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


  • Prev by Date: RE: Building List
  • Next by Date: nonlinear theory of elasticity question using Mathematica
  • Previous by thread: Re: Re: Mandelbrot Set & Mathematica
  • Next by thread: RE: Re: Mandelbrot Set & Mathematica