MathGroup Archive 2004

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

Search the Archive

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>
  • Prev by Date: Re: Animation
  • Next by Date: Re: eps export
  • Previous by thread: help me
  • Next by thread: Re: help me