May 2003 - Fractint - mailman.xmission.com

FOTD 08-05-03 (The Devil's Fire [6])
by Jim M. 08 May '03

08 May '03

FOTD -- May 08, 2003 (Rating 6) Fractal visionaries and enthusiasts: Another unusually busy day will demand a truncated discussion. A FOTD fractal image without a midget at the center has become a rarity. To demonstrate that such images still exist, today's FOTD has no Minibrot at its center. The scene is located in the 'handle' of the fan-like element of the parent. The immediate area is non-critical, but filled with interesting detail nonetheless. I named the image "The Devil's Fire" when I had a rather apocalyptic impression while studying it. It's not that I expect the world to end soon, but rather that the image reminds me of certain frames of the 'Bald Mountain' section of Disney's 63-year-old film "Fantasia". After not-too-careful consideration, I was able to give the image a rating no higher than a 6. But the render time of 6 minutes is not too terribly long, and the completed image may be downloaded in a fraction of that time from one of the FOTD web sites. Paul's site is: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> Scott's is: <http://sdboyd.dyndns.org/~sdboyd/fotd/index.html> The weather Wednesday here at Fractal Central was fair enough, with lots of sun and a temperature of 79F 26C. A light shower fell in the early evening, but by that time the duo had completed their day's fun in the yard. Needless to say, their moods were better than average. Today, it is already raining. I expect the duo's mood will suffer. As for me, I've got some work to finish, some grass to trim, a fractal to find, and a bit of high-class philosophizing to do. Until next FOTD, which will appear in 24 hours, plus or minus an insignificant hour or two, take care, and prepare for imminent enlightenment. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START 20.0 PAR-FORMULA FILE================================ The_Devil's_Fire { ; time=0:06:12.34--SF5 on a P200 reset=2002 type=formula formulafile=allinone.frm formulaname=MandelbrotMix2 function=recip passes=1 center-mag=+0.53696554835343270/+0.001047316541995\ 04/65042.98/1/135/-1.06789917186933536e-010 params=-10/-1.1/-1/-11/0/525/0/0 float=y maxiter=1200 inside=0 periodicity=10 colors=000yIbyGeyFgyEiyDkyCmyBoyAqy9suBlqDemEZiGSe\ ILaJEBl9BfVB`oDcnEenFhnHjmImmJomHrmFumEwm6VlXRgvOc\ gIfTCiE6l00o9IbHZRNXVSVYYUabSdgQgmPkrNnwMqmWkcdfUm\ aLvXEng7frGcjPabXZVeXNmVG`UMPUSCUY0Ub9KjIAqKAoMAmO\ AkQAjSAhUAfWAdYAcJkUF`MBQFGSGLUGQVHVXH_ZId_IiaJnbJ\ R7rPDqNJqLPpKVpI`oGfoElnDrnDsdDsWDsNDsEFnDHiDJdCK_\ CMVC00ZQLBRGBTHJUIQ00ZXKdYLkZLrUPq00ZLVoGZnCam7dl0\ 0Z6hk00ZBjjDkjIfkNal0AZXSnaNobQobSo00ZcXoc_odaoddo\ 00Zgdijbdm`ZoZUzXOzVJzTDzR8z_5zh3zp1zq3zr5zs7zt8zu\ AzvCzwEzwFzwGzwHzmgzmfzmgzwKzmczmhzmePMiRNhTOjVPkX\ PkYQl_RlaSmcSmeTmgUmiVmjVmkTmlRmmPmmOmnQloSjpUipWg\ qYfr_dsacscate`ugZwiYzkUwmRroOrqLzsIzuFzwCzw9zu6zt\ 6zt6zs6zs6zr6zr6zq6zq6zp6zp6zo6zo6zn6zn6zm6zm6zl6z\ l6zk6zk6zj6zj6zi6zi6zi6zg7zf8ze9zcAzbBzaCz`DzZEzYF\ zXGzWHzUIzUJzUKzULzUMzUNzUOBUPBUQBURCUSCUTCUUDUVDU\ WDUXEUYEUZEUZCUYRQRbNVnKZ } frm:MandelbrotMix2 {; 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)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================

2 1

Re: [Fractint] Multifractal
by Jim M. 07 May '03

07 May '03

At 06:13 PM 5/6/03 -0700, John W. wrote: >I, too, have been "wowed" by Albrecht Niekamp's >new formula. I *have* to show off a zoom I made >into Mandela2. I've called it FnSF because it >reminded me of *all* the covers of the old >"Fantasy and Science Fiction" magazine I used to >devour back in the '50's. I 'devoured' FnSF in the 50's also. And those covers, which were apparently inspired by surrealistic art, especially the art of Yves Tanguy, were what led me toward the field of art and design. And yes, Albrecht's new formula is a winner. Too bad that, with a FOTD to produce on a daily basis, I have almost no spare time in which to investigate the images it creates. Jim M.

1 0

FOTD 07-05-03 (Enter the Rings [7])
by Jim M. 07 May '03

07 May '03

FOTD -- May 07, 2003 (Rating 8) Fractal visionaries and enthusiasts: I'm quite rushed today, so this one will have to be short. With today's image we enter the ring territory of the parent fractal for May, thus the name "Enter the Rings". Today's scene is located in a tiny cut-off area of chaos in the interior of the ring that lies at the tip of the filament extending from the second-largest fragmentary bud at the top of the fan-like element of the parent. (It's kind of hard to write descriptions of fractals. They are pictures, and a single picture is worth a thousand words.) I like today's image enough to rate it at an exceptional 8. But even this rating leaves considerable room for improvement. Will we find a fractal with a rating of 9, or maybe even a 10, before the month ends? Only time will tell. And speaking of time, today's image uses 5-1/2 minutes of it when it renders from the attached parameter file. Less time is expended when the finished image is downloaded from: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> or from: <http://sdboyd.dyndns.org/~sdboyd/fotd/index.html> It did not rain here at Fractal Central on Tuesday, but neither did the sun shine, and the temperature did not rise above 62F 17C. The dynamic fractal cats took most of the inconvenience in stride however, needing only a small treat of sliced turkey to maintain their good spirits. Today is starting sunny, but showers are forecast for later. Who knows what kind of day the duo will have. My day will be busy, regardless. Until the next FOTD appears in 24 hours, take care, and strike while the fractal is hot. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START 20.0 PAR-FORMULA FILE================================ Enter_the_Rings { ; time=0:05:34.77--SF5 on a P200 reset=2002 type=formula formulafile=allinone.frm formulaname=mandelbrotmix2 function=recip passes=1 center-mag=+4.40285707549754500/-2.951900882629842\ 00/8635917/1/-162.5/2.24149607753326707e-006 params=-10/-1.1/-1/-11/0/525/0/0 float=y maxiter=1200 inside=0 logmap=94 periodicity=10 colors=000UwzUvzUuzUtzUszUrzUqzUpzUozUnzUmzVlxWkvX\ jtYirZgqZfo_em_dk`bj`aha`faZdaZcZW`WWZVUXQTVTSTKRR\ TQPEONBNL8MJ5LHJRPWWWhaczjjxffvbbt__rWWpTSoRPoOLnM\ ImJElGAkE7jB3j90eE4`J8WOCRSFMXJHaNCfR8jUCkXFkZJkaM\ kcQkfTkhXkk_kmcchgWckPZoHUs9Pw2Kv7MvCOuHPuMRtRTtWU\ t`WseYsjZro`rtbrxcpsano_lkYjfWibUgZSeVQcQOaMM`IKZD\ IX9GV5EU1CX3E_5Ga6Hd8JfAKiBMkDNnFPpGQqHPrIPrJOsKOs\ LOtMNtNNuOMuPMvQMvRLwSLwTLhVQVXVGZ_2_d1_jUbhuefsfe\ qgdphcnhbmiakj`ij_hkZflYelXcmWbnV`nUZoTYpSWpRVqQTr\ PRrOQsN9yDOtMNtLLuKKvJIvIGwHFxGDxFCyEAzDbIN`KM_MMZ\ OLYQLXRKVTKUVJTXJSZJR_IPaIOcHNeHMgGLhGJjFIlFHnFGpE\ FqEDsDCuDBwCAyCa_H_aGZbGXdGWeGUfFThFRiFQjFOlENmEMn\ EKpEJqDHrDGtDEuDDvCBxCAyCWhoUimTjkSkiRlgQmePmdOnbN\ o`MpZLqXKqWJrUIsSHtQGuOFvMEvLDwJCxHByFAzD8zZ9zW9zT\ 9zQ9zN9zK9zH9zERziPzfOzdNzaLz_KzXJzVIzTGzQFzOEzLCz\ JBzGAzE2zG3zF4zF4zE5zE6zE } frm:MandelbrotMix2 {; 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)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================

1 0

Multifractal
by John Wilson 07 May '03

07 May '03

I, too, have been "wowed" by Albrecht Niekamp's new formula. I *have* to show off a zoom I made into Mandela2. I've called it FnSF because it reminded me of *all* the covers of the old "Fantasy and Science Fiction" magazine I used to devour back in the '50's. John W.

2 1

Multifractal
by Albrecht.Niekamp＠t-online.de 06 May '03

06 May '03

Hi, now that itïs ready i find the time to do some exploring. These zooms into Julia_rules are worth waiting, I think. Fractal greetings, Al. _________________________start-par_________________________________________ The_valley { ; Albrecht Niekamp May, 03 ; Zoom into Julia_mountains ; Time 2.57.36 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-0.88333481282099860/-0.40169492625939180/2203.42/1/-137.4999\ 99999998522/-1.18278303817831443e-012 params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\ 0016/768.00009/768.01536/256.01025/28424.5/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436 colors=0000j5<2>0p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G\ 20E20C20A1081<3>0000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>Dd\ TDfVEhWFjYFlYGn_Gp`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6I\ C5GB5DA<3>254243121000001023025047049<5>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0R\ j0Sl0Tn0Up4Yr8atCgvGkxKqz<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06\ A048046024012000100<12>R0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns\ 6iq0g<2>k0bi0`g0_e0Z<3>Y0SW0RU0O<7>E0CC0AA09<2>304102010<9>0L20N20P30R30\ T40V40X3<5>0h5 } The_center { ; Albrecht Niekamp May, 03 ; Zoom into Julia_rules ; Time 0.16.23 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-0.05053709997832860/-0.00922749254324538/26.88172/1/-47.5/3.\ 88578058618804789e-016 params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\ 0016/768.00009/768.01536/256.01025/28974.51/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436 colors=000049<5>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\ z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\ 0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\ 0SW0RU0O<7>E0CC0AA09<2>304102010<9>0L20N20P30R30T40V40X3<3>0d40f50h5<3>0\ p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>0\ 000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_G\ p`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>2542431\ 21000001023025047 } Spacecapsule { ; Albrecht Niekamp May, 03 ; Zoom into Julia_rules ; Time 0.13.42 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-0.06805984151223035/-0.04559319636224127/182.8429/1.2051/57.\ 5000000000000497/-5.05012698326368081e-014 params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\ 0016/768.00009/768.01536/256.01025/28974.51/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436 colors=000049<5>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\ z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\ 0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\ 0SW0RU0O<7>E0CC0AA09<2>304102010<9>0L20N20P30R30T40V40X3<3>0d40f50h5<3>0\ p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>0\ 000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_G\ p`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>2542431\ 21000001023025047 } Mandelweb { ; Albrecht Niekamp May, 03 ; Zoom into Julia_rules ; Time 0.10.47 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-0.04702177726320782/-0.01948403974853397/3953.194/1/67.49999\ 99999997442/3.56610574403504188e-013 params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\ 0016/768.00009/768.01536/256.01025/28974.51/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436 colors=000049<5>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\ z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\ 0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\ 0SW0RU0O<7>E0CC0AA09<2>304102010<9>0L20N20P30R30T40V40X3<3>0d40f50h5<3>0\ p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>0\ 000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_G\ p`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>2542431\ 21000001023025047 } Julia_mountains { ; Albrecht Niekamp May, 03 ; Zoom into Julia_rules ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-0.88112912875275460/-0.40222637253519330/537.6344/1/42.49999\ 99999996732/7.76441411165507134e-013 params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\ 0016/768.00009/768.01536/256.01025/28974.5/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436 colors=0000R30T40V40X3<3>0d40f50h5<3>0p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c\ 4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>0000101221532653863A84DA5EB5HB<2>7N\ G8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_Gp`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFi\ X<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>254243121000001023025047049<5>0BL0DN0DP<2\ >0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKqz<3>4_s0Vq0Uo<6>0Ma0L_0KY<3\ >0FQ0DO0DM<3>08E06C06A048046024012000100<12>R0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p\ 0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y0SW0RU0O<7>E0CC0AA09<2>3041\ 02010<11>0P3 } -------------------------------start-frm----------------------------------- FRM:Multifractal { ;Albrecht Niekamp May, 03 ;only integers as first input, second input 5 digits to the right ;real(p2) factor1,border1 ;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits ;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison) ;imag(p3) factor2,border2 ;real(p4) maxiter2,factor3 ;imag(p4) border3,maxiter3 ;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2 ; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1 ; optional basic frm2: out-nbr 1digit in-nbr 1digit 3_both +5_shape ;imag(p5) 1digit : 1_iter1reset 2_iter2reset 3_both +5_shape effect ; 2digits : many_mods multipl. shutoff +10_in/out1 +20_inout2 +30_both ; optional input2: frequency_2digits level_2digits amplitude_2digits ; 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) if (dd<5) start=0 endif vb=(dd==3)+(dd==4) da=round((da-dd)*100) d=trunc(dd/10000) vb=(d==3)+(d==4)+vb 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-d*10 d=trunc(dd) inr2=(d>5) d=d-5*inr2 v3=(d==3) v4=(d==4) d2=(d==2)+(d==4) d=trunc(da/10) ab=(d>=5) d=d-5*ab da=da-10*d bb1=(d==1) bb2=(d==2) d=da ab=(d>=5) d=d-5*ab ab1=(d==1) ab2=(d==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 angle=real(rotskew*pi/180) t=exp(-flip(angle)) h=1/real(magxmag) q=h/0.75*imag(magxmag) tanskew=tan(imag(rotskew*pi/180)) w=2*q*t v=2*h*(tanskew+flip(1))*t z3rd=center+(-q-h*tanskew-flip(h))*t z=pixel-z3rd s=imag(conj(w)*z)/imag(conj(w)*v) if (s<=level) da=level-s z=z+2*da*(1+ampl*sin(freq*da^0.2))*v endif z=z+z3rd 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)) ;frm: Albrecht Niekamp else z2=fn1(z)+c ;frm: Many_mods Linda Allison sqz2=cos(z2) z=c*(1-sqz2)/(1+sqz2) endif else if (ab) z=z*z+c+c*c-p7 ;frm: Puskás István else z2=z*z ;frm: Puskás István modified z=z2*z2+(p6+u)*z2+c-p1*(d3==0) 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

Re: Albrecht Niekamp Multifractal
by JackOTradez 06 May '03

06 May '03

Those Al-Niekamp Multifractal images are incredible! It is a long formula and Im trying to figure it out so I can animate them. I am trying to do "The Gate" image now. But a zoom into the Mandala was easy. If interested it is: http://www.sonic.net/~jot/mandalaz.zip Stay Amazed! JoTz

1 0

FOTD 06-05-03 (A Golden Oldie [7])
by Jim M. 06 May '03

06 May '03

FOTD -- May 06, 2003 (Rating 7) Fractal visionaries and enthusiasts: Returning to the parent fractal for May, which appeared on May 3, we notice that the upper edge of the 'fan' is dotted with bits and pieces of small Mandeloids and Mandeloid buds. Today's scene pictures a midget located in the most prominent valley of the largest of these partially-obscured Mandeloids. I named the image "A Golden Oldie". I forget whether it was the color that inspired the name, or if I gave it the name because it gives me a feeling of olde tymes. Most likely it was a com- bination of these things. As the month progresses, I shall use nothing but the convention- al equal-iteration-band method to render and color the images. There will be no 'evaporated' or 'tdis' images. This limitation will not result in boring images however. The parent fractal has nearly (and in fact, actual) unlimited variety. When the time to rate the image arrived, I decided on an above- average 7. I'm not exactly sure I like the mixture of green and orange in the golden parts of the image. But it's still a strik- ingly different scene, well worth the 7. The parameter file renders the image in 16 minutes on my machine. The completed GIF image will download from the FOTD web sites in a fraction of that time. The URL of Paul's site is: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> Scott's site can be accessed at: <http://sdboyd.dyndns.org/~sdboyd/fotd/index.html> The cats' good luck ended on Monday, as steady light rain moved in on schedule shortly after lunch time. The temperature of 48F 9C was no help at all. Confined as the duo were to the indoors, their moods quickly soured, they grew testy, and a treat of tuna was necessary to partially restore their good spirits. For some reason, Tippy tried to pick a fight with Thomas in the evening, but Thomas, being the peaceful cat that he is, backed down grace- fully, and they both ended the day as good friends. Today is cloudy and threatening rain again. A totally peaceful day among the dynamic duo might be too much to hope for, but we shall see how it goes. Until tomorrow, when we'll return to the parent fractal for May, take care, and who knows what we don't know about fractals. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START 20.0 PAR-FORMULA FILE================================ A_Golden_Oldie { ; time=0:16:35:74--SF5 on a p200 reset=2002 type=formula formulafile=allinone.frm formulaname=mandelbrotmix2 function=recip passes=1 center-mag=+5.32247257841096700/-2.024785183651587\ 00/744559.3/1/-115/-2.37486178181200991e-007 params=-10/-1.1/-1/-11/0/525/0/0 float=y maxiter=1800 inside=0 logmap=285 periodicity=10 colors=000OKULKUJKUHKUFKUCKUAKU7KV5KV0KV2KV3KW4KW5\ KW6KW7KX8KXAKYBKYCKZDKZEK_FK_GK`IK`JKaKLaLMaMNbNOc\ OPcOOcPNdQMdRLeRKeSLeTMfUNfUOfVPgWWgXYhX_hYchZdi_e\ i_ii`ijaljbmkbokcqkdsleulfukewldvlcvlbumaum`tm_smZ\ snYrnXrnWqnVpoUpoTooSooRnpQmpPmpOlqNlqMkqLjqKjrJir\ IirHhrGgsFgsEfsChvDfsEeqEdoFcmFbkGaiH`gH_eIYcIXaJW\ _JVYKUVLTTLSRMRPMPNNOLONJOMHPLFPKDQJBIB3QI9YOFdVLl\ `RwiXugWsfWqdWocWmbWk`Vi_VgZVeXVcWVaVV_TUYSUWRUUPU\ SOUQNUROTSPTTQTURTVSSWTSXUSYVSZVS_WR`XRaYRbZRc_Qd`\ QeaQfbQgbQhcPidPjePkfPogOshOwiOzjOzjOwiNshMohLlgKh\ gJefJcfIceHceGcdFcdFbcEabD`bCZaBYaAX`AW`9V_8U_7TZ6\ OY1QZ4SZ6UZ9W_BX_DZ_G``Ib`Kc`Ne`PhaRkaUnaWqbYtb`wb\ bzbdwZbrW`mS_hPYcLXZIVUCVPEUKFUFGVAHWAIX9KY9LZ8M_8\ N`7Oa6Qb6Rc5Sd5Te4Uf4Wg3Xh3Yi2Zj2_k3_l4`m4an5bo6cp\ 6dq7er8fs8gt9hu9ivAjwBkxBlyCmzDnzDozEpzEqzFrzGszGt\ zHuzIvzIwzJxzJyzVzzWzzJzz } frm:MandelbrotMix2 {; 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)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================

1 0

Multifractal
by Albrecht.Niekamp＠t-online.de 05 May '03

05 May '03

Hi, no comments needed. Check it out. Fractals are fun! Al -----------------------------start-par------------------------------------ Julia_rules { ; Time 1.17.02 p4 2giga 1600/1200 ; Albrecht Niekamp May, 03 ; ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-8.88178e-016/6.66134e-016/1.344086/1/-47.5/-1.23373533611470\ 521e-014 params=-0.1740997192297128/-0.2996141087069308/384.00004/256.1106/2048.0\ 0016/768.00009/768.01536/256.01025/28424.5/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=10 periodicity=0 rseed=-2436 colors=000049<5>0BL0DN0DP<2>0IV0JX0KZ0L`0Mb<3>0Rj0Sl0Tn0Up4Yr8atCgvGkxKq\ z<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A048046024012000100<12>R\ 0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<2>k0bi0`g0_e0Z<3>Y\ 0SW0RU0O<7>E0CC0AA09<2>304102010<9>0L20N20P30R30T40V40X3<3>0d40f50h5<3>0\ p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20G20E20C20A1081<3>0\ 000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDfVEhWFjYFlYGn_G\ p`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5GB5DA<3>2542431\ 21000001023025047 } -------------------------------start-frm----------------------------------- FRM:Multifractal { ;Albrecht Niekamp May, 03 ;only integers as first input, second input 5 digits to the right ;real(p2) factor1,border1 ;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits ;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison) ;imag(p3) factor2,border2 ;real(p4) maxiter2,factor3 ;imag(p4) border3,maxiter3 ;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2 ; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1 ; optional basic frm2: out-nbr 1digit in-nbr 1digit 3_both +5_shape ;imag(p5) 1digit : 1_iter1reset 2_iter2reset 3_both +5_shape effect ; 2digits : many_mods multipl. shutoff +10_in/out1 +20_inout2 +30_both ; optional input2: frequency_2digits level_2digits amplitude_2digits ; 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) if (dd<5) start=0 endif vb=(dd==3)+(dd==4) da=round((da-dd)*100) d=trunc(dd/10000) vb=(d==3)+(d==4)+vb 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-d*10 d=trunc(dd) inr2=(d>5) d=d-5*inr2 v3=(d==3) v4=(d==4) d2=(d==2)+(d==4) d=trunc(da/10) ab=(d>=5) d=d-5*ab da=da-10*d bb1=(d==1) bb2=(d==2) d=da ab=(d>=5) d=d-5*ab ab1=(d==1) ab2=(d==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 angle=real(rotskew*pi/180) t=exp(-flip(angle)) h=1/real(magxmag) q=h/0.75*imag(magxmag) tanskew=tan(imag(rotskew*pi/180)) w=2*q*t v=2*h*(tanskew+flip(1))*t z3rd=center+(-q-h*tanskew-flip(h))*t z=pixel-z3rd s=imag(conj(w)*z)/imag(conj(w)*v) if (s<=level) da=level-s z=z+2*da*(1+ampl*sin(freq*da^0.2))*v endif z=z+z3rd 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)) ;frm: Albrecht Niekamp else z2=fn1(z)+c ;frm: Many_mods Linda Allison sqz2=cos(z2) z=c*(1-sqz2)/(1+sqz2) endif else if (ab) z=z*z+c+c*c-p7 ;frm: Puskás István else z2=z*z ;frm: Puskás István modified z=z2*z2+(p6+u)*z2+c-p1*(d3==0) 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

FOTD 05-05-03 (Starry Mandelbrot [8])
by Jim M. 05 May '03

05 May '03

FOTD -- May 05, 2003 (Rating 8) Fractal visionaries and enthusiasts: Yesterday's FOTD image took us to the place where the right edge of the large fan-like element of the parent fractal merges into the 'East Valley' area of an obvious Mandel-like feature. Today's image takes us to the place where the left edge of the symmetrical fan-like element merges into a less-Mandel appearing feature. The 'fan' itself is filled with tiny holes, which are disconnected from the main body of the parent fractal but are rich with fractal detail nonetheless. Since the area in which today's scene lies is disconnected, the midget at the center is disconnected also. This isolation gives the midget, with its surroundings, the appearance of a star in a dark sky. The obvious 8-pointed star-like feature completes the effect of stellar glory and justifies the name "Starry Mandelbrot". I am quite satisfied with the appearance of today's image, and feel the rating of a much-above-average 8 is fully justified. Unfortunately, as is so often the case, something worth having must be waited for, and the 1/2-hour render time of today's image on my machine must be considered a wait, even when reduced to a fraction of that amount on a faster machine. Now, I suppose it is only fair to admit that I am no expert, at least in the field of math and fractals. (Despite the occasional dissension of critics, I am an expert in philosophy however, ;-) but my modesty prevents me from discussing it here.) In these fractal discussions, I often make statements that I think are true, but the fact that I think these things are true does not necessarily make them actually true. So the things I write in these discussions (other than my well-pondered philosophy) should be taken as entertainment rather than proven fact. Those with much patience can see today's image in 1/2 hour by running the attached parameter file. Those with better ways to fill their time will pick up the completed GIF image from: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> or from: <http://sdboyd.dyndns.org/~sdboyd/fotd/index.html> Well, I survived Sunday's trip to the antique emporium. In fact, I actually found a picture that I liked at a price I liked even better. The dynamic duo meanwhile remained on guard, pro- tecting Fractal Central from intruders. If any wrongdoer had dared to break in, the draft behind the dynamic duo as they dashed for cover would have knocked the intruder flat. The weather was cloudy and 64F 18C, but the rain held off again. This was irrelevant however, since the dynamic ones were alone by themselves indoors most of the day. Today is starting cloudy again, and the forecast is for rain by afternoon. I hope the duo stays happy. Until next time, which will be here in the wink of a fractal, take care, and be kind to your fractal -- it could be somebody's mother. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START 20.0 PAR-FORMULA FILE================================ Starry_Mandelbrot { ; time=0:29:37.98--SF5 on a P200 reset=2002 type=formula formulafile=allinone.frm formulaname=mandelbrotmix2 function=recip passes=1 center-mag=+1.25085078864374300/+3.023813723474635\ 00/4.386769e+009/1/-82.5/0.00713534581712483434 params=-10/-1.1/-1/-11/0/525/0/0 float=y maxiter=2700 inside=0 logmap=479 periodicity=10 colors=000307407406405404403503502501cn_cnZdoYdoXd\ pXepWeqVfqUfrTfrTgGacAc`5eb7Wc9MdBCeD3`F4WH4RJ4ML4\ HN5CP57R53T5LSGbSQsS_oSbkSdgSfcSh_SjWSlSSnUVjWXfY_\ b_aZadVcfReiNgkJinFkpBlr8ms7ns7os7ps7qs7rt6st6st6t\ t6ut6vu5wu5xu5yu5zu5zu5wo8ujAreCp_EmVGkQIw26r78nC9\ jGBfLCbQEZUFVZHRbITcLVcOXcRZcU`cXbc_ccaef`gh_ikZjm\ YlpXnrWotWnoUnjTneSm`QmWPmSOnRRpQUqPXgpfikbjgZkcWm\ _SnWOoRLpNHrJDsFAtB6u73pA8kDDfGIaINXLSTOXORaJTfEWk\ 9Zp4au0czH`zYYznVzoXrpYkqZdr_Ys`RtaKubDvc6oa8o`9kZ\ BhYCfXEaVFYUHVSIRRKOQLKONHNOEMPFOMGRJITGKVDNXAQZ7T\ a8Wd9ZfAaiBdkCgmDjoEmqEmsDmvDmwCmxCmyBmzBPnAQoAQpA\ Qp9Qq9Rr9Rs8Rt8Rt8_fEhTJqFOz1Tr2Uk3Ud4UX5UQ6UJ7UC8\ UKAVSCVZEVfGWnIWuJWmN1kP4iR6gT8eUAcWCaYE_ZGZ`IXbLV\ cNTePRgRPhTNjVLlXKmZJiWIeUHaSHaQGcOFeMFgKEiIDkGDmE\ EoEEqEEsEEuEEvEEwEFxEFyEFzEFzEFzEFzEDzICzLBzOAzR8z\ U7zX6z_5zb3zehzOfzTdzXbz` } frm:MandelbrotMix2 {; 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)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================

1 0

Multifractal
by Albrecht.Niekamp＠t-online.de 05 May '03

05 May '03

Hi, Lee sorry, its like you said, I forgot to rename those two which have been added later. Here they are again and a new one. There is a minor modification in the main loop of the formula, but it only slightly improves the performance. Fractal Greetings, Al. -------------------------start-par-------------------------------------- Speedtest { ; Time 1min10sec p4 2giga 1600/1200 ; Albrecht Niekamp May, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=0.117455/3.33067e-016/2.552858/1/90/3.88578058618804789e-016 params=-0.173894466994232/-0.3000579851680044/384.00001/256.1133/2048.00\ 008/768.0256000000001/768.01536/2560.01025/4/35.324051 float=y maxiter=2048 inside=maxiter outside=tdis logmap=4 periodicity=0 rseed=-2436 colors=0000200000101221532653863A84DA5EB5HB<2>7NG8PI8RJ9TKAVNAXM<3>DdTDf\ VEhWFjYFlYGn_Gp`Prd<3>zzz<2>_ulRsgHqaHo`GmZFkXFiX<5>BYOAWMAUL9SK<4>6IC5G\ B5DA<3>254243121000001023025047049<5>0BL0DN0DP<3>0JX0KZ0L`0Mb0Nd<3>0Sl0T\ n0Up4Yr8atCgvGkxKqz<3>4_s0Vq0Uo<6>0Ma0L_0KY<3>0FQ0DO0DM<3>08E06C06A04804\ 6024012000100<12>R0LT0NV0PX0P<3>d0Wf0Yh0Z<3>p0e<3>xOtzUxyOuwIquCns6iq0g<\ 2>k0bi0`g0_e0Z<3>Y0SW0RU0O<8>C0AA09807506304102010<9>0L20N20P30R30T40V40\ X3<3>0d40f50h5<3>0p6<3>WxZczeUyY<2>0s8<4>0i60g60e60c4<2>0Y40W30U4<5>0I20\ G20E20C20A1081061040 } Mandala2 { ; 5*many_mods ; Albrecht Niekamp May,03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=4.44089e-016/-2.22045e-016/0.5706667 params=-0.1738944669942329/-0.3000579851680044/384.00001/256.0076/256038\ 4.00008/1536.0256/768.01536/5120.01024/38888/2 float=y maxiter=3072 inside=maxiter outside=tdis logmap=yes periodicity=0 rseed=-2436 colors=200U00<9>A00<4>000<25>iiijjjlll<3>sss<25>BBB999777<2>222000012<24\ >0bo0cq0es<3>0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A9687\ 5<3>000400<23>o00q00s00<3>z00<15>W00 } Mandala2_deep_zoom { ;Albrecht Niekamp May, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/sin/exp passes=t center-mag=-0.09443402126328944/+0.06768140116763766/266.6667 params=-0.1738944669942329/-0.3000579851680044/384.00001/256.0076/512038\ 4.00015/1536.0256/768.01536/5120.01024/37314/0 float=y maxiter=3072 inside=maxiter outside=tdis logmap=yes periodicity=0 rseed=-2436 colors=200BBB<3>444222000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<22\ >keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C0\ 0A00800<3>000<23>eeegggiiijjjlllnnn<2>sss<24>DDD } ---------------------------start-frm--------------------------------------- FRM:Multifractal { ;Albrecht Niekamp May, 04 ;only integers as first input, second input 5 digits to the right ;real(p2) factor1,border1 ;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits ;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison) ;imag(p3) factor2,border2 ;real(p4) maxiter2,factor3 ;imag(p4) border3,maxiter3 ;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2 ; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1 ; optional basic frm2: out-nbr 1digit in-nbr 1digit 3_both +5_shape ;imag(p5) 1digit : 1_iter1reset 2_iter2reset 3_both +5_shape effect ; 2digits : many_mods multipl. shutoff +10_in/out1 +20_inout2 +30_both ; optional input2: frequency_2digits level_2digits amplitude_2digits ; 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) if (dd<5) start=0 endif vb=(dd==3)+(dd==4) da=round((da-dd)*100) d=trunc(dd/10000) vb=(d==3)+(d==4)+vb 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-d*10 d=trunc(dd) inr2=(d>5) d=d-5*inr2 v3=(d==3) v4=(d==4) d2=(d==2)+(d==4) d=trunc(da/10) ab=(d>=5) d=d-5*ab da=da-10*d bb1=(d==1) bb2=(d==2) d=da ab=(d>=5) d=d-5*ab ab1=(d==1) ab2=(d==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 angle=real(rotskew*pi/180) t=exp(-flip(angle)) h=1/real(magxmag) q=h/0.75*imag(magxmag) tanskew=tan(imag(rotskew*pi/180)) w=2*q*t v=2*h*(tanskew+flip(1))*t z3rd=center+(-q-h*tanskew-flip(h))*t z=pixel-z3rd s=imag(conj(w)*z)/imag(conj(w)*v) if (s<=level) da=level-s z=z+2*da*(1+ampl*sin(freq*da^0.2))*v endif z=z+z3rd 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)) ;frm: Albrecht Niekamp else z2=fn1(z)+c ;frm: Many_mods Linda Allison sqz2=cos(z2) z=c*(1-sqz2)/(1+sqz2) endif else if (ab) z=z*z+c+c*c-p7 ;frm: Pusk s Istv n else z2=z*z ;frm: Pusk s Istv n modified z=z2*z2+(p6+u)*z2+c-p1*(d3==0) 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-frm---------------------------------------

2 1