mathematica
{
parameter complex perturb;
parameter real bailout;
real px,py;

	void init(void)
	{
		z=pixel;
	}
	real TriNum(real t)
	{
		return ((t* (t + 1))/2);
	}
	void loop(void)
	{
		px=real(pixel);
		py=imag(pixel);
		z=sin(z/((TriNum(cabs(px + (sqrt(8*cabs(px) + 1) - 1)/2)) - TriNum(cabs(px + sqrt(cabs(2*px))))) + flip(py)));
	}
	bool bailout(void)
	{
		return(|z|<bailout);
	}
	void description(void)
	{
		this.title="Mathematica";
		this.helpfile = "ChaosPro.chm";
		this.helptopic = "Iteration Formula";
		this.center=(1,3);
		this.angle=0;
		this.maxiter=250;
		this.periodicity=0;
		this.helpfile="formulas.html";
		perturb.caption="Perturberation";
		perturb.default=(0,0);
		perturb.hint="Start value for iteration, also called perturberation";
		
		bailout.caption="Bailout";
		bailout.default= 31381059609;
		bailout.hint="default value is 9^11";
	}
}