- Fractint - mailman.xmission.com

The Big Riddle
by Albrechtx 23 Dec '13

23 Dec '13

HI, Jack jthis is ust for you to make you a believer! Here is a Par generated with the experimental image nr.3 I deleted all inputs: p1 values names of frms to be used ALL reset commands and yet: after loading just press enter and it starts calculating, you can zoom and any other thing. Explanation? I have none Albrecht =============start parameter============================================== testexperiment { ; generation without input ; preliminary version mfr12 ; only for this purpose reset=2004 type=formula formulafile=mfrtes~1.frm formulaname=multifractal_12 function=sin/sin/exp/sin passes=t center-mag=-0.52844209144796770/-0.14380698937523510/713.7116/1/128.1486\ 20333066049/-1.29332959384948509 params=0/0/0.3259571/11111.0506030602/152048.0404808048/384.1604894048/3\ 84.00482000595/256.0007683/512.0007683001/512.0007683001 float=y maxiter=3072 inside=maxiter logmap=4 periodicity=0 rseed=-2436 colors=000zr0zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8KJ8<2>I88H44G00<3>TA\ 5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu7zz5zz4zz3<4>zj4zg4zc4<3>zS5zP5zL\ 6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x7Sy7Uy6Wz6Yz5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2\ A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6\ X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlq\ votvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8CI<4>XCAaB9fB7<3>zA0<13>S\ A1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXRm_NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce\ 7_jFRoNIzb0zj0000 } frm:multifractal_12 {; experimental- for this purpose.Albrecht Niekamp Dec2013 ;P1 spider-julia-seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul 5_Mmods ; 6_Phoenix 7_Newton 8 Spider ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Spid ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_warp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet 1 Digit_Manowa ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 is used) ; Right: 4 Digit_bailout4 4 Digit_bailout5 1 digit_magfrm 1 digit_mowfrm ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;fn(1) shared by many-mods + bees ; le=0 z=pixel da=real(p2)-1000000 dd=trunc(da) da=round((da-dd)*100000000000)+11111 dd=dd+11111 d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=d>1 mm=d==1 sc=d==2 mo=d==6 px=d==7 ab=px+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=d>1 mm1=d==1 sc1=d==2 mo1=d==6 px1=d==7 v1m=mo1+px1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=px1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=d>1 mm2=d==1 sc2=d==2 mo2=d==6 px2=d==7 v2m=mo2+px2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=px2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) ex3=d>1 mm3=d==1 sc3=d==2 mo3=d==6 px3=d==7 v3m=mo3+px3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=px3+(d==3)+(d==5)+(d==9) d=dd-d*10 ba=imag(p5) mi3=trunc(ba) dd=(d>1)+(mi3>1) ex4=dd==2 mm4=d==1 sc4=d==2 mo4=d==6 px4=d==7 v4m=mo4+px4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=px4+(d==3)+(d==5)+(d==9) ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000)/100 da=da-ph*1000000000 sp=trunc(da/100000)/100 da=da-sp*10000000 d=trunc(da/10000) ex0=d>4 da=da-d*10000 d=d-5*ex0 dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) w1=d>4 da=da-d*1000 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) w2=d>4 da=da-d*100 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) w3=d>4 da=da-d*10 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) d=round(da) w4=d>4 d=d-5*w4 rs4=(d==2)+(d==4) tt=ex1+ex0+ex2+ex3+ex4 ; d=real(p3) dd=trunc(d) da=(d-dd)*10000000000 pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3 mg=trunc(da/10) da=da-mg*10 mn=da ; d=imag(p3) sfac=trunc(d) da=(d-sfac)*10000000000 ba4=trunc(da/1000000) da=da-ba4*1000000 ba5=da-ba4*100 mag=trunc da/10 da=da-mag*10 mow=da ; d=real(p4) ofac=trunc(d) da=(d-ofac)*10000000000 bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) t=d<0 if (t) d=-d endif dd=trunc(d) da=round((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=round(dd) bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 if (t) p6=-p6 endif p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=(d-mi1)*100000000000 d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 fac1=trunc(da/100000) da=da-fac1*100000 bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=(d-mi2)*100000000000 d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 fac2=trunc(da/100000) da=da-fac2*100000 bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=(d-mi3)*100000000000 d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) fac3=trunc(da/100000) da=da-fac3*100000 bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) z=pixel ;Spider c=p1 else z=pixel c=p1 ;newton endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) ;many mods z=0 endif elseif (d3) if (ab) c=p1 ;Julia z=pixel else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 : if (tt) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) u=2*(fn1(t/sfac)) ex0=0 if (ir0) t=0 endif if (d4) z=z*u if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif else z=pixel cb=p9*u c=p1*u p=pp*u endif tt=tt-1+ex0 endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (w1) u=2*(fn2(t/ofac)) else u=1,0 endif if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9*u c=p1*u p=pp*u else c=p1 z=z*u cb=p9 endif else vb=v1m if (rs1) c=z*u z=pixel*(sc1+px1) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (w2) u=2*(fn2(t/fac1)) else u=1,0 endif if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v2m if (rs2) c=z*u z=pixel*(sc2+px2) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (w3) u=2*(fn3(t/fac2)) else u=1,0 endif if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v3m if (rs3) c=z*u z=pixel*(sc3+px3) z0=p7*u ph=ph*u else c=z z=z*u endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (w4) u=2*(fn4(t/fac3)) else u=1,0 endif if (d3) vb=v4j if (rs4) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v4m if (rs4) c=z*u z=pixel*(sc4+px4) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) z=z*z+c ;Spiderjul John Horner c=c*sp+z else z1=z^p-1 ;Quasinewton Puskas Istvan z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold ;Phoenix Mike Wareman zold=z z=z1 else z2=fn1(z)+c ;Many_mods Linda Allison z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) z2=z*z ;Julia Puskas Istvan z=z2*z2+p6*z2+c-p0 else z1=fn1(z)-cb ;Bees Ray Girvan z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel Puskas Istvan z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant Mike Wareman z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba }

1 0

The Big Riddle
by JackOfTradeZ＠comcast.net 23 Dec '13

23 Dec '13

. ""These are images created by my software WITHOUT any input"" how is that possible? there MUST be a "seed" input, numbers for parameters, and where does the "fractal formula" come from? .

1 0

The first Multifractal Image
by Albrechtx 23 Dec '13

23 Dec '13

HI, This concludes the presentaton of my new software. There still is a minor problem, so this is not the final version! ; Here is a first appetizer: A mix of manowar and magnet, new and surprising! The image can be viewed immediately in the dropbox folder. ; Cheers, Albrecht ; ==================================start parameter file================ Manowar-Magnet-Mix { ; A first appetizer ; Time 0.03.18.17 1280/1024 ; Just the two new frms used reset=2004 type=formula formulafile=mfr_12.frm formulaname=multifractal_12 function=sin/sin/exp/sin passes=t center-mag=+0.22997564564917950/-0.00031644303807611/76.56715/1/90/3.885\ 78058618804789e-016 params=1.892178106021302/0.4900357066560869/80484.32595702122/25232.0506\ 020602/152048.0404808035/384.1604894022/384.00482000595/256.1007683/512.\ 1007683001/512.1007683001 float=y maxiter=3072 inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=000yz1yzC<2>yzz<3>iqdeo_alU<3>Lb8<3>KQ8JM8JJ8<2>H88G44F00<3>SA5VD\ 6YF7`I8dLAgMBhODiQF<3>peBqiAsm9uq8wu7yz5yz4yz3<4>yj4yg4yc4<3>yS5yP5yL6yI\ 6yE6vE6sD6<6>uAIu9Ku9M<3>w7Sx7Ux6Wy6Yy5_<3>e5M`5IV4E<2>Z4H<3>O3DM2CJ2A<3\ >705F0BN0G<3>f0Uk0Xp0`u0d<2>x0fy0gx0h<3>t1ms1nr1oq2q<2>u2u<3>b5eY6`T6X<2\ >E9L9AG6FO3KW0Qc0Sc<3>5Zc6`c6aa6c_6eY<3>EcgGciIbl<3>R_v<3>bivelvhnvkqvnt\ vrww<2>yzz<3>qwznvzgsw<3>Fch7_d7Xa<3>7JP7FL7CI<4>WCA`B9eB7<3>yA0<13>RA1P\ A1MA1<3>C92<6>TXAV`BXcC<3>grI<3>TnXQm_MlcIkgEfp9az<3>OJoRFlVAiZ5fb0cd7_i\ FRnNIyb0yj0000yr0 } frm:multifractal_12 { ; Albrecht Niekamp Dec, 2013 ;P1 spider-julia-seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods ; 6_Phoenix 7_Newton 8_Spider/Magnet ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Spid ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_warp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet 1 Digit_Manowa ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 is used) ; Right: 4 Digit_bailout4 4 Digit_bailout5 1 digit_mow=2 1 digit_mag=2 ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;fn(1) shared by many-mods + bees ; z=pixel da=real(p2) dd=trunc(da) tt=dd>0 da=round((da-dd)*100000000000)+11111 dd=dd+11111 d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=(d>1) sc=d==2 mo=d==6 px=d==7 ab=px+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=(d>1) sc1=d==2 mo1=d==6 px1=d==7 v1m=mo1+px1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=px1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=(d>1) sc2=d==2 mo2=d==6 px2=d==7 v2m=mo2+px2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=px2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) ex3=(d>1) sc3=d==2 mo3=d==6 px3=d==7 v3m=mo3+px3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=px3+(d==3)+(d==5)+(d==9) d=dd-d*10 ba=imag(p5) mi3=trunc(ba) dd=(d>1)+(mi3>1) ex4=(dd==2) sc4=d==2 mo4=d==6 px4=d==7 v4m=mo4+px4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=px4+(d==3)+(d==5)+(d==9) tt=ex1+ex0+ex2+ex3+ex4 ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000)/100 da=da-ph*1000000000 sp=trunc(da/100000)/100 da=da-sp*10000000 d=trunc(da/10000) dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) w1=d>4 da=da-d*1000 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) w2=d>4 da=da-d*100 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) w3=d>4 da=da-d*10 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) d=round(da) w4=d>4 d=d-5*w4 rs4=(d==2)+(d==4) ; d=real(p3) dd=trunc(d) da=(d-dd)*10000000000 pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3 mg=trunc(da/10) da=da-mg*10 mn=da ; d=imag(p3) sfac=trunc(d) da=trunc((d-sfac)*10000000000) ba4=trunc(da/1000000) da=da-ba4*1000000 ba5=trunc(da/100) da=da-ba5*100 d=trunc(da/10) da=da-d*10 mow=d==2 mag=d==2 ; d=real(p4) ofac=trunc(d) da=(d-ofac)*10000000000 bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) t=d<0 if (t) d=-d endif dd=trunc(d) da=round((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=round(dd) bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 if (t) p6=-p6 endif p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=(d-mi1)*100000000000 d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 fac1=trunc(da/100000) da=da-fac1*100000 bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=(d-mi2)*100000000000 d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 fac2=trunc(da/100000) da=da-fac2*100000 bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=(d-mi3)*100000000000 d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) fac3=trunc(da/100000) da=da-fac3*100000 bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) if (mag) c=z z=pixel x=mg x=x+(x==0)*3 ;magnet else z=pixel ;Spider c=p1 endif else z=pixel ;newton c=p1 endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) ;many mods z=0 endif elseif (d3) if (ab) if (mow) ;manowar mt = (4 * (real(p2)<=0) + real(p2) * (0<p2) ) c=p1 z=pixel else c=p1 ;Julia z=pixel endif else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 : if (tt>0) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) u=2*(fn1(t/sfac)) ex0=0 if (ir0) t=0 endif if (d4) z=z*u if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif else z=pixel cb=p9*u c=p1*u p=pp*u endif tt=tt-1+ex0 endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (w1) u=2*(fn2(t/ofac)) else u=1,0 endif if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9*u c=p1*u p=pp*u else c=p1 z=z*u cb=p9 endif else vb=v1m if (rs1) c=z*u z=pixel*(sc1+px1) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (w2) u=2*(fn2(t/fac1)) else u=1,0 endif if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v2m if (rs2) c=z*u z=pixel*(sc2+px2) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (w3) u=2*(fn3(t/fac2)) else u=1,0 endif if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v3m if (rs3) c=z*u z=pixel*(sc3+px3) z0=p7*u ph=ph*u else c=z z=z*u endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (w4) u=2*(fn4(t/fac3)) else u=1,0 endif if (d3) vb=v4j if (rs4) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v4m if (rs4) c=z*u z=pixel*(sc4+px4) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) if (mag) ;magnet z=((z^x+c-1)/(2*z+c-2))^(x-1) else z=z*z+c ;Spiderjul c=c*sp+z endif else z1=z^p-1 ;newton z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold ;Phoenix zold=z z=z1 else z2=fn1(z)+c ;Many_mods z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) if (mow) z1 = z ;manowar oldz = z z = sqr(oldz) + z1 + c z1 = oldz else z2=z*z ;Julia z=z2*z2+p6*z2+c-p0 endif else z1=fn1(z)-cb ;Bees z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba }

1 0

The Big Riddle
by JackOfTradeZ＠comcast.net 23 Dec '13

23 Dec '13

. I see 4 images, rather interesting in themselves (no minis), but what is so special about them? Am I missing something? They look like some of Muth's FOTD in the past. .

2 1

MFR_12 update formulas
by Albrechtx 23 Dec '13

23 Dec '13

HI, I´m back again to present the additional formulas included in Multifractal_12, a Magnet and a Manowar version. The basic images are included in the link from previous posting, but the par files come again, just in case.. ; https://www.dropbox.com/sh/n684kxnlfjok3hz/kRu_1Xt92_ ; Albrecht ; ===================================start paramteers========================= Magnet-1 { ; Magnet exchanges with Spiderjul ; Time 0.01.10.63 ; XP Dos Shell ; 1280/1024 reset=2004 type=formula formulafile=mfr_12.frm formulaname=multifractal_12 function=sin/exp/exp/sin passes=t center-mag=-0.63792367304861340/-0.00030050563199746/54.71281/1/-90/3.88\ 578058618804789e-016 params=-0.05825983458967864/0.3785210730307932/80000.6459570111/14235.49\ 11030602/152048.0404808035/384.1604894022/384.00482000595/256.1007683001\ /512.1007683001/768.1007683001 float=y maxiter=3071 inside=maxiter periodicity=0 rseed=-2436 colors=000FfpAaz<3>PJoSFlWAi_5fc0ce7_jFRoNIzb0zj0000zr0zz1zzC<2>zzz<3>jq\ dfo_blU<3>Mb8<3>LQ8KM8KJ8<2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBri\ Atm9vq8xu7zz5zz4zz3<4>zj4zg4zc4<3>zS5zP5zL6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x7\ Sy7Uy6Wz6Yz5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2\ >y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`\ c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>Gc\ h8_d8Xa<3>8JP8FL8CI<3>SCCXCAaB9<3>uA2zA0xA0<12>SA1QA1NA1<3>D92<6>UXAW`BY\ cC<3>hrI<6>Jkg } Manowar-Basic { ; Alternative for Julia ; Time 0.04.18.15 1280/1024 reset=2004 type=formula formulafile=mfr_12.frm formulaname=multifractal_12 function=sin/sin/exp/sin passes=t center-mag=-0.265106/0.00308737/1.645275/1/90/3.88578058618804789e-016 params=1.892178106021302/0.4900357066560869/40000.32595700022/25234.0506\ 020602/152048.0404808025/384.1604894022/384.00482000595/256.1007683/512.\ 1007683001/512.1007683001 float=y maxiter=3072 inside=maxiter logmap=3 periodicity=0 rseed=-2436 colors=000yz1yzC<2>yzz<3>iqdeo_alU<3>Lb8<3>KQ8JM8JJ8<2>H88G44F00<3>SA5VD\ 6YF7`I8dLAgMBhODiQF<3>peBqiAsm9uq8wu7yz5yz4yz3<4>yj4yg4yc4<3>yS5yP5yL6yI\ 6yE6vE6sD6<6>uAIu9Ku9M<3>w7Sx7Ux6Wy6Yy5_<3>e5M`5IV4E<2>Z4H<3>O3DM2CJ2A<3\ >705F0BN0G<3>f0Uk0Xp0`u0d<2>x0fy0gx0h<3>t1ms1nr1oq2q<2>u2u<3>b5eY6`T6X<2\ >E9L9AG6FO3KW0Qc0Sc<3>5Zc6`c6aa6c_6eY<3>EcgGciIbl<3>R_v<3>bivelvhnvkqvnt\ vrww<2>yzz<3>qwznvzgsw<3>Fch7_d7Xa<3>7JP7FL7CI<3>RCCWCA`B9<3>tA2yA0wA0<1\ 2>RA1PA1MA1<3>C92<6>TXAV`BXcC<3>grI<3>TnXQm_MlcIkgEfp9az<3>OJoRFlVAiZ5fb\ 0cd7_iFRnNIyb0yj0000yr0 } frm:multifractal_12 { ;Preliminary! Albrecht Niekamp Dec, 2013 ;P1 spider-julia-seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods ; 6_Phoenix 7_Newton 8_Spider/Magnet ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Spid ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_warp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet 1 Digit_Manowa ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 is used) ; Right: 4 Digit_bailout4 4 Digit_bailout5 1 digit_mow=2 1 digit_mag=2 ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;fn(1) shared by many-mods + bees ; z=pixel da=real(p2) dd=trunc(da) tt=dd>0 da=round((da-dd)*100000000000)+11111 dd=dd+11111 d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=(d>1) sc=d==2 mo=d==6 px=d==7 ab=px+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=(d>1) sc1=d==2 mo1=d==6 px1=d==7 v1m=mo1+px1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=px1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=(d>1) sc2=d==2 mo2=d==6 px2=d==7 v2m=mo2+px2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=px2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) ex3=(d>1) sc3=d==2 mo3=d==6 px3=d==7 v3m=mo3+px3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=px3+(d==3)+(d==5)+(d==9) d=dd-d*10 ba=imag(p5) mi3=trunc(ba) dd=(d>1)+(mi3>1) ex4=(dd==2) sc4=d==2 mo4=d==6 px4=d==7 v4m=mo4+px4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=px4+(d==3)+(d==5)+(d==9) tt=ex1+ex0+ex2+ex3+ex4 ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000)/100 da=da-ph*1000000000 sp=trunc(da/100000)/100 da=da-sp*10000000 d=trunc(da/10000) dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) w1=d>4 da=da-d*1000 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) w2=d>4 da=da-d*100 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) w3=d>4 da=da-d*10 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) d=round(da) w4=d>4 d=d-5*w4 rs4=(d==2)+(d==4) ; d=real(p3) dd=trunc(d) da=(d-dd)*10000000000 pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3 mg=trunc(da/10) da=da-mg*10 mn=da ; d=imag(p3) sfac=trunc(d) da=trunc((d-sfac)*10000000000) ba4=trunc(da/1000000) da=da-ba4*1000000 ba5=trunc(da/100) da=da-ba5*100 d=trunc(da/10) da=da-d*10 mag=d>1 mow=da>1 ; d=real(p4) ofac=trunc(d) da=(d-ofac)*10000000000 bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) t=d<0 if (t) d=-d endif dd=trunc(d) da=round((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=round(dd) bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 if (t) p6=-p6 endif p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=(d-mi1)*100000000000 d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 fac1=trunc(da/100000) da=da-fac1*100000 bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=(d-mi2)*100000000000 d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 fac2=trunc(da/100000) da=da-fac2*100000 bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=(d-mi3)*100000000000 d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) fac3=trunc(da/100000) da=da-fac3*100000 bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) if (mag) c=z z=pixel x=mg x=x+(x==0)*3 ;magnet else z=pixel ;Spider c=p1 endif else z=pixel ;newton c=p1 endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) ;many mods z=0 endif elseif (d3) if (ab) if (mow) ;manowar mt = (4 * (real(p2)<=0) + real(p2) * (0<p2) ) c=p1 z=pixel else c=p1 ;Julia z=pixel endif else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 : if (tt>0) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) u=2*(fn1(t/sfac)) ex0=0 if (ir0) t=0 endif if (d4) z=z*u if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif else z=pixel cb=p9*u c=p1*u p=pp*u endif tt=tt-1+ex0 endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (w1) u=2*(fn2(t/ofac)) else u=1,0 endif if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9*u c=p1*u p=pp*u else c=p1 z=z*u cb=p9 endif else vb=v1m if (rs1) c=z*u z=pixel*(sc1+px1) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (w2) u=2*(fn2(t/fac1)) else u=1,0 endif if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v2m if (rs2) c=z*u z=pixel*(sc2+px2) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (w3) u=2*(fn3(t/fac2)) else u=1,0 endif if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v3m if (rs3) c=z*u z=pixel*(sc3+px3) z0=p7*u ph=ph*u else c=z z=z*u endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (w4) u=2*(fn4(t/fac3)) else u=1,0 endif if (d3) vb=v4j if (rs4) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v4m if (rs4) c=z*u z=pixel*(sc4+px4) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) if (mag) ;magnet z=((z^x+c-1)/(2*z+c-2))^(x-1) else z=z*z+c ;Spiderjul c=c*sp+z endif else z1=z^p-1 ;newton z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold ;Phoenix zold=z z=z1 else z2=fn1(z)+c ;Many_mods z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) if (mow) z1 = z ;manowar oldz = z z = sqr(oldz) + z1 + c z1 = oldz else z2=z*z ;Julia z=z2*z2+p6*z2+c-p0 endif else z1=fn1(z)-cb ;Bees z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba }

1 0

Colliding Galaxies
by Albrechtx 23 Dec '13

23 Dec '13

HI, this is a first image of the updated multifracal_10 frm. Link included: https://www.dropbox.com/sh/n684kxnlfjok3hz/kRu_1Xt92_ ; Albrecht =================start parameters========================================== Colliding-Galaxies { ; Just an ordinary Julia? ; Preliminary Frm - subject to change ; Time 0.40.35.90 reset=2004 type=formula formulafile=mfr_10.frm formulaname=multifractal_12 function=sin/sin/exp/sin passes=t center-mag=-0.0488407/0.00308737/1.645275/1/-90/3.88578058618804789e-016 params=0.9114658040101321/0.06738486892300181/40000.32595700022/25234.05\ 06020602/152048.0404808025/384.1604894022/384.00482000595/256.1007683/51\ 2.1007683001/512.1007683001 float=y maxiter=3072 inside=maxiter logmap=3 periodicity=0 rseed=-2436 colors=000yz1yzC<2>yzz<3>iqdeo_alU<3>Lb8<3>KQ8JM8JJ8<2>H88G44F00<3>SA5VD\ 6YF7`I8dLAgMBhODiQF<3>peBqiAsm9uq8wu7yz5yz4yz3<4>yj4yg4yc4<3>yS5yP5yL6yI\ 6yE6vE6sD6<6>uAIu9Ku9M<3>w7Sx7Ux6Wy6Yy5_<3>e5M`5IV4E<2>Z4H<3>O3DM2CJ2A<3\ >705F0BN0G<3>f0Uk0Xp0`u0d<2>x0fy0gx0h<3>t1ms1nr1oq2q<2>u2u<3>b5eY6`T6X<2\ >E9L9AG6FO3KW0Qc0Sc<3>5Zc6`c6aa6c_6eY<3>EcgGciIbl<3>R_v<3>bivelvhnvkqvnt\ vrww<2>yzz<3>qwznvzgsw<3>Fch7_d7Xa<3>7JP7FL7CI<3>RCCWCA`B9<3>tA2yA0wA0<1\ 2>RA1PA1MA1<3>C92<6>TXAV`BXcC<3>grI<3>TnXQm_MlcIkgEfp9az<3>OJoRFlVAiZ5fb\ 0cd7_iFRnNIyb0yj0000yr0 } FRM:multifractal_12 {;Preliminary Version - Albrecht Niekamp Dec, 2013 ;P1 spider-julia-seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods ; 6_Phoenix 7_Newton 8_Spider/Magnet ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Spid ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_warp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet 1 Digit_Manowa ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 is used) ; Right: 4 Digit_bailout4 4 Digit_bailout5 1 digit_mag=2 1 digit_mow=2 ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;fn(1) shared by many-mods + bees ; z=pixel da=real(p2) dd=trunc(da) tt=dd>0 da=round((da-dd)*100000000000)+11111 dd=dd+11111 d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=(d>1) sc=d==2 mo=d==6 px=d==7 ab=px+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=(d>1) sc1=d==2 mo1=d==6 px1=d==7 v1m=mo1+px1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=px1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=(d>1) sc2=d==2 mo2=d==6 px2=d==7 v2m=mo2+px2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=px2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) ex3=(d>1) sc3=d==2 mo3=d==6 px3=d==7 v3m=mo3+px3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=px3+(d==3)+(d==5)+(d==9) d=dd-d*10 ba=imag(p5) mi3=trunc(ba) dd=(d>1)+(mi3>1) ex4=(dd==2) sc4=d==2 mo4=d==6 px4=d==7 v4m=mo4+px4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=px4+(d==3)+(d==5)+(d==9) tt=ex1+ex0+ex2+ex3+ex4 ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000)/100 da=da-ph*1000000000 sp=trunc(da/100000)/100 da=da-sp*10000000 d=trunc(da/10000) dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) w1=d>4 da=da-d*1000 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) w2=d>4 da=da-d*100 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) w3=d>4 da=da-d*10 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) d=round(da) w4=d>4 d=d-5*w4 rs4=(d==2)+(d==4) ; d=real(p3) dd=trunc(d) da=(d-dd)*10000000000 pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3 mg=trunc(da/10) da=da-mg*10 mn=da ; d=imag(p3) sfac=trunc(d) da=(d-sfac)*10000000000 ba4=trunc(da/1000000) da=da-ba4*1000000 ba5=trunc(da/100) da=da-ba5*100 d=trunc(da/10) da=da-d*10 mow=d<1 mag=da>1 ; d=real(p4) ofac=trunc(d) da=(d-ofac)*10000000000 bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) t=d<0 if (t) d=-d endif dd=trunc(d) da=round((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=round(dd) bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 if (t) p6=-p6 endif p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=(d-mi1)*100000000000 d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 fac1=trunc(da/100000) da=da-fac1*100000 bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=(d-mi2)*100000000000 d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 fac2=trunc(da/100000) da=da-fac2*100000 bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=(d-mi3)*100000000000 d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) fac3=trunc(da/100000) da=da-fac3*100000 bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) if (mag) c=z z=pixel x=mg x=x+(x==0)*3 ;magnet else z=pixel ;Spider c=p1 endif else z=pixel ;newton c=p1 endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) ;many mods z=0 endif elseif (d3) if (ab) if (mow) ;manowar mt=4 mt = (4 * (real(p2)<=0) + real(p2) * (0<p2) ) c=mn z=pixel else c=p1 ;Julia z=pixel endif else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 : if (tt>0) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) u=2*(fn1(t/sfac)) ex0=0 if (ir0) t=0 endif if (d4) z=z*u if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif else z=pixel cb=p9*u c=p1*u p=pp*u endif tt=tt-1+ex0 endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (w1) u=2*(fn2(t/ofac)) else u=1,0 endif if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9*u c=p1*u p=pp*u else c=p1 z=z*u cb=p9 endif else vb=v1m if (rs1) c=z*u z=pixel*(sc1+px1) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (w2) u=2*(fn2(t/fac1)) else u=1,0 endif if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v2m if (rs2) c=z*u z=pixel*(sc2+px2) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (w3) u=2*(fn3(t/fac2)) else u=1,0 endif if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v3m if (rs3) c=z*u z=pixel*(sc3+px3) z0=p7*u ph=ph*u else c=z z=z*u endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (w4) u=2*(fn4(t/fac3)) else u=1,0 endif if (d3) vb=v4j if (rs4) z=pixel cb=p9*u c=p1*u p=pp*u else cb=p9 c=p1 z=z*u endif else vb=v4m if (rs4) c=z*u z=pixel*(sc4+px4) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) if (mag) ;magnet z=((z^x+c-1)/(2*z+c-2))^(x-1) else z=z*z+c ;Spiderjul c=c*sp+z endif else z1=z^p-1 ;newton z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold ;Phoenix zold=z z=z1 else z2=fn1(z)+c ;Many_mods z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) if (mow) z1 = z ;manowar oldz = z z = sqr(oldz) + z1 + c z1 = oldz else z2=z*z ;Julia z=z2*z2+p6*z2+c-p0 endif else z1=fn1(z)-cb ;Bees z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba }

1 0

FOTD 22-12-13 (Minibrot Afire[A-6,M-6])
by Jim Muth 22 Dec '13

22 Dec '13

FOTD -- December 22, 2013 (Rating A-6,M-6) Fractal visionaries and enthusiasts: Today's moderately impressive venture into the land of fractals came about when I calculated the Z^(1.618034)+C parent fractal at a point 3 levels up the hyperladder. This parent consists of a twisted main bay with its main period-2 bud facing southeast. A field of debris lies on the northern edge of the main bay, with today's scene located in the outer part of this debris. The name "Minibrot Afire" refers to the fiery reds and yellows surrounding the central minibrot, where they create a small but impressive effect. The rating of a double 6 indicates that the image will set no new standards of quality, but like all fractals, it pictures something never before seen, making its viewing a first-in-a-life experience. The time required to experience this thrill is a not-too- expensive 2-1/4 minutes. A quicker thrill may be experienced by checking the finished image and its variations on the FOTD web sites. Satisfy your thirst for a view of the finished image at: <http://www.crosscanpuzzles.com/Archives.html> <http://www.emarketingiseasy.com/TESTS/FOTD/jim_muths_fotd.html> <http://www.Nahee.com/FOTD/> <http://user.xmission.com/~legalize/fractals/fotd/about.html> Today's record warm temperature of 66F 19C made it feel more like the middle of spring than the start of winter, while the clouds brought in moisture that gave a dose of midsummer humidity. The fractal cats were more concerned with the decorations than with the outside conditions. The fractal humans spent the day doing human things. The next FOTD will be posted in four days on December 26. Until then, take care, and we hear so much about the real meaning of Christmas, yet so little agreement about what that real meaning might be. To me, the real meaning will be revealed when an Atheist, a Pagan, a Mystic and a born-again Christian can all agree on and sincerely believe the same meaning. (BTW, I do not expect to live to see such agreement.) Jim Muth jimmuth(a)earthlink.net START PARAMETER FILE======================================= Minibrot_Afire { ; time=0:02:15.00 SF5 at 2000MHZ reset=2004 type=formula formulafile=basicer.frm formulaname=MandelbrotBC3 function=ident passes=1 center-mag=-0.5616424826528653/+1.134275857078414/\ 3.89796e+009/1/97.5/0 params=1.618034/0/3/0 float=y maxiter=2500 inside=0 logmap=221 periodicity=6 colors=000J1AK2AJ3AI4AI5AH5AH5AG59G48F47F47E47E47D\ 46D36C36C36B35B35A35A35924824824723723623613512512\ 412412311301201201100100000zzcst0pt0im0WY0LN0ED076\ 1nojlmhjkfhiefgcefacd`abZ_`YZZWXYUVWTTURSSPQQOOPMM\ NLLLJJJHHHGFGEEECCCBAA9888776554333111mmzmmzmmzmmz\ mmzmmzmmzk9elAhmAjmBlnBooCqoCsmBqlBpkBojAmhAlgAkfA\ ie9hc9gb9ea8d`8cZ8aY8`X7_W7YU7XT6WS6UR6TQ6SO5QN5PM\ 5OL4MJ4LI4KH4IG3HE3GD3EC2DB2C92A829718616415304323\ 202101fPWeOVdNUcNTbMTaMS`LR_LQZKQYJPXJOWIOVINUHMTH\ LSGLRFKQFJPEIOEINDHMDGLCGKBFJBEIADHADG9CF9BE8AD7AC\ 79B68A68957856745635534423322212111000CPyBOvBNtAMr\ ALpAKn9Kl9Jj8Ih8Hf8Gd7Fb7F`6EZ6DX6CV5BS5AQ4AO49M48\ K37I36G25E25C24A138126014002z35z24z24z23z13z12z12z\ 11z01z00z00qcfocdncclcbkcajc`mz_mzZmzYmzXmzVmzUmzT\ mzSzzRzzQzzPzzOzzNzzMzzKzzJzzIzzHzzGzzFzzzzzzzzzzz\ zzzzzzzzzzzzzzzzzzzzzzzzz } frm:MandelbrotBC3 { ; by several Fractint users e=p1, a=imag(p2)+100 p=real(p2)+PI q=2*PI*fn1(p/(2*PI)) r=real(p2)+PI-q Z=C=Pixel: Z=log(Z) IF(imag(Z)>r) Z=Z+flip(2*PI) ENDIF Z=exp(e*(Z+flip(q)))+C |Z|<a } END PARAMETER FILE=========================================

1 0

FOTD 20-12-13 (Missing Seahorses [A-7,M-8])
by Jim Muth 20 Dec '13

20 Dec '13

FOTD -- December 20, 2013 (Rating A-7,M-8) Fractal visionaries and enthusiasts: In yesterday's image we checked the ersatz East Valley of the parent Zexpe fractal; in today's image we check the ersatz Seahorse Valley. We certainly do find a lot of broken seahorse tails there, but few intact seahorses. This lack of seahorses is the inspiration for the name "Missing Seahorses". But who needs whole seahorses when their dismembered tails make an image with an art rating of a 7 despite the preponderance of brownish and reddish hues? The somewhat liberal math rating of an 8 is based on the minibrot at the center, which is the mirror image of the parent fractal and has the pathological growth on the southeast side of the main bay rather than the southwest side. This is the first time I have noticed this relation, but certainly not the first time it has happened. The calculation time of 7-1/2 minutes is slow, and I'm not sure the image is worth it, but the FOTD web sites are always ready to cure the problem of slowness. The completed image is posted online at: <http://www.crosscanpuzzles.com/Archives.html> <http://www.emarketingiseasy.com/TESTS/FOTD/jim_muths_fotd.html> <http://www.Nahee.com/FOTD/> <http://user.xmission.com/~legalize/fractals/fotd/about.html> Cloudy skies and occasional sprinkles of rain made today far less than ideal here at Fractal Central, though the temperature of 43F +6C kept the outdoors reasonably comfortable. The fractal cats were too busy keeping an eye on each other to notice what was happening outside. The humans kept themselves busy making final preparations for the big day. The next FOTD will be posted in a number of hours. To find out the exact number, check here every few hours. Until whenever, take care, and everyone has the freedom to speak his mind and the freedom to disagree with the spoken opinions of others. Jim Muth jimmuth(a)earthlink.net START PARAMETER FILE======================================= Missing_Seahorses { ; time=0:07:30.00 SF5 at 2000MHZ reset=2004 type=formula formulafile=basicer.frm formulaname=MandelbrotBC3 function=ident passes=t center-mag=+0.08486949666/+0.761618516836/735760/1\ /-35/0 params=2.71828182845905/0/0/0 float=y maxiter=21000 inside=0 logmap=-626 periodicity=6 colors=000000300800C00C00F10F20F30H40L50O60O70S91U\ C2WE3XF4_G5bH6eI7hLBkPFnUKqZPtaUwdZzgczjezmgzpiA0E\ A0FA2FAAGA1GAAHA4IAAiAAiA3JAA6AALAAYAAXAAaAAYCAdD7\ dEFbFKmGLmDCm9Lz6Lz7Kz8Uz9UzAUmBUjCUhDUeEUcFU`GUZH\ UWHUUIcSJcPKcNLcKMcINcFOcDPcAQj8Wh0bm3`m1cm8amE_zK\ ZzQYzWXzaWzgVziUzkQzmNzoJzrGztCzv9zx6zzUzYpz6pk7pl\ 7pm7pn8po8pp8pp9pq9pr9psAptApuApuAhtBatCVsCzszzrzz\ rzznJzmLzmNzmOzmQzlRzlTzlUzlWzlYzkZzk`zkazzzzzzzzz\ zzzzzzzzzzzzzzzhzzfzzczzazz_zzYzzVzzTzzzzzzzzzzzzz\ zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzVzzYzz`zzczzf\ zzhzzkzznzzqzztzzwzzyzzvzzszzqzznzzzzzzzzzzzzzzzzz\ zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzQzzUzzYzzazzezziz\ zlzzGzzGzzGzzGzzGzzUzzgzzuzvvzuvzuvztvztvztvzsvzsv\ zrvzrvzrzzqzzqzzqzzrzzszzszztzztzzuzzvzzvzzwzzwzzz\ zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz\ zzzzzzzzzzzzzzzzzzzzzzzzz } frm:MandelbrotBC3 { ; by several Fractint users e=p1, a=imag(p2)+100 p=real(p2)+PI q=2*PI*fn1(p/(2*PI)) r=real(p2)+PI-q Z=C=Pixel: Z=log(Z) IF(imag(Z)>r) Z=Z+flip(2*PI) ENDIF Z=exp(e*(Z+flip(q)))+C |Z|<a } END PARAMETER FILE=========================================

1 0

The Big Riddle
by Albrechtx 20 Dec '13

20 Dec '13

HI, this one really gets me. Deleted everything the software could use as input, also "Inside3 - which was theoretical anyway - and the double mandel command which haas no effect if the mandel frm is not chosen. Now as zero frms are chosen, all reset comands are invalid and do not show. Nevertheless a good fractal image turns up, showing structures I´ve never seen before. What is it I have found? Here is the link with the experimental frm and two images, second one is a zoom number 4 ist from the first series with mandel as inside3. https://www.dropbox.com/sh/0g96upxjx4tga9l/LLM-_0-v1V Albrecht

1 0

Two Experimantal Images
by Albrechtx 20 Dec '13

20 Dec '13

Sorry there was a small error in the frm: change line 3 of the test as follows: from: da=real(p2) into: da=real(p2)-1000000 Albrecht

1 0