Mandelbrot Movie

This uses the MathLink program described on pages 382-388 of Applied Mathematica: Getting Started, Getting it Done by Shaw and Tigg, Addison Wesley, ISBN: 0-201-54217-X.  The source code is availabe on MathSource as item 0205-366.

This MathLink program was built as a native Power Macintosh program called "Fractals" without any changes using Metrowerks CodeWarrior on a Power Macintosh 6100/60.

Installation

Install["Fractals"]

LinkPatterns[%]

The MathMovies

f[n_] := 0.8^n

g[n_] := {{-1.40835915-f[n],-1.40835915+f[n]},
			{0.13627737-f[n],0.13627737+f[n]}}

g[0]

plot[n_]:=Show[Graphics[RasterArray[
		FractalML[0.0, 0.0, g[n], 216]], 
		AspectRatio -> 1]]

The following takes 1770.40 seconds on a Power Macintosh 6100/60.

Do[plot[n],{n,-3, 30}]