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------------------------
Hi Albrecht, Your Mandelmania_2 image is has some incredible decorations deep in it's interior. Here are 6 zooms into within it - each is slow but worth the wait at the highest screen resolution you can render. (Others can do 1 per day until Jim's next FOTD!) 6man2007 { ; The Loop ; t= 1:35:45.53 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=1 center-mag=-0.74972315211951650/+0.02481825860743003/\ 72541.3/1/127.500000000303231/-1.26165855540705252e-0\ 10 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=130 symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000t7mbOq<4>TYtR_tPau<2>JgvHiwGiw<3>EguDftCft<\ 3>9dr<9>XjsZktalt<3>kouqpv<24>NJIMHGLGE<2>HC9FA7FB7<1\ 4>ASDATEAUE9VF9WF8YG<11>KYGLYGMYGNYGPZH<25>mgCnhCohB<\ 2>riBsjAtj8uj5vj3wk0wie<3>wbUwaRw_OwYLwWI<5>ZKHUIHQGG\ <3>88F<23>YH3ZI3_I2<2>bJ1dK0dK3<9>YPcYPgXQk<3>USz<3>U\ TxUTxTTw<2>TUvTVuUUu<13>pBoq9os8n<3>z2lx3lv5lu6l<7>dN\ q } 6man2011 { ; Armored Alien Cat ; t= 1:30:35.31 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=1 center-mag=-0.74975205273119960/+0.02476611845170080/\ 213023/1/10.0000000008315482/-2.48079404241430268e-01\ 1 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=130 symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000t7mhJp<7>TYtR_tPau<2>JgvHiwGiw<3>EguDftCft<\ 3>9dr<9>XjsZktalt<3>kouqpv<24>NJIMHGLGE<2>HC9FA7FB7<1\ 4>ASDATEAUE9VF9WF8YG<11>KYGLYGMYGNYGPZH<25>mgCnhCohB<\ 2>riBsjAtj8uj5vj3wk0wie<3>wbUwaRw_OwYLwWI<5>ZKHUIHQGG\ <3>88F<23>YH3ZI3_I2<2>bJ1dK0dK3<9>YPcYPgXQk<3>USz<3>U\ TxUTxTTw<2>TUvTVuUUu<13>pBoq9os8n<3>z2lx3lv5lu6l<4>jH\ o } 6man2019 { ; Bridge at Sunset ; t= 2:36:21.95 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=1 center-mag=-0.75120259115298190/+0.02789073887719203/\ 931414.9/1/104.999999999328068/6.55907092528273949e-0\ 10 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=103 symmetry=none periodicity=0 rseed=-2436 colors=000d3g<6>h3hi3hj3h<4>l3im3in3io3io3i<9>v3kv3kw\ 3k<3>z2lx3lv5lu6l<14>TYtR_tPau<2>JgvHiwGiw<3>EguDftCf\ t<3>9dr<3>IgrLhrOis<5>epuhqvkrv<3>wwx<7>kfaidZhaW<2>c\ WNaTK`SK<6>RKFQJEOHD<3>JDAHC9FA7<3>EE8EF9EG9<12>JTEKU\ EKVELWFLXF<3>MYGNYGNYG<17>ZaF_bF_bF`bFabFbcE<2>idE0fz\ meD<3>wfDzgCvdC<3>fRCbNCbMC<3>aEE`DF`BF<3>Z3I<3>h2Nk2\ Om2P<2>u1T<5>uFHuHFuKD<2>uR7vU5uT6<11>bCT`BV_9X<2>V5b\ T3dT3d<6>Y3eY3eY3e<4>a3fb3fc3gc3g } 6man2024 { ; Two Lakes on an Island ; t= 1:37:21.04 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=1 center-mag=-0.75120288140370270/+0.02789007532474884/\ 6.033303e+007/1/-157.499999725484884/-3.8376537125905\ 9407e-007 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=103 symmetry=none periodicity=0 rseed=-2436 colors=000u5P<3>uFHuHFuKD<2>uR7vU5uT6<11>bCT`BV_9X<2>\ V5bT3dT3d<6>Y3eY3eY3e<4>a3fb3fc3gc3gd3gd3g<5>h3hi3hj3\ h<4>l3im3in3io3io3i<9>v3kv3kw3k<3>z2lx3lv5lu6l<14>TYt\ R_tPau<2>JgvHiwGiw<3>EguDftCft<3>9dr<3>IgrLhrOis<5>ep\ uhqvkrv<3>wwx<7>kfaidZhaW<2>cWNaTK`SK<6>RKFQJEOHD<3>J\ DAHC9FA7<3>EE8EF9EG9<12>JTEKUEKVELWFLXF<3>MYGNYGNYG<1\ 7>ZaF_bF_bF`bFabFbcE<2>idE0fzmeD<3>wfDzgCvdC<3>fRCbNC\ bMC<3>aEE`DF`BF<3>Z3I<8>u1Tu3R } 6man2027 { ; Bridge over Stream in Autumn ; t= 1:34:03.21 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=1 center-mag=-0.75118277187009590/+0.02798686571056446/\ 3.244683e+007/1/85.0000000148912136/-1.29913059893072\ 003e-008 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=103 symmetry=none periodicity=0 rseed=-2436 colors=000_3f<13>h3hi3hj3h<4>l3im3in3io3io3i<9>v3kv3k\ w3k<3>z2lx3lv5lu6l<14>TYtR_tPau<2>JgvHiwGiw<3>EguDftC\ ft<3>9dr<3>IgrLhrOis<5>epuhqvkrv<3>wwx<7>kfaidZhaW<2>\ cWNaTK`SK<6>RKFQJEOHD<3>JDAHC9FA7<3>EE8EF9EG9<12>JTEK\ UEKVELWFLXF<3>MYGNYGNYG<17>ZaF_bF_bF`bFabFbcE<3>kdEme\ DpeD<3>zgC<3>jUCfRCbNC<3>aGEaEE`DF`BF`9G<7>n67p66r55<\ 3>z30<17>gBOfBPeCRdCSbDUaDU`EVZFY<3>QTpOXuL`zV3e<3>X3\ eY3eY3eY3eZ3e } 6man2032 { ; Mother Pac-Velociraptor and 3 chicks ; t= 2:18:16.95 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=fractint.frm formulaname=multifrac_231 ismand=y function=exp/sin passes=1 center-mag=-0.75118276428785270/+0.02798673221643937/\ 1.293256e+008/1/7.49999935172774457/4.631570167112908\ 36e-007 params=-0.5/0.375/1536/2048/513/1025/10/20/2560/2560 float=y maxiter=2048 inside=atan outside=tdis logmap=103 symmetry=none periodicity=0 rseed=-2436 colors=000_3f<13>h3hi3hj3h<4>l3im3in3io3io3i<9>v3kv3k\ w3k<3>z2lx3lv5lu6l<14>TYtR_tPau<2>JgvHiwGiw<3>EguDftC\ ft<3>9dr<3>IgrLhrOis<5>epuhqvkrv<3>wwx<7>kfaidZhaW<2>\ cWNaTK`SK<6>RKFQJEOHD<3>JDAHC9FA7<3>EE8EF9EG9<12>JTEK\ UEKVELWFLXF<3>MYGNYGNYG<17>ZaF_bF_bF`bFabFbcE<3>kdEme\ DpeD<3>zgC<3>jUCfRCbNC<3>aGEaEE`DF`BF`9G<7>n67p66r55<\ 3>z30<17>gBOfBPeCRdCSbDUaDU`EVZFY<3>QTpOXuL`zV3e<3>X3\ eY3eY3eY3eZ3e } And a repeat of your formula: 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 }
participants (2)
-
Albrecht.Niekamp＠t-online.de -
Lee H. Skinner