Re: help me
- To: mathgroup at smc.vnet.net
- Subject: [mg47109] Re: [mg47095] help me
- From: Tomas Garza <tgarza01 at prodigy.net.mx>
- Date: Fri, 26 Mar 2004 03:55:53 -0500 (EST)
- References: <200403251048.FAA09924@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
You could search directly in the mathSource or mathGroup archives in the
Wolfram site. I don't remember exactly where I obtained the following from:
In[50]:=
MandelbrotFunction = Compile[{{c, _Complex}},
-Length[FixedPointList[#1^2 + c & , c, 50,
SameTest -> (Abs[#2] > 2. & )]]];
In[51]:=
DensityPlot[MandelbrotFunction[x + y*I],
{x, -2, 0.5}, {y, -1, 1}, Mesh -> False,
AspectRatio -> Automatic, Frame -> False,
PlotPoints -> 250];
Tomas Garza
Mexico City
----- Original Message -----
From: <natashagualtieri at libero.it>
To: mathgroup at smc.vnet.net
Subject: [mg47109] [mg47095] help me
> I'm searching for a simple programm, compiled with mathematica 5.0, that
reproduce fractals!
> Mandelbrot sets, Julia sets, Menger sponge.....
> Please, could you help me to find it?
>
>
- References:
- help me
- From: "natashagualtieri\@libero\.it" <natashagualtieri@libero.it>
- help me