September 2005 - Fractint - mailman.xmission.com

FOTD 17-09-05 (17-09-05 [7])
by Jim Muth 17 Sep '05

17 Sep '05

FOTD -- September 17, 2005 (Rating 7) Fractal visionaries and enthusiasts: Now that we've put the philosophy behind us, at least for a while, we can return our attention to the mysterious world of fractals and hyperspace. Hopefully, the quality of the images will not suffer now that the philosophy has ended. It was quite surprising to me how well the FOTD fractals turned out while I was philosophizing and putting virtually no effort into them. Could this be an indication that finding and coloring fractals might require intuition as well as reason? After all the philosophizing I have done during the past two weeks, I am not even going to guess. Today's image is a zoom into the center of yesterday's image. The midget at the center is not yet visible, but the surrounding pattern has truly blossomed. I have not yet decided whether I will go for the midget itself. If I do, the going will be very slow. The render time of today's image is almost 4 hours. And at the depth of the midget at the center, the render time would be close to 8 hours. Though I did not give today's image a name, I did give it a rating of an above-average 7. The render time of just under 4 hours is inexcusably slow, but salvation is there for the taking on the FOTD web site, where the completed image is posted. The web site may be accessed at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> The weather remained warm and muggy on Friday here at Fractal Central. The temperature reached a July-like high of 87, but the showers stayed away from the area, giving the fractal cats an entire afternoon in the yard. Only a hint of tuna was needed to complete their day on a happy note. Today is starting warm and muggy again. Showers are forecast for later today, but I have a feeling it will remain dry. It has been quite dry around here lately, and there is a saying among old-time weather fore- casters that goes something like, 'when in drought and in doubt, leave it out'. ('It' of course, is rain.) One thing virtually certain however is the appearance of the next FOTD. It will appear right here in only 24 hours. Until that unprecedented moment arrives, take care, and there might be a drought of water, but there will never be a drought of fractals. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START PARAMETER FILE======================================= 17-09-05 { ; time=3:54:32.77--SF5 on a P200 reset=2004 type=mandel passes=1 center-mag=-1.7466\ 779924439194447000130628/0.00431684878866485586600\ 532023/7.732008e+023/1/-27.5/1.310757058448075e-014 params=0/0 float=y maxiter=5000 inside=0 colors=000cdsdeqfgqhhqihqjinihjeee___bbbheclg_siVs\ gUsdSs`RsWOsUNsQMsMKsIHsFFsBCs7Bs68s68s67s66s69q6F\ nDMlLTjV`hcfhhhgefbgbehehhhjjjmnnlnqipugsyiosflqdk\ ncil`hjZfhZegWbeTabT_aRZ_PZYM_USZYU_YW_ZX``aaa`b`_\ bXXeWagTagQdhPdhMejLfjIjlFklElnBqq9gpCboB_nAWm9Sh8\ Pc9LZ7HU6EP4FK2KF2KA4K56L38M49N8BOBEPFHQJLSOPTPSUP\ UVPUWPUXPUYPUZPU_PU`PUaPUbPTcPSdPSePQfPPgMLhLKjJGm\ IFoFBqD8sIBuJCwODwPDwTFwWGwZGwaIwdJwhMwlMwnNwqOwtO\ xwQzzUzzZwzcuzhwzmwfVybXyXXzOVwXXuWWsWVqVVnVUlVThU\ SgTReTRbTRaTR_TRWRQUQPSQORPOPOONNNLLLR_NQYNQWOOUOO\ UOLSMJRMHPKGPKEPJERKCRJ9SK9RJ7PJ7NJ5JH4HG3GH3EH2DH\ 2DJ1CJ1AJ19L18L07L06N05N04N02P02P01P00R02P04N07L1A\ J2CH4EG6JGBRJEWKIaMNhODUKCRHBNGALE9HDAEC9DB8A97775\ 55NJROLSNLSOOUQQWPQYNQ_ORaOSbMSeLUgKVhJVhIXjHYlGZn\ F`qFasDbuCdwBfyAhzAhzDfyEeyFcyGbwIawJ`wMawN_uOZuPZ\ uRZuS_uU`uW`uXasZbs_bsacs } END PARAMETER FILE=========================================

1 0

FOTD 16-09-05 (16-09-05 [NA])
by Jim Muth 16 Sep '05

16 Sep '05

FOTD -- September 16, 2005 (Rating NA) Fractal visionaries and enthusiasts: Today's image shows a very deep scene on a filament extending from the large midget on the negative X-axis of the Mandelbrot set. Since I put almost no effort into coloring the image, I could neither name nor rate it. Being well into the range of arbitrary precision math, the scene renders in a slow 99 minutes. But I have sent the finished image on ahead to Paul at the FOTD web site, where it is posted ready for download. The FOTD web site may be accessed at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> A bit of closing philosophy is included in the philofractal version of this discussion. Thursday here at Fractal Central was too warm, too humid, and had too many showers for the fractal cats, who satisfied themselves with less than one hour in the yard. Needless to say, it was necessary to break out the tuna in the evening. Today is starting about the same, with more showers in the area. For me it looks like a relatively normal day coming up, which should leave time enough for fractals. The next FOTD will appear in 24 hours. Until then, take care, and always reduce complexity to simplicity. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START PARAMETER FILE======================================= 16-09-05 { ; time=1:39:28.82--SF5 on a P200 reset=2004 type=mandel center-mag=-1.7466779924439194447000123/0.00431684\ 87886648558660046/3.770274e+021 params=0/0 float=y periodicity=10 maxiter=5000 inside=0 logmap=1954 colors=00061u72r82oA3lB3iC4fE5cF5`G6YI6VJ7SK7PLANM\ CLNEKOGIPIHQKFRMESOCSQBUSCWTCXVCZWC_YCaZDc`DdaDfcD\ hdDkfEngEpiEsjEtkEneBh`9bW7XR5RM3MH1PLCSPNVSXYWg_Z\ qZYnYYkXWhWVeVUbUS_TRXSQURORQPOQQLRTMSWMTYMU`MVcNW\ dNWfNXgNYiOZkO_lO`nO`oOO_WCLcFObIRaLUaOX`Q_`Tb_WeZ\ ZhZakYcnYbkVaiTagQ`eO_cL_aJZ_GZYEYWBXU9XS6WQ4WO2WQ\ 3WS4WT4WV5WW6WY6WZ7W`8Wa8Wc9Wd9XeBXfCXgDXhEXiGXjHX\ jIXkJXlKXmMXnNXoOXpPXpQmt6isBerGaqLtUgrWepYdn_blaa\ kb_ntSfnR_hRSbRLXRESRFRSFRTGRUGQVHQWHQWHPXIPYIPZJO\ _JO`JO`VZeeijptnqpkmSWlVYkX_j_aiachdegegfgiehkYe_Q\ bOI_CAY0D_2Fa4Ib5Kd7Ne8PhASiBUkDXlFZnGaqIctJfvLhxM\ kzOmzPhzTdyW_xZWqaSpdNogJmjElmAkp6js9gpBdmDajFZhIW\ eKTbMQ`ONYRKVTHTVEQXBNZ8LSADLC6NF7OI8QL8RO9SR9UUAV\ XBX_BYbCZeCXdBWdAVc9Tc9Sc8Rb7Pb6Ob6Na5La4K`3J`3H`2\ G_1F_0E_0FY8FWFFUNFTUGR`GPhGNoGMvSHpbDkm8ex4`t8ZqC\ XmGVjKTfORcSPG4nC2r81v40y } END PARAMETER FILE=========================================

1 0

FOTD 15-09-05 (15-09-05 [NA])
by Jim Muth 16 Sep '05

16 Sep '05

FOTD -- September 15, 2005 (Rating NA) Fractal visionaries and enthusiasts: Today's fractal is a scene deep in a star of the Mandelbrot set. I gave it no name and no rating. The render time of 41 seconds is so fast that little time advantage is to be gained by down- loading the finished GIF image from the FOTD web site at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> though those with Fractint-allergic machines may wish to do the download. The philosophy (if that's what it is) continues in the philofrac- tal version of today's FOTD. The weather started to deteriorate here at Fractal Central on Wednesday. The temperature of 84F 29C was fair enough, but occasional sprinkles of rain kept the grass a bit too damp for the paws of the fractal cats. Today is starting cloudy again, with showers nearby, it could be a questionable day. For me the day looks to be rather busy, but not so busy that I will lack time for the next FOTD, which will appear in 24 hours. Until then, take care, and seek the source. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START PARAMETER FILE======================================= 15-09-05 { ; time=0:00:41.53--SF5 on a P200 reset=2004 type=mandel passes=1 center-mag=-1.29073301432692500/+0.064403040677763\ 15/2.033292e+008/1/117.5/7.50782949683059808e-005 params=0/0 float=y maxiter=5000 inside=0 logmap=572 colors=000IqeIqdIqcHqbHqaHq_GqYGrWFrUEsPDsKDtFCtAB\ u58w09v1Au2Bu3Bt4Cs5Ds6Er7Eq7Fq8Gp9HoAHoBInCJmDKmE\ KlELkFMkGNjHNiIOiJPhKQgLQgLRfMSeNTeOTdPUcQVcRWbSXc\ TWbSWaSV`RV_RVZQUYQUXPUWPTWOTVOTUNSTNSSMRRMRQLRPLQ\ PKQOKQNJPMJPLIPKIOJHOIHNIGNHGNGFMFFMEEMDELCDLBDDDF\ FCEHCEJBDLBDNBDPACRACT9BV9BW9BY8A_8Aa79c79e79g68i6\ 8k57m57m35n46n57n67n68n78n89n89n9AnAAnABnBBnCCnCCn\ DDoEEoEEoFFoGFoGGoHGoIHoIHoJIoKIoKJoLJoMKoMKpNLpOM\ pOMpPNpQNpQOpROrSPrSPrTQrUQtURtVRtWSwUVuWStXPtYNsZ\ Kr`IraFqbDpcArj5wh6wg7we8wd8ub9saAq`AoZBmYCkWDiVDg\ TEeSFcRFaPG_OHYMIWLIUJJSIKQGLOHKMIKLJJMJJMKJMLIMMI\ NMIPNHUPHZRHcSGgUGkWGoWFsXFwYFzZEzZEz`EzbDzdDzeDzg\ CzmCzrBzrCzqCzoCRiCReCSaCS_CTZCTYCUXCVXCVXCWWCWWCX\ WCXYCY_CYaCZcF_eK_gP`iU`kZamcaohbqmbsrcuvdwzdzzezz\ ezzfzzfzzgzzgzzhzzizzizzjzzjzzkzzkzzlzzozzmzzlzzjz\ zizzgzzfzzezzczzbzz`zz_zz } END PARAMETER FILE=========================================

2 1

Re: FOTD 12-09-05 (12-09-05 [NA])
by Jim Muth 15 Sep '05

15 Sep '05

At 08:07 PM 9/13/05 -1000, David wrote: > >But fractals are real things, ... Said in jest, but a true philosophical statement. I don't know about you, but I'm not so sure that fractals are real. They are certainly not as real as the tree outside my window. Actually, I have never seen a real fractal. All I have seen are pictures of fractals. We have pictures of the fractal objects but no objects to take photographs of. Fractals are made of complex numbers, which are very useful abstractions, but they were created and exist only as mental constructs. By contrast, the tree outside my window is made of atoms, and from the number-filled books I have tried to read about quantum theory, I see that atoms are also apparently made of little more than numbers. The contrast has all but vanished. I am left with the quite philosophical thought that fractals and trees are made of the same stuff. This leads me to suspect that fractals might be more real than they appear, or maybe trees are less real. Jim (now questionably real) Muth

2 1

FOTD 14-09-05 (14-09-05 [NA])
by Jim Muth 14 Sep '05

14 Sep '05

FOTD -- September 14, 2005 (Rating NA) Fractal visionaries and enthusiasts: The parent of today's fractal is a play on the negative square root of 2. Today's image is located in a tiny valley on the north shore of an unusually circular bay in the parent. I gave it no name and no rating. The image was rendered with the outside set to 'tdis'. The render time of 1/2 hour is on the slow side, so I recommend downloading the finished image from the FOTD web site at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> Unfortunately, the graphic design work turned unexpectedly heavy on Tuesday, leaving no time to write the next installment of philosophy. But the heavy work is now out of the way, and the philosophy will continue on schedule in the next FOTD. It was somewhat warm here at Fractal Central on Tuesday, but the air was dry and the fractal cats were on their best behavior. I see increasing clouds overhead this morning, so it remains to be seen how things will turn out. The next FOTD will appear in 24 hours. Until then, take care, and do it again. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START PARAMETER FILE======================================= 14-09-05 { ; time=0:29:31.81--SF5 on a P200 reset=2004 type=formula formulafile=allinone.frm formulaname=MandelbrotMix4 function=recip passes=1 center-mag=+1.78214049798158600/+1.974931400915743\ 00/407908.6/1/77.5/4.92910025295945076e-010 params=4/-1.14142/0.04/-11.4142/0/-45 float=y maxiter=2400 inside=0 outside=tdis periodicity=10 colors=000U7_kTkXmvoM9oQFoULlWJjXIhYHfZFd`EbaD`bBZ\ cAXe9Vf7Tg6Rh5Pj3Nk2Ll1Jm0Lj4Mh8NeCOcGP`KQZNRWRSUV\ TRZUPbVMfWKiZErYIsXMsXPtWTtWXuV_uVcvUgvUjvWirXhoYg\ lZfh_feaebbdZccWdbTebPgaMh`Ji_FjZCkZ9ER9NVGVYMc`Tk\ cZhd`edaceb`ecZfdWffUggRghOgiMhjJhlHimEinCjo9jp7jq\ K`iXSbiIVv9OtASrBWpC_nDblEfjFjhGngGqlQfp_WthLpfKle\ JhdIdcI`bHXaGU`GQ_FMZEIYDEXDAWC6VB3UBD`9Ng7Xm5ft3o\ z1pw6quBqsFrqKsoPsmTtkYuibugfvekwcpwatoWkhQcaKWVEN\ O8FH27NELTQZYURbXKg`Dlc6ja7h_7gY7eW8dV8bT8`R8_P9YN\ 9XM9VK9TIASGAQEAXPAe_Nzq_nkTgbN`THUKBYM3`SAzKHoKOj\ KVhKahKhhKhhKhhKhhKghKgcKgTMg9OgAQfASfBTfBTeCUeCUe\ DUdDUdDUdFXlH_sIazJbyJcyJdxJexKewKfwKgwKhvNNZLiuLj\ uLktLltLltMhrMdqN`oNYnOUmOQkPMjPJiOLeNNaMPYMRVLTRK\ VNKWKMYNOZQP`TRaVScYUd`VfbXgeZih_jjalmbmpdorepugrx\ hsz_fvRUsIHpA5mefq`ikWkfRm`NoWMpYMp_LpaLqbLqdKqfKr\ gKriJrkJslIsnIspItqw6`y7_ } frm:MandelbrotMix4 {; Jim Muth a=real(p1), b=imag(p1), d=real(p2), f=imag(p2), g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j, k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END PARAMETER FILE=========================================

1 0

disc-video mode
by Russell Walsmith 14 Sep '05

14 Sep '05

Phellow Phractal Phreaks, 1) I seek to generate an image of approx 300dpi. What is the best way. 2) I supposedly generated a 2048x2048 disc-video image: where'd it go? Thanks, Russell

3 2

Re: [Fractint] FOTD 12-09-05 (12-09-05 [NA])
by Jim Muth 14 Sep '05

14 Sep '05

At 10:08 PM 9/12/05 -1000, David wrote: >Believe me, the beauty of your fractals will far >outlast the philosophy! ;-) This is unbelievable. No fractal could possibly last that long! ;-) Jim M.

2 1

FOTD 13-09-05 (13-09-05 [NA])
by Jim Muth 13 Sep '05

13 Sep '05

FOTD -- September 13, 2005 (Rating NA) Fractal visionaries and enthusiasts: Today's image is a scene in the fractal that results when 2 parts of Z^(-0.9) are subtracted from Z^(1.1) and (1/C) is added. The extra interest was achieved by rendering the scene with the outside set to 'real'. Since I put almost no effort into the image, I did not bother naming or rating it. The render time of 15 minutes is fair enough, but for convenience the already-rendered image is available on the FOTD web site at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> The philosophy continues in the philofractal version of today's discussion. But the present outburst is nearing its end, and full attention will soon return to the proper topic of fractals. Absolute perfection describes the weather at Fractal Central on Monday. It also describes the behavior of the fractal cats, Thomas the orange and Tippy the tabby. My behavior is never perfect, so it doesn't describe me. Today is starting perfect. I expect more perfection from the duo. The next FOTD will appear in 24 hours. Until then, take care, and look for light. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START PARAMETER FILE======================================= 13-09-05 { ; time=0:15:13.74--SF5 on a P200 reset=2004 type=formula formulafile=allinone.frm formulaname=MandelbrotMix4 function=recip passes=1 center-mag=+0.44989680100650410/+0.715849938204608\ 60/8799231/1/-82.5/3.12153761936051488e-008 params=1/1.1/-2/-0.9/0/0 float=y maxiter=1800 inside=0 outside=real periodicity=10 colors=00050F30800300000400900F00L00S00Y00d00k00s0\ 0z00z00z00x02s04o05k08f0Bc0EY3HV4FT5FQ7CQ8BP98PB5N\ B4NC2LE0LF0KH0KI0II0IP8VVSfamsfzzhzxiqskhkk_fmS_nK\ VlCQlBSlBSk9Tm9To8Vq8VsKXuLXwNXzPYzRYzT_zU_zNazKaz\ 2az7VsCPiIKaPETV9Ka4Ch05o00v00z00z0zXfqLahBYfE_fFa\ dHadIccKdcNdaPfaQfaSh_Ti_XiYYkY_mXamXcoXdo_foahmck\ kdmkhoiiqikshmthqvfsxftzd0zvQzmK00S00_97fQIohTB0EQ\ KNfdXC0YF0_I0_L4_P8aSEaVIaYNaaTcdYchdckidoqdsvddz0\ fz0hz0iz3kz7kz9mzEozHqzLqzPszTtzXvzazczxfzxixxkvxo\ svqovtmvvivzfazqdzofzmhzkizkkziozhqzhszftzd0Ks0_03\ c09f0Hi4PmBXqIdtQmxY00E00F22H44I77K99LCENFHNIKPLNQ\ PQSSVTVYVYaXadXdhYhm_kqaotcsxdL70SE4XL9aTFfaLkiSz0\ Qz0Nz0Lv0Ko0Ii4Hd8EYCCTHBPL9KQ8K_0IY0IX0HV0HT0FS0F\ Q0EP0EN0CL0CL0BK0BI09H09F08E08C07B0790790BE0vxcFI0\ IN4NQ7SVBV_F_dKdhNhmSmsXsxaQEF2zzIzzazo50zE0zL9zVL\ vc_ommiz00z00z00z70zE4zL9 } frm:MandelbrotMix4 {; Jim Muth a=real(p1), b=imag(p1), d=real(p2), f=imag(p2), g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j, k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END PARAMETER FILE=========================================

2 1

Fractint
by Albrecht Niekamp 13 Sep '05

13 Sep '05

Hi, and here`s another one Regards, Al. -------------------------start-par---------------------------------------- mfr020f { ; Love-san ; Albrecht Niekamp Sep.05 ; Time 00.10.51.53 AMD3500+ 1600/1200 ; Fractint Version 2004 Patchlevel 2 reset=2004 type=formula formulafile=mfrn.frm formulaname=multifractal_ni ismand=y function=cosxx/conj/cosxx passes=t debugflag=322 center-mag=-1.52935713874380600/+0.22685868455183180/2558954/1/97.499999\ 9950250924/6.25112616531309229e-009 params=-0.8940855128635518/0.8105868709372235/384/256.1133/4094.00016/76\ 8.0003400000001/768.0076800000001/256.01024/18937.52/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=7 periodicity=0 rseed=-2436 colors=200444222000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<24>oiQqj\ RslS<3>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>000<2\ 5>iiijjjlll<3>sss<25>BBB999777555 } ------------------------------------------start-frm------------------------ FRM:Multifractal_ni { ; Albrecht Niekamp 24.3.03 ; d=real(p2) fac1=trunc(d) b1=(d-fac1)*100000 ; d=imag(p2) da=d<0 if (da) d=-d endif mi1=trunc(d) d=round((d-mi1)*10000) p6=trunc(d/100)/10 d=d-1000*p6 if (da) p6=-p6 endif p7=d/10 ; d=real(p3) ba=trunc(d) mm=round((d-ba)*100000) ; d=imag(p3) fac2=trunc(d) b2=(d-fac2)*100000 ; d=real(p4) mi2=trunc(d) fac3=round((d-mi2)*100000) ; d=imag(p4) b3=trunc(d) mi3=round((d-b3)*100000) ; da=real(p5) t=da<0 if (t) da=-da endif start=2-t dd=trunc(da) da=round((da-dd)*100) if (dd<5) start=0 vb=(dd==3)+(dd==4) else d=trunc(dd/10000) vb=(d==3)+(d==4) dd=dd-d*10000 d=trunc(dd/1000) or1=d>5 d=d-5*or1 vv1=(d==3) vv2=(d==4) dd1=(d==2)+(d==4) dd=dd-d*1000 d=trunc(dd/100) or2=d>5 d=d-5*or2 vv3=(d==3) vv4=(d==4) dd2=(d==2)+(d==4) dd=dd-d*100 d=trunc(dd/10) inr1=d>5 d=d-5*inr1 v1=(d==3) v2=(d==4) d1=(d==2)+(d==4) dd=dd-10*d d=trunc(dd) inr2=d>5 d=d-5*inr2 v3=(d==3) v4=(d==4) d2=(d==2)+(d==4) endif ; d=trunc(da/10) da=da-10*d ab=d>=5 d=d-5*ab bb1=(d==1) bb2=(d==2) dd=da>=5 da=da-5*dd ab=ab+dd ab1=(da==1) ab2=(da==2) ; d=imag(p5) dd=trunc(d) d=round((d-dd)*1000000) le=d>10000 da=trunc(dd/10) so1=((da==1)+(da==3)==0) so2=((da==2)+(da==3)==0) dd=dd-10*da wo=dd>=5 dd=dd-5*wo ir1=(dd==1)+(dd==3) ir2=(dd==2)+(dd==3) if (le) freq=round((trunc(d/10000))*10) ;frequ_lake effect by S.Gallet d=d-freq*1000 level=(trunc(d/100))/100 ;water level d=d-level*10000 ampl=d/100 ;amplitude of the wave u=real(rotskew*pi/180) t=exp(-flip(u)) bo=1/real(magxmag) q=bo/0.75*imag(magxmag) dd=tan(imag(rotskew*pi/180)) d3=2*q*t rs=2*bo*(dd+flip(1))*t z2=center+(-q-bo*dd-flip(bo))*t z=pixel-z2 d=imag(conj(d3)*z)/imag(conj(d3)*rs) if (d<=level) da=level-d z=z+2*da*(1+ampl*sin(freq*da^0.2))*rs endif z=z+z2 endif if (ismand) if (vb) c=0.4*log(sqr(pixel^mm)) z=z*le else c=z*le+pixel*(le==0) z=0 endif else c=p1 z=z*le+pixel*(le==0) endif t=0 d3=(ismand==0) u=d3 : if (vb) if (d3) z=(z*z-real(c))^(z*u+imag(c)) else z2=fn1(z)+c ;Linda Allison q=cos(z2) z=c*(1-q)/(1+q) endif elseif (ab) z=z*z+c+c*c-p7 ;Pusk s Istv n elseif (d3) z2=z*z z=z2*z2+(p6+u)*z2+c else z2=z*z ;Pusk s Istv n z=z2*z2+(p6+u)*z2+c-p1 endif bo=|z| If (wo) t=t+1 if ((t<mi1)+(bo>b1)) u=2*(fn1(t/fac1)) if (ismand) z=z*u if (vb) c=0.4*log(sqr(pixel^mm)) else c=z*le+pixel*(le==0) endif else z=z*le+pixel*(le==0) c=p1*u endif wo=0 if (ir1) t=0 endif endif elseif (start) t=t+1 if (start==2) if (bo>b2) u=2*(fn2(t/fac2)) rs=or1 ab=bb1 if (dd1) if (rs) z=pixel endif c=p1*u vb=vv2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=1 endif elseif (t>mi2) u=2*(fn2(t/fac2)) rs=inr1 ab=ab1 if (d1) if (rs) z=pixel endif c=p1*u vb=v2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=1 if (ir2) t=0 endif endif elseif (bo>b3) u=2*(fn3(t/fac3)) ab=bb2 rs=or2 if (dd2) if (rs) z=pixel endif c=p1*u vb=vv4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=0 endif elseif (t>mi3) u=2*(fn3(t/fac3)) ab=ab2 rs=inr2 if (d2) if (rs) z=pixel endif c=p1*u vb=v4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=0 endif endif bo<=ba } ----------------------------------------------------------end--------------- -

1 0

Fractint
by Albrecht Niekamp 13 Sep '05

13 Sep '05

Hi, the images are zooms into earlier multifractals. MFR020c is a special one. Regards, Al. -------------------------start-par---------------------------------------- mfr019b { ; Albrecht Niekamp Sep.05 ; Time 00.11.10.98 AMD3500+ 1600/1200 ; Fractint Version 2004 Patchlevel 2 reset=2004 type=formula formulafile=mfrn.frm formulaname=multifractal_ni ismand=y function=exp/exp/exp passes=t debugflag=322 center-mag=-1.62010666805022300/+0.15956589818278370/2527.54/1/94.999999\ 9999977973/2.04865985287128183e-012 params=-0.8940855128635518/0.8105868709372235/384.00001/256.1133/4094.00\ 016/768.0003400000001/768.0076800000001/256.01024/18937.52/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=7 periodicity=0 rseed=-2436 colors=200444222000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<24>oiQqj\ RslS<3>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>000<2\ 5>iiijjjlll<3>sss<25>BBB999777555 } mfr020c { ; Albrecht Niekamp Sep.05 ; Time 00.13.10.38 AMD3500+ 1600/1200 ; Fractint Version 2004 Patchlevel 2 reset=2004 type=formula formulafile=mfr.frm formulaname=multifractal_ni ismand=y function=cosxx/exp/exp passes=t debugflag=322 center-mag=-1.57419151437082700/+0.23350481704986090/4811.175/1/97.50000\ 00000149782/-1.54189438994478678e-011 params=-0.8940855128635518/0.8105868709372235/384.00001/256.1133/4094.00\ 016/768.0003400000001/768.0076800000001/256.01024/18937.52/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=7 periodicity=0 rseed=-2436 colors=0004B9<3>243121000001023025047049<5>0BL0DN0DP<4>0KZ0L`0Mb0Nd0Of0Q\ h<3>0Up4Yr8atCgvGkxKqz<3>4_s0Vq0Uo<12>0FQ0DO0DM<3>08E06C06A0480460240120\ 00100<12>R0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`\ g0_e0Z<3>Y0SW0RU0O<5>I0FG0EE0CC0A<3>304102010<4>0B10D10F10H20J20L20N2<2>\ 0T40V40X3<3>0d40f50h5<3>0p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4\ <5>0I20G20E20C20A1081<3>0000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVN\ AXM<3>DdTDfVEhWFjYFlYGn_Gp`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL\ 9SK<3>7KE6IC5GB5DA } ------------------------------------------start-frm------------------------ FRM:Multifractal_ni { ; Albrecht Niekamp 24.3.03 ; d=real(p2) fac1=trunc(d) b1=(d-fac1)*100000 ; d=imag(p2) da=d<0 if (da) d=-d endif mi1=trunc(d) d=round((d-mi1)*10000) p6=trunc(d/100)/10 d=d-1000*p6 if (da) p6=-p6 endif p7=d/10 ; d=real(p3) ba=trunc(d) mm=round((d-ba)*100000) ; d=imag(p3) fac2=trunc(d) b2=(d-fac2)*100000 ; d=real(p4) mi2=trunc(d) fac3=round((d-mi2)*100000) ; d=imag(p4) b3=trunc(d) mi3=round((d-b3)*100000) ; da=real(p5) t=da<0 if (t) da=-da endif start=2-t dd=trunc(da) da=round((da-dd)*100) if (dd<5) start=0 vb=(dd==3)+(dd==4) else d=trunc(dd/10000) vb=(d==3)+(d==4) dd=dd-d*10000 d=trunc(dd/1000) or1=d>5 d=d-5*or1 vv1=(d==3) vv2=(d==4) dd1=(d==2)+(d==4) dd=dd-d*1000 d=trunc(dd/100) or2=d>5 d=d-5*or2 vv3=(d==3) vv4=(d==4) dd2=(d==2)+(d==4) dd=dd-d*100 d=trunc(dd/10) inr1=d>5 d=d-5*inr1 v1=(d==3) v2=(d==4) d1=(d==2)+(d==4) dd=dd-10*d d=trunc(dd) inr2=d>5 d=d-5*inr2 v3=(d==3) v4=(d==4) d2=(d==2)+(d==4) endif ; d=trunc(da/10) da=da-10*d ab=d>=5 d=d-5*ab bb1=(d==1) bb2=(d==2) dd=da>=5 da=da-5*dd ab=ab+dd ab1=(da==1) ab2=(da==2) ; d=imag(p5) dd=trunc(d) d=round((d-dd)*1000000) le=d>10000 da=trunc(dd/10) so1=((da==1)+(da==3)==0) so2=((da==2)+(da==3)==0) dd=dd-10*da wo=dd>=5 dd=dd-5*wo ir1=(dd==1)+(dd==3) ir2=(dd==2)+(dd==3) if (le) freq=round((trunc(d/10000))*10) ;frequency_lake effect by S.Gallet d=d-freq*1000 level=(trunc(d/100))/100 ;water level d=d-level*10000 ampl=d/100 ;amplitude of the wave u=real(rotskew*pi/180) t=exp(-flip(u)) bo=1/real(magxmag) q=bo/0.75*imag(magxmag) dd=tan(imag(rotskew*pi/180)) d3=2*q*t rs=2*bo*(dd+flip(1))*t z2=center+(-q-bo*dd-flip(bo))*t z=pixel-z2 d=imag(conj(d3)*z)/imag(conj(d3)*rs) if (d<=level) da=level-d z=z+2*da*(1+ampl*sin(freq*da^0.2))*rs endif z=z+z2 endif if (ismand) if (vb) c=0.4*log(sqr(pixel^mm)) z=z*le else c=z*le+pixel*(le==0) z=0 endif else c=p1 z=z*le+pixel*(le==0) endif t=0 d3=(ismand==0) u=d3 : if (vb) if (d3) z=(z*z-real(c))^(z*u+imag(c)) else z2=fn1(z)+c ;Linda Allison q=cos(z2) z=c*(1-q)/(1+q) endif elseif (ab) z=z*z+c+c*c-p7 ;Pusk s Istv n elseif (d3) z2=z*z z=z2*z2+(p6+u)*z2+c else z2=z*z ;Pusk s Istv n z=z2*z2+(p6+u)*z2+c-p1 endif bo=|z| If (wo) t=t+1 if ((t<mi1)+(bo>b1)) u=2*(fn1(t/fac1)) if (ismand) z=z*u if (vb) c=0.4*log(sqr(pixel^mm)) else c=z*le+pixel*(le==0) endif else z=z*le+pixel*(le==0) c=p1*u endif wo=0 if (ir1) t=0 endif endif elseif (start) t=t+1 if (start==2) if (bo>b2) u=2*(fn2(t/fac2)) rs=or1 ab=bb1 if (dd1) if (rs) z=pixel endif c=p1*u vb=vv2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=1 endif elseif (t>mi2) u=2*(fn2(t/fac2)) rs=inr1 ab=ab1 if (d1) if (rs) z=pixel endif c=p1*u vb=v2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=1 if (ir2) t=0 endif endif elseif (bo>b3) u=2*(fn3(t/fac3)) ab=bb2 rs=or2 if (dd2) if (rs) z=pixel endif c=p1*u vb=vv4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=0 endif elseif (t>mi3) u=2*(fn3(t/fac3)) ab=ab2 rs=inr2 if (d2) if (rs) z=pixel endif c=p1*u vb=v4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=0 endif endif bo<=ba } ----------------------------------------------------------end--------------- -

1 0