comment { This file contains fractal types for Ultra Fractal 4. Many of the fractal formulas here were written by other formula authors, as noted in the comments with each formula. The standard.ufm was the basis for it. Other sources are mentioned on the spot. } NewtonSB1 { ; ; Copyright 2005 by Serge Bouwens ; Slightly changed Newton fractal. ; Added is the parameter p2 "Distortion". ; Small changes have large effects in a large variety. ; There is no further help or theory: this is just a first experimental tweak. ; Use at your own risk :-) ; init: z = pixel loop: zold = z z = ((p1 - 1) * z^p2 * p1 + @r) / (p1 * z ^ p2 *(p1 - 1)) bailout: |z - zold| >= 0.00001 default: title = "Newton SB1" helpfile = "Uf*.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 part \ 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 param p2 caption = "Distortion" default = (1,0) hint = "just to create abnormal results, the exponent is multiplied by p2" endparam } NewtonSB2 { ; ; Copyright 2005 by Serge Bouwens ; Slightly changed Newton fractal. ; Added is the parameter p2 "Distortion" and the sin function. ; Small changes have large effects in a large variety. ; There is no further help or theory: this is just a first experimental tweak. ; Use at your own risk :-) ; init: z = pixel loop: zold = z z = (sin(p1 - 1) * z^p2 * p1 + @r) / atan(p1 * z ^ p2 *(p1 - 1)) bailout: |z - zold| >= 0.00001 default: title = "Newton SB2" helpfile = "Uf*.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 part \ 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 param p2 caption = "Distortion" default = (1,0) hint = "just to create abnormal results, the exponent is multiplied by p2" endparam }