MathGroup Archive 1998

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

Search the Archive

RE: fractals

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14471] RE: [mg14457] fractals
  • From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
  • Date: Fri, 23 Oct 1998 20:58:49 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

The program below for the Mandelbrot set was appeared  in The
Mathematica Journal 7(1):14. 


In[1]:=
Mandelbrot = Compile[{{c, _Complex}}, 
   Length[FixedPointList[#1^2 + c & , c, 50, 
      SameTest -> (Abs[#2] > 2. & )]]]; 


In[2]:=
DensityPlot[Mandelbrot[x + I*y], {x, -2., 0.5}, {y, -1.1, 1.1}, 
  Mesh -> False, AspectRatio -> Automatic, Frame -> False, ColorFunction
-> Hue, PlotPoints -> 125];

(* Graphic not shown *)


Cheers,
Ted Ersek

___________________________
 James L. Fisher wrote:
>
>I am looking for examples of fractals generated 
>using Mathematica programing.  These can be 
>Serpinski carpet, etc. .........
>


  • Prev by Date: Re: Two programming challenges
  • Next by Date: Button Function
  • Previous by thread: fractals
  • Next by thread: Re: fractals