jcamp03a	{

	u = x = real(pixel)

	v = y = imag(pixel)

	a = real(p1)

	:

	x = x^2 + flip(y^2) + u

	y = 2*u*y + v

	IF (a == 1)

	z = (x^2 + y^2)^(.5)

	ELSEIF (a == 2)

	z = x*y

	ELSEIF (a == 3)

	z = x/y

	ELSEIF (a == 4)

	z = x^y

	ELSEIF (a == 5)

	z = fn1(x)*fn2(y)

	ELSE

	z = x + y

	ENDIF

	|z| <= 4

}



jcamp05 {

	u = real(pixel)

	v = imag(pixel)

	z = 0

	t = 1

	a = real(p2)

	b = imag(p2)

	c = real(p1)

	d = imag(p1)

	:

	x = real(z)

	y = imag(z)

	old_x = x

	x = t^a * (x^2 - y^2 + u)

	y = t^b * (2 * old_x * y + v)

	z = x + flip(y)

	t = t + c

	|z| <= 4 + d

}



jcamp06 {

	u = real(pixel)

	v = imag(pixel)

	z = 0

	t = 1

	a = real(p2)

	b = imag(p2)

	c = real(p1)

	d = imag(p1)

	:

	x = real(z)

	y = imag(z)

	old_x = x

	x = (cos(t)+1/(5*t^2)) * (x^2 - y^2 + u)

	y = ((tan(t)-t^4)^.5) * (2 * old_x * y + v)

	z = x + flip(y)

	t = t + c

	|z| <= d

}



jcamp08 {

	c = pixel

	z = 0

	:

	z = 1 - .5*z^2 + (1/24)*z^4 - (1/720)*z^6 + (1/40320)*z^8 - (1/3628800)*z^10 + c

	|z| <= real(p1)

}



jcamp09 {

	c = pixel

	z = 0

	t = 1

	:

	z = t^(imag(p1))*(1 - .5*(z-c)^2 + (1/24)*(z-c)^4 - (1/720)*(z-c)^6 + (1/40320)*(z-c)^8 - (1/3628800)*(z-c)^10)

	t = t + real(p2)

	|z| <= real(p1)

}



jcamp10 	{

	c = pixel

	z = 0

	t = 1

	:

	z = t*(z^2 + c)

	t = t + real(p1)

	|z| <= imag(p1)

}



gravipop { ;5-29-98 kathy roth

            ;imag p3 must be positive

            x=real(pixel), y=imag(pixel), h=imag(p3):

            newx = x-h*sin((y) + tan(3*y))

            newy = y-h*sin((x) + tan(3*x))

            x=newx, y=newy

            z=x + flip(y)

            w = fn1(z)

            z = fn3(p1/fn2(w*w)) + p2

            |z| < real(p3)

}