Mandelbrot_construct_3 { ; ; Constructing the Mandel Set ... ; ; alternating some mandelbrot formulas ... ; parameter description : ; ; here we have 3 mandelbrot formulas together ; ; when in MANDELBROT Mode: ; shift1,shift2,shift3 - are the shift values for each formula ; power1,power2,power3 - the powers of the formulas ... ; pertubate - global pertubation value ; ; when in JULIA mode: ; shift1,shift2,shift3 - are the Julia Seed values for each formula ; power1,power2,power3 - the powers of the formulas ... ; pertubate - global pertubation value ; ; www.fractalmovies.com - delightful fractalmovies ... ; c.Kleinhuis feb 2002 init: if !@julia z=@pertubate c=#pixel+@Shift_1 c2=#pixel+@Shift_2 c3=#pixel+@Shift_3 else z=#pixel c=@Shift_1 c2=@Shift_2 c3=@Shift_3 endif int count=0 loop: count=count+1 if count %2 ==0 z = z^@power_1+c ELSEif count %3 ==1 z = z^@power_2+c2 ELSEif count %3 ==2 z = z^@power_3+c3 Endif bailout: |z| <= @bailout default: title = "ck Mandelbrot Construct 3" center = (-0.5, 0) param shift_1 caption = "1 Shift" default = (0,0) hint = "Perturbation or julia set parameter for first fractal, use at your own RISK." endparam param shift_2 caption = "2 Shift" default = (0,0) hint = "Perturbation or julia set parameter for second fractal, use at your own RISK." endparam param shift_3 caption = "3 Shift" default = (0,0) hint = "Perturbation or julia set parameter for third fractal, use at your own RISK." endparam param power_1 caption = "Power 1" default = (2,0) hint = "This defines the power of the first Mandelbrot set. Use (2,0) \ for the standard Mandelbrot set." endparam param power_2 caption = "Power 2" default = (2,0) hint = "This defines the power of the second Mandelbrot set. Use (2,0) \ for the standard Mandelbrot set." endparam param power_3 caption = "Power 3" default = (2,0) hint = "This defines the power of the third Mandelbrot set. Use (2,0) \ for the standard Mandelbrot set." endparam param bailout caption = "Bailout value" default = 4.0 min = 1.0 hint = "Defines how soon an orbit bails out, i.e. doesn't belong \ to the Mandelbrot set anymore." endparam param julia caption = "Julia Mandelbrot" default=false endparam switch: type = "Mandelbrot_construct_3" p1 = #pixel power = power bailout = bailout } Ludwig_K { ; Ludwig k ; A designed fractal, ; 2002 by c.Kleinhuis ; ; notes: ; i like most the lifelikeliness of this fractal, ; try changing phoenix distortion and magnet shift ; for exciting results ... ; Consider: The deeper you zoom, the more interesting ! ; init: ;- ; halley init float zmod = |z| float oldzmod = 0 ;- ; Phoenix init complex y = 0 ;- ;Magnet init pixel2=@start+#pixel+@shift_magnet m_pixel=@start+#pixel complex mz=(0,0) z = @start + #pixel complex oldz=0 int counter=0 p1=@p1 p2=@p2 bool check_halley=false bool check_magnet=false loop: counter=counter+1 check_halley=false check_magnet=false IF (counter % 3) ==0 ; ; ; Mandelbrot z = z^@man_power+#pixel ELSEIF(counter %3) == 1 ; Phoenix z = z^p1 + pixel * z^(p1- 1) + p2 * y y = z ELSEIF(counter%3==2) ; Magnet z = sqr( (z^2 + m_pixel - 1) / (2*z * + pixel2 - 2) ) check_magnet=true ENDIF oldz=z bailout: (|z|>0.01 ) || (check_magnet &&((|z - 1| < 0.0001) ||(|z|>= 123))) || (check_halley&&( abs(zmod - oldzmod) <= 0.0001)) default: title = "Ludwig K" periodicity = 0 maxiter = 500 angle=270 magn = 1 center = (-0.4,0) param bailout caption = "Bailout" default = 123 endparam param start caption = "Mandelbrot Pertubation" default = (0,0) endparam param shift_magnet caption = "Magnet shift " default = (-0.2,0.2) endparam param man_power caption = "Mandelbrot Power" default = (2,0) endparam param p2 caption = "Phoenix Distorsion" default = (0,0) endparam param p1 caption = "Phoenix Power 2" default = (2,0) endparam switch: type = "Ludwig_K" p2=#pixel start=start relaxation=relaxation bailout = @bailout shift_magnet=@shift_magnet } Kleinhuis_Mandel_Phoenix { ; Albert k ; A designed fractal, ; 2002 by c.Kleinhuis ; Antoher life-like fractal ! init: ; Phoenix init complex y = 0 ;-------- z = @start + #pixel complex oldz=0 int counter=0 p1=@p1 p2=@p2 loop: ;z=z+(oldz) if (counter % 2) == 0 ; Mandelbrot z = z^3+#pixel ELSEIF(counter % 2) == 1 ; Phoenix z = z^2 + pixel * z^(p1- 1) + p2 * y ; (imag (pixel) * y) y = oldz ENDIF oldz=z counter=counter+1 bailout: ( |z| <= @bailout) default: title = "ManPhoenix Man" periodicity = 0 angle=90 maxiter = 500 magn=1.5 center = (0,0) param bailout caption = "Bailout" default = 4 endparam param start caption = "Mandelbrot Pertubation" default = (0,0) endparam param p1 caption = "Phoenix Distorsion" default = (0.5,0) endparam param p2 caption = "Phoenix Distorsion 2" default = (0.5,0) endparam } AlternatingFormula2 { global: import "common.ulb" import "Standard.ulb" Formula f[2]; f[0]=new @formulaClass1(0) f[1]=new @formulaClass2(0) init: int count=0; #z = f[0].Init(#pixel) f[1].Init(#pixel); loop: count=count+1 #z = f[count%2].Iterate(#z) bailout: ; (!f[1].IsBailedOut(#z))&&(!f[0].IsBailedOut(#z)) !f[count%2].IsBailedOut(#z) default: title = "2 Alternating Formula" helpfile = "Uf*.chm" helptopic = "Html/formulas/standard/generic.html" rating = recommended Formula param formulaClass1 caption = "Formula #1" default = Standard_Mandelbrot endparam Formula param formulaClass2 caption = "Formula #2" default = Standard_Mandelbrot endparam } AlternatingFormula3 { global: import "common.ulb" import "Standard.ulb" int numformulas=3; Formula f[3]; f[0]=new @formulaClass1(0) f[1]=new @formulaClass2(0) f[2]=new @formulaClass3(0) init: int count=0; #z = f[count%numformulas].Init(#pixel) f[1].Init(#pixel); f[2].Init(#pixel); loop: #z = f[count%numformulas].Iterate(#z) count=count+1 bailout: (!f[0].IsBailedOut(#z))&&( !f[1].IsBailedOut(#z))&&( !f[2].IsBailedOut(#z)) default: title = "3 Alternating Formulas" helpfile = "Uf*.chm" helptopic = "Html/formulas/standard/generic.html" rating = recommended Formula param formulaClass1 caption = "Formula #1" default = Standard_Mandelbrot endparam Formula param formulaClass2 caption = "Formula #2" default = Standard_Mandelbrot endparam Formula param formulaClass3 caption = "Formula #3" default = Standard_Mandelbrot endparam }