Hi all, Fractals are fun... and here is something to play with. ; The formula combines 3 fractals, mandel or julia types, basic or exponential, totally 16 combinations, not all useful maybe. Each one can be defined by maxiter or border values. Now they work! The point was to allow at least one iteration in order to avoid wrong bailout. Set the border values higher then bailout if you dont want to use them and vv. "Soft transitions" means that "z" is not reset at the crossover. Sometimes a completely different inside is calculated if checked. Of course any other basic formulas can be used if they are ismand compatible. As this probably is not the final version, please report any bugs or anything that could be done better. Thank you! Have fun! -----------------------------start-pars------------------------------- Mandelmania { ; a severe case of.. ; Albrecht Niekamp March,03 ; Version 2002 Patchlevel 4 reset=2002 type=formula formulafile=multi231.frm formulaname=multifrac_231 ismand=y function=exp/exp passes=t center-mag=-0.606061/4.44089e-016/0.9363296 params=-0.5/0.375/1536/2048/513/1025/1/1/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=200JJJ<14>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<25>C00A00800<3>000<9>III }
Birds_over_Julia { ; Outside exp. julia ; Albrecht Niekamp, March,03 ; Version 2002 Patchlevel 4 ; Version 2002 Patchlevel 4 reset=2002 type=formula formulafile=multi231.frm formulaname=multifrac_231 ismand=n function=exp/exp passes=t center-mag=0/0/0.6666667 params=-0.00180974761192663/-0.2758911404766991/1536/2048/513/1025/-2/3/\ 2560/2560 float=y maxiter=2048 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=200ddd<3>jjjlllnnn<2>sss<25>BBB999777<2>222000012<24>0bo0cq0es<3>\ 0kz<25>09C08A068<2>022000211<24>oiQqjRslS<3>zsX<25>CB7A96875<3>000400<23\
o00q00s00<3>z00<25>C00A00800<3>000<21>bbb }
Mandelmania_2 { ; Julia inside inside ; Albrecht Niekamp, March,03 reset=2002 type=formula formulafile=multi231.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=t center-mag=-0.606061/4.44089e-016/0.9363296 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=3 periodicity=0 rseed=-2436 colors=200ggf<18>BBA998776<2>221000011<24>0bn0cp0er<3>0ky<25>09B089067<2\
021000210<22>keNmgOoiPqjQslRunS<2>zsW<25>CB6A95874653442220000400<23>o0\ 0q00s00<3>z00<25>C00A00800<3>000<2>554776998BBACCB<16>eedggfiihjjillknnm\ <2>ssr<5>iih }
Borderline { ; Mix of 3 fractals ; Albrecht Niekamp, March,03 ; Version 2002 Patchlevel 4 reset=2002 type=formula formulafile=multi231.frm formulaname=multifrac_231 ismand=y function=exp/exp passes=t center-mag=-0.30271605328868720/-0.63359923125606620/52.34401 params=-0.00180974761192663/-0.2758911404766991/1536/3072/513/1025/4/2/3\ 300/3300 float=y maxiter=4094 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=200RRR<8>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<25>09C08A068<2>\ 022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o00q00s00\ <3>z00<25>C00A00800<3>000<23>eeegggiiijjjlllnnn<2>sss<15>SSS } --------------------------------start-frm----------------------------------- frm:Multifrac_231 { ; Albrecht Niekamp March,03 ;real(p2) factor ;imag(p2) bailout ;real(p3) maxiter1 ;imag(p3) maxiter2 ;real(p4) inside1: 1_mandel 2_julia 3_expmandel 4_expjulia ; other: *10_soft julia transitions <0_outside=exp ;imag(p4) inside2: 1_mandel 2_julia 3_expmandel 4_expjulia ; other: *10_soft mandel transitions <0_no inside1 ;real(p5) border1 ;imag(p5) border2 fac=real(p2) ba=imag(p2) out1=real(p3) out2=imag(p3) b1=real(p5) b2=imag(p5) d1=real(p4) d2=imag(p4) vb=(d1<0) If (vb) d1=d1*-1 endif tj=(d1<10) if (tj==0) d1=d1/10 endif v1=(d1==3) v2=(d1==4) d1=(d1==2)+(d1==4) st=(d2<0) if (st) d2=d2*-1 endif mj=(d2<10) if (mj==0) d2=d2/10 endif v3=(d2==3) v4=(d2==4) d2=(d2==2)+(d2==4) t=0 start=2-st if (ismand) z=0 c=pixel else c=p1 z=pixel endif : if (vb) z=(z+real(c))^(z+imag(c)) else z=z^2+c endif bo=|z| if (start) t=t+1 if (start==2) if ((t>out1)+(bo>=b1)) u=2*(fn1(t/fac)) if (d1) if (tj) z=pixel endif c=p1*u vb=v2 else z=z*u c=z if (mj) z=0 endif vb=v1 endif start=1 t=0 endif else if (t>out2)+(bo>=b2) u=2*(fn2(t/fac)) if (d2) if (tj) z=pixel endif c=p1*u vb=v4 else z=z*u c=z if (mj) z=0 endif vb=v3 endif start=0 endif endif endif bo<=ba } ------------------------------------end------------------------