Mandelbrot set of trigonometric function exp(z)

fractal {
	// Set region margins and declare state vector as [x,n] where x and n are built-in variables
	orbit [<-5.0,-5.0>,<5.0,5.0>] [x,n] {
		// Iterate for n from 0 to 200 stopping when re(x) > 1000
		loop [0, 200] (re(x) > 1000) {
			// Precalculate values
			xr = re(x);
			xi = im(x);
			wr = re(w);
			wi = im(w);
			tc = exp(xr);
			ta = cos(xi) * tc;
			tb = sin(xi) * tc;
			zr = wr * ta - wi * tb;
			zi = wi * ta + wr * tb;
			// Set x to complex number zr + zi i
			x = <zr,zi>;
		}
	}
	// Set background color to alpha=1, red=1, green=1, blue=1
	color [(1,0,0,0)] {
		// Create palette with 200 colors and name gradient
		palette gradient {
			[#FFFF0000 > #FFFFFFFF, 10];
			[#FFFFFFFF > #FFFFFFFF, 190];
		}
		// Apply rule when n > 0 and set opacity to 1.0
		rule (n > 0) [1] {
			// Set color to element n - 1 of gradient (gradient has 200 colors starting from index 0)
			gradient[n - 1]
		}
	}
}

Mandelbrot set of trigonometric function exp(z)


Follow NextFractal on Facebook