Re: fractals in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg44238] Re: fractals in Mathematica
- From: Matthias <no at spam.pls>
- Date: Fri, 31 Oct 2003 03:01:04 -0500 (EST)
- Organization: Rechenzentrum Uni-Mannheim
- References: <bnnvbp$61b$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
mathma18 at hotmail.com (Narasimham G.L.) writes:
> Where does one get net based Mathematica codes for fractals like
> Julia, Mandelbrot ? It should contain a line to type in various other
> functions of a complex variable with settings for number of
> iterations, color codes &c with defaults. TIA
You can write things like that really easily in plain Mathematica:
Mandel[c_] := Module[{x = 0, i = 0},
While[i < 100 \[And] Abs[x] < 4,
x = x^2 + c;
i = i + 1];
Return[i]]
DensityPlot[Mandel[x + I y], {x, -2, 1}, {y, -1, 1}, PlotPoints -> 100,
Mesh -> False]