;NOTE: This is currently a project in the works! ; ; Swanson { ;A generic Swanson file. ;Can change the power settings. init: z= pixel; loop: z= z^@power + #pixel z= z*(cos(z)^2)+#pixel bailout: |z| < 4 default: param Power default= (2,0) endparam switch: type= "Mandric" power= @power seed= #pixel } ;New Formula File Mandric { ;Mandric incorporates the sin and cos ;trigonomic functions along with a user ;defined power. ; init: z= #pixel loop: z= cos(z)^@power + @seed z= sin(z)^@power + @seed bailout: |z|<6 default: param Power default=(2,0) endparam param Seed default= (-1.25,0) endparam switch: type= "Swanson" power= @power } ;New Formula Hyperbon{ ;As with Mandric, incorporates trigonomic ;functions. Allows user to choose Bailout and ;power. ; init: z= 0; complex pix= #pixel loop: z= sin(cos(z)^@power) + pix z= (z / 2+ z^2) + #pixel bailout: |z| < @bailout default: param Power default= (2,0) endparam param Bailout default= 6 endparam } Newton { ; ; Standard Newton fractal. ; init: z = pixel loop: zold = z z = ((p1 - 1) * z^p1 + @r) / (p1 * z ^ (p1 - 1)) bailout: |z - zold| >= 0.00001 default: title = "Newton" helpfile = "Uf3.chm" helptopic = "Html\formulas\standard\newton.html" maxiter = 100 param p1 caption = "Exponent" default = (3,0) hint = "Specifies the exponent of the equation that is solved by \ Newton's method. Use real numbers (set the imaginary component \ to zero) to obtain classic Newton fractals." endparam param r caption = "Root" default = (1,0) hint = "Specifies the root of the equation that is solved. Use larger \ numbers for slower convergence." endparam } Hyperbonenhanced{ ;Choose Power and Bailout ;incorporates tan, cos, sin. ; init: z= 0 loop: z= sin(z)+cos(z)+#pixel z= sin((z^@power)) bailout: |z| < @bailout default: title= "Enhanced Hyperbon" param Power default= (2,0) endparam param Bailout default= 4 endparam } ;More Files Cantant{ ; ; init: z= #pixel int oldz= 0 loop: z= acos(z+oldz) bailout: |z| < @bailout default: title= "Cantant" param Power default= (2,0) endparam param Bailout default= 4 endparam } Bolla{ ; ; init: z= fn1(pixel^2) complex v= (1) complex x= (1) loop: z= (z*z)+#pixel v= fn1(abs(tan(v))) + #pixel x= z+v+x+#pixel bailout: |z|<@bailout default: param Bailout default= 4 endparam switch: type= "Fringe" bailout= @bailoutr } Fringe{ ; ; init: loop: z= cos(sin(z)^@power+#pixel) bailout: |z|<@bailout default: param Power default= 4 endparam param Bailout default= 4.3 endparam switch: type= "Bolla" bailout= @bailout }