Hi, is this post-fractint? Kinda pick up the pieces and make something new of it? I hope not. It was supposed to be an update to Mandelmania but it turned out to become something different, more a tool then a formula. A tool to be used without leaving fractint, which lets you compose your image,- or the first approach to it. It mixes 4 fractals with seperate inside/ outside options.Two basic formulas which are ismand compatible and two hybrid mandel and julia variations. Of course a huge number of inputs is needed, but I have tried to make them as easy and comfortable as even possible. The p1 values are used as Julia seed and shared to define the default mandel, I call it shape. If you need both, start with the Julia values, see what basic image you get and define it further with the P6 input,(real P2) after the dot. The first 2 digits are used, they even can be negative, a "minus" will be applied to this value only. The other two digits are used to define the 2nd shape. This one has many variations of mirrored mandels that can be combined to one special shape. Use the evolver, max mutation for example 0.003. Both are written by Puskás István. The default one is modified to enforce Julia compatability and to use the "warp"effect for further modification. The inputs are sorted as shape/ in/out1 and in/out2 factor,border, maxiter. Border1 can be fractional, a border value of 1.4567 would appear as (factor1).000014567. The primary input Real P5 consists of five digits, shape, out1, out2, in1, in2. You type the number of the fractal to be used and add five to reset it, not the shape of course. A "minus" will shut off in/out1. Number 3 is Many_mods (mandel) by Linda Allison with a modification by Sylvie Gallet. I like this because it creates beautiful structures and its very complex. The circular form can be changed if you take a mandel as basic shape. It mixes very well with the hybrid Julia, (Nr.4),own write, which also gains complexity with the warpeffect, as it shares iteration. This one can be replaced by a different frm, if it dosnt need an additional input. The other ones are "built in" so some rewriting would be necessary in order to replace them. If you want the shape only, no in/out options, just type one number. Do not forget to set ismand according to your selection. The secondary input consists of 2 digits.You type the number out1/out2 and in1/in2 (or zero) to use the second basic formula, 3 if you want to use it for both, add five to use it as shape. This input is optional. Resetting generally adjusts the concerned part to the screen instead of the surroundings, it also helps avoid chaotic spots due to overcomplexity. Many-mods gains complexity, the number of "sides", (real P3,2nd input) is doubled if called as in/out option and again if twice f.e "(bailout).00008". This also creates the multiplication in "cockpit", I think. Imag P5 is optional, one or two digts, 1 for resetting the internal counter after shape (1) or after in/out1 (2), 3 if both. Add five or only 5 to use the warpeffect on the shape. This sometimes helps if you dont get an inside image and lets you see the difference. Counter resetting starts the calculation of the warp effect from zero. If you dont reset it and use the same factor for all options, the effect will increase with iteration. If you want to shut off the many_mods multiplication add 10 for in/out1, add 20 for in/out2 or 30 to shut it off completely. The Lake input ,2nd input, is radically simplified (sorry, Sylvie), you just type one six digits number, 2 digits for each value. 324151 means a frequency of 320, a level of 41% and an amplitude of 0.51. Any valid input activates the lake effect. The functions are used for the calculation of the warp effect, possibly a new factor must be found if changed. Fn1 is shared with many_mods, so if you dont warp the shape it is free to use. I did not use fn4 or fn5 for the 2nd function as at least 2 lines are needed to scroll the text. If you dont want the outside options set the values higher then bailout, or vv maxiter higher then maxiter on the x-screen. It was not possible to include twoway border values and separate bailout values, P6 is needed. Its a good idea to have a hardcopy available when doing the inputs, also some basic pars ready to modify. There is one problem: Many_mods is n o t compatible with the lake effect, as they both define "c", applying the effect to "z" does not do the job and the image is partly distorted. P l e a s e tell me, if you see a solution, maybe only Sylvie can help. If you have questions or bugs to report, please dont hesitate and -- please post your images. Writing this was like a trip into a new country, and when you finally detect, that it´s much more complex then it´s parts, well- that´s it. Fractal Greetings, Al. ---------------------------------------start-par-------------------------- - The_flying_mandel { Albrecht Niekamp Apr, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=-0.426332/0.037594/0.8912656/1/-90/3.88578058618804789e-016 params=-0.2724234748374889/0.09260841700491348/384.00001/256.1113/2048.0\ 0008/768.00004/1025.01536/2560.01536/18115.11/0 float=y maxiter=3072 inside=maxiter outside=tdis logmap=4 periodicity=0 rseed=-2436 colors=200022000<4>A85CA6EC7GE8IF9KHA<13>keOmgPoiQqjRslSunT<2>zsX<25>CB7\ A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>000<23>eeegggiiijjjlll\ nnn<2>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<29>034 } The_gate { ; Albrecht Niekamp Apr, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=0.512575/-0.480315/2.675131/1/-90/3.88578058618804789e-016 params=0.5125888851588488/-0.4719992675557726/384.00001/256.3601/2048.00\ 008/768.0256000000001/768.01536/2560.01025/11113.11/1.324051 float=y maxiter=3072 inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=200000<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777<2>222000012<24>0b\ o0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB\ 7A96875<3>000400<23>o00q00s00<3>z00<30>200 } Hades { ; Albrecht Niekamp Apr, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=-1.09933852316632100/+1.00410963532720300/204.7945/1/-169.999\ 999999999545/4.83828255237739313e-013 params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\ 0016/768.0001600000001/768.01536/32.01025/34231/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=yes periodicity=0 rseed=-2436 colors=20009C<19>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqj\ RslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>00\ 0<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777<2>222000012<3>07A } Cockpit { ; Albrecht Niekamp Apr, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=-1.16761/0.932037/6.553424/1/-47.5/-3.77822773067748585e-014 params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\ 0016/768.0001600000001/768.01536/32.01025/34231/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=yes periodicity=0 rseed=-2436 colors=000XXX<10>oooqqqsss<2>xxxzzzyyy<25>CCCAAA888<2>222000000<56>00000\ 0000<2>000111332<23>ldTnfUpgV<3>xn_<27>A86875654443222000<52>000000000<2\

000111333<15>VVV }

No_admission { ; Albrecht Niekamp Apr, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/sin passes=t center-mag=0.222172/-0.0164743/3.404629/1/-90/-1.23373533611470521e-014 params=0.3009095217749565/-0.00961206396679584/384.00001/256.3601/2048.0\ 0008/768.0256000000001/768.01536/64.01025/11193/0 float=y maxiter=3072 inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=200000<25>iiijjjlll<3>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3\

0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<2\ 3>o00q00s00<3>z00<30>200 }

Mandala { ; Albrecht Niekamp Apr, 03 ; ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=postpar.par formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=0.128196/0.0103203/1.14051/1/-90/3.88578058618804789e-016 params=0.1044648579363384/-0.01168858912930693/384.00004/256.00768/2048.\ 00005/768.00008/384.01536/384.01025/18939/5 float=y maxiter=2048 inside=maxiter outside=tdis logmap=5 periodicity=0 rseed=-2436 colors=200000<25>0bo0cq0es<3>0kz<25>09C08A068<2>022000211<22>keOmgPoiQqj\ RslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z00<25>C00A00800<3>00\ 0<23>eeegggiiijjjlllnnn<2>sss<25>BBB999777555444222 } Speedtest { ; Time 1min10sec p4 2giga 1600/1200 ; Albrecht Niekamp May, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifrac_239 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 } Thousand_Julias { ; Time 22m35s p4_2giga_1600/1200 ; Albrecht Niekamp Apr, 03 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/exp passes=t center-mag=-1.16373570930467300/+1.00897822713355100/131.0685/1/132.5000\ 00000000682/-1.31000071901254955e-012 params=-0.1738944669942329/-0.3000579851680044/384.00001/256.1113/3072.0\ 0016/768.0001600000001/768.01536/32.01025/34231/5 float=y maxiter=3072 inside=maxiter outside=tdis logmap=5 periodicity=0 rseed=-2436 colors=2000Ub<13>09B089067<2>021000210<22>keNmgOoiPqjQslRunS<2>zsW<25>CB\ 6A95874653442220000400<23>o00q00s00<3>z00<25>C00A00800<3>000<2>554776998\ BBACCB<16>eedggfiihjjillknnm<2>ssr<25>BBA998776<2>221000011<24>0bn0cp0er\ <3>0ky<10>0Wd } Thousand_mandels { ; Albrecht Niekamp Apr, 03 ; ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/sin passes=t center-mag=-0.175549/-0.304679/1.39428/1/-90/-1.23373533611470521e-014 params=-0.173894466994232/-0.3000579851600044/384.00004/2500.2333/2048.0\ 0012/768.00008/2500.01536/32.01536/18435/5 float=y maxiter=2048 inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=200211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<23>o00q00s00<3>z0\ 0<25>C00A00800<3>000<25>iiijjjlll<3>sss<25>BBB999777<2>222000012<24>0bo0\ cq0es<2>0jy0kz0jy<30>000 } Thousand_mandels2 { ; a bit chaotic, but... ; Albrecht Niekamp Apr, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractal ismand=y function=exp/exp/sin passes=t center-mag=-0.57996076807419270/-1.17390745582887600/27.8856/1/-152.5000\ 00000000142/1.65777114258247593e-013 params=-0.173894466994232/-0.3000579851600044/384.00004/2500.2333/2048.0\ 0012/768.00008/2500.01536/32.01536/18435/5 float=y maxiter=2048 inside=maxiter outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=20007A<20>0bo0cq0es<2>0jy0kz0jy<24>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>BBB999777<2>222000012<2>068 } Mandala2 { ; 5*many_mods ; Albrecht Niekamp May,03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifrac_239 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 }

---------------------------start-frm--------------------------------------- FRM:Multifractal { ; Albrecht Niekamp Apr, 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 (start==1) if (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 endif bo<=ba }