February 2015 - Fractint - mailman.xmission.com

35187-4
by Albrechtx 26 Oct '15

26 Oct '15

HI, got some time waiting for my flight, so using it to present one more image which is to beautiful to be kept a secret. ; https://www.dropbox.com/s/838eadbt0iq3qdl/35187-4.GIF Albrecht

3 3

Caleidoscope zoom - DosBox Configuration
by Niekamp 27 Feb '15

27 Feb '15

Tried the Fractint Patch on DosBox SVN-Daum and NO lack of memory crash. Everything works just perfectly and really fast. Here are the relevant settings I use on XP. Important is the fixed cycles amount which may be higher with faster systems and dynamic kernel allocation=false. The image, an exciting zoom, generated in hardly believable 2 min. ; core=dynamic cputype=auto cycles=fixed 205170 #cycles=max cycleup=10 cycledown=20 ignore opcode 63=true apmbios=false isapnpbios=true realbig16=falsexms=true ; ems=true umb=true umb start=0 umb end=0 dynamic kernel allocation=false keep umb on boot=false keep private area on boot=false private area in umb=true automount=true int33=true biosps2=true keyboardlayout=auto dbcs=true filenamechar=true collating and uppercase=true files=127 ; [autoexec] # Lines in this section will be run at startup. # You can put your MOUNT lines here. mount c k:\dosfiles\FRACTINT\ ; ; https://www.dropbox.com/sh/4nssoibe8t1yvpe/AAAGX7fGueqCkkKboUhT3DkKa?dl=0 ; The link also contains the "look closely" input table with the explanation how to change the default functions, 3 versions as usual. ; ---------------------------Start Par-------------------------------------- 13567-10 { ; Caleidoscope - Zoom ; Time 0.02.59.55 Reso 1280/1024 ; Used DosBox SVN Daum ; SGG051 Colormap reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.83011/2.61569e-013/24.19704/1/90/3.88578058618804789e-016 params=-0.05487228003784295/0.2096011230811487/13567.07595752022/12534.4\ 911030602/150512.0404808048/384.3204896048/384.00482000595/128.300768859\ 1/256.3007684001/512.2007681001 float=y maxiter=3071 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=000ZS0<12>HC0GB0FA0<3>A60960850<3>521421312<3>103103003<3>0040050\ 05015016<3>237247348<8>BDBCECDFC<8>PQGQRGSTH<7>baKcbKdcL<3>igMjgNkhN<3>n\ kOokPplP<3>rmQrmRsmR<3>smSsmSslT<3>rkUqjUqiU<3>nfVmfVmeV<9>aVW`UW_SWYRWX\ QWWPW<9>IDWHCWFBW<3>B7VA6V95V<3>52U42U31T<3>10S10S00S<3>00R00Q00Q<3>12P1\ 2O13O<4>56M67M68M<8>GIIIJHJKH<6>TTEUUEVWD<4>a`BbaBdbB<3>hf9ig9jh8<3>nj7o\ k6pk6<3>rm5rm4sm4<4>sm3sl2sl2<3>rj1qj1qi1<11>fZ0eY0cX0<2>`T0 }

1 0

fractint 20.04 patch 13 - Hermaphrodite.par
by Niekamp 27 Feb '15

27 Feb '15

It was bugging me that for each image an integrated frm version was needed and also harddisk space consumed - so I´ve written a new universal version that is used all the times and is placed together with MFR14_1 in the FRM folder. It has default function settings to be replaced on request on the input screen and seems to work perfectly - without one exception: ; /The new fractint patch produces// //a lack of memory crash, so I must// //ask Jonathan again to try a fix./ ; I´m still using the old version which runs perfectly even in evolver mode. The new FRM is included in the par and will be used from now on. Note : The crash only happens in evolver mode, which is essential for me of course, so other users are NOT concerned. ; https://www.dropbox.com/sh/s587gf7uzkuxhf9/AADUta-E_K0sOzUvT6LhWt87a?dl=0 ; Albrecht ; --------------------------Start Hermaphrodite.par------------------------- frm:mfr_14_2 {; Albrecht Niekamp Feb.26,2015 Universal Twopass Version ;P1 : Julia-Manowar-(Lambda)-(Magnet)-(Phoenix) seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods ; 6_Phoenix 7_Newton 8_Lambda/Magnet ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Lambd ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_nowarp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 or fn4 is used) ; Right: 4 Dig_bailout4 4 Dig_bailout5 1 Dig_mow=2 1 Dig_mag=2 1 Dig_fns ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;Function: fn1_Manymods, fn3_Bees, fn2+fn3+fn4(virtual P1)_Lambda(fn) z=pixel da=real(p2) dd=trunc(da) tt=dd>0 da=trunc(((da-dd)*100000000000)+11111) dd=trunc(dd+11111) d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=(d>1) sc=d==2 mo=d==6 po=d==7 sx=d==9 ab=po+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=(d>1) sc1=d==2 mo1=d==6 po1=d==7 sx1=d==9 v1m=mo1+po1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=po1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=(d>1) sc2=d==2 mo2=d==6 po2=d==7 sx2=d==9 v2m=mo2+po2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=po2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) dd=dd-d*10 ex3=(d>1) sc3=d==2 mo3=d==6 po3=d==7 sx3=d==9 v3m=mo3+po3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=po3+(d==3)+(d==5)+(d==9) d=dd ex4=(d>1) sc4=d==2 mo4=d==6 po4=d==7 sx4=d==9 v4m=mo4+po4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=po4+(d==3)+(d==5)+(d==9) tt=ex1+ex0+ex2+ex3+ex4 ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000) da=da-ph*10000000 sp=trunc(da/100000) da=da-sp*100000 d=trunc(da/10000) da=da-d*10000 wx=(d>4) d=d-5*wx dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) da=da-d*1000 w1=d>4 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) da=da-d*100 w2=d>4 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) da=da-d*10 w3=d>4 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) w4=da>4 da=da-5*w4 rs4=(da==2)+(da==3)+(da==4) if (ph==0) ph=p1 else ph=ph/10 endif w0=(wx==0) If (1<sp) d=(trunc(sp/10))/9 da=fn4(sp-100*d) d=sp/73,37 sp=d+sqr(-da) else sp=p1 endif ; d=real(p3) dd=trunc(d) da=trunc((d-dd)*10000000000) pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3-4 mg=da/10 if (mg<1) mg=real(p1) endif ; d=imag(p3) dd=trunc(d) da=trunc((d-dd)*100000000000) sfac=dd/1000000+(dd==0) ba4=trunc(da/10000000) da=da-ba4*10000000 ba5=trunc(da/1000) da=da-ba5*1000 mow=trunc(da/100) da=da-mow*100 mag=trunc(da/10) d=trunc(da-mag*10) fdm=(d==4)+(d==7) fdb=(d==3)+(d==7) px0=((sx*mag)==0)*p1 px1=((sx1*mag)==0)*p1 px2=((sx2*mag)==0)*p1 px3=((sx3*mag)==0)*p1 px4=((sx4*mag)==0)*p1 ; d=real(p4) dd=trunc(d) da=trunc((d-dd)*10000000000) ofac=dd/1000000+(dd==0) bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) dd=trunc(d) da=trunc((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=dd bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=trunc((d-mi1)*100000000000) d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 dd=trunc(da/100000) da=da-dd*100000 fac1=dd/1000000+(dd==0) bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=trunc((d-mi2)*100000000000) d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 dd=trunc(da/100000) da=da-dd*100000 fac2=dd/1000000+(dd==0) bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=trunc((d-mi3)*100000000000) d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) dd=trunc(da/100000) da=da-dd*100000 fac3=dd/1000000+(dd==0) bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) if (mag) c=z z=pixel x=mg x=x+(x==0)*3 ;magnet else z=pixel ;lambdafn x=((1,0.4)*(|sp|<=0)+sp) m=(64*(real(bb0)<=0)+real(bb0)*(0<bb0)) endif else c=z z=pixel ;newton endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) z=0 ;many mods endif elseif (d3) if (ab) if (mow) ;manowar mt=(4*(real(p2)<=0)+real(p2)*(0<p2) ) c=p1 z=pixel else c=p1 ;Julia z=pixel endif else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 : if (tt>0) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) u0=fn1(t*sfac) if (w0) u=u0 else u=1.0 endif ex0=0 if (ir0) t=0 endif if (d3) z=pixel cb=p9*u c=px0*u p=pp*u x=x*u else z=z*u if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif tt=tt-1+ex0 endif endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (w1) u=fn2(t*ofac) else u=1.0 endif if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9*u c=px1*u p=pp*u x=x*u else c=px1 z=z*u cb=p9 endif else vb=v1m if (rs1) c=z*u z=pixel*(sc1+po1) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (w2) u=fn2(t*fac1) else u=1.0 endif if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9*u c=px2*u p=pp*u x=x*u else cb=p9 c=px2 z=z*u endif else vb=v2m if (rs2) c=z*u z=pixel*(sc2+po2) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (w3) u=fn3(t*fac2) else u=1.0 endif if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9*u c=px3*u p=pp*u x=x*u else cb=p9 c=px3 z=z*u endif else vb=v3m if (rs3) c=z*u z=pixel*(sc3+po3) z0=p7*u ph=ph*u else c=z z=z*u endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (w4) u=fn4(t*fac3) else u=1.0 endif if (d3) vb=v4j if (rs4) z=pixel cb=p9*u c=px4*u p=pp*u x=x*u else cb=p9 c=px4 z=z*u endif else vb=v4m if (rs4) c=z*u z=pixel*(sc4+po4) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) if (mag) ;magnet z=((z^x+c-1)/(2*z+c-2))^(x-1) else z=exp(z)*sin(x) ;Lambdafn abs(imag(z))<=x && abs(real(z))<=m endif else z1=z^p-1 ;newton z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold zold=z ;Phoenix z=z1 else if (fdm) Z2=fn4(z)+c else z2=sin(z)+c ;Many_mods endif z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) if (mow) z1=z ;manowar oldz=z z=sqr(oldz)+z1+c z1=oldz else ;Julia z=z2*z2+p6*z2+c-p0 endif else if (fdb) z1=fn3(z)-cb else z1=sin(z)-cb ;Bees endif z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba } 30001-23 { ; Hermaphrodite ; Bees-Secant ; Time 0.06.18.87 Reso 1280/1024 ; New MFR_14-2 universal version reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=+0.19084994759683450/-0.08758731763020938/4126.423/1/-37.5000\ 000000032188/2.30310909232755989e-012 params=4.123456789123456/0.1/30001.32595700002/20004.0506031804/152048.0\ 404808001/33.16048940221/384.3132705812239/256.100002595/512.1007683001/\ 2048.3002200195 float=y maxiter=3072 inside=maxiter periodicity=0 rseed=-2436 colors=000IpA<2>GoFGnHFmK<3>DkTCjVCjYBi_Aha<3>8fj8el7dn<3>5au5`v4_w<3>3X\ z2Wz2Vz<3>1Ty1Sy1Rx<3>0Os0Nq0Mo0Ln<2>0Kg0Je0Ic0Ha0HZ<3>0EQ1DO1DL1CJ1001A\ F<3>288386375<3>551550640<3>830830921<3>B15C17C18<3>F0FF0HG0K<7>M0aN0cN0\ f<3>Q0nR1pS1q<3>V2wW2xX3y<3>_4z`4z`5z<3>c7xd7we8v<3>hAoiAniBl<5>mFZnGXoG\ V<3>qJMqKJrLH<3>tO9tO8uP6<3>wS2wT1wU0<3>xX0yY0yY0<3>za4za5zb7<3>zeDzfFzg\ H<4>zkSzkVzlXzl_zma<3>yojxplxpn<3>wstwtvvtw<3>uvztvztvz<3>rxyrxyqxx<3>nz\ snzqmzolzn<2>kzgjzeizchzahzZ<4>dzOczMbzJ<3>_yBZy9Zy8<3>Vx3Vx2Uw1<3>Rv0Qu\ 0Pu0<4>Ls4Lr5Kr7Jq8 } ------------------------------------End Par--------------------------------

2 2

Caleidoscope
by Niekamp 27 Feb '15

27 Feb '15

Jim called his latest image Caleidoscope. Here is my version. It was not intended. I just used a chaotic image done with MFR_10 some years ago and produced a good image with the new tools. The title of the old par was this one. The latest MFR_14_2 version - Default Functions - IS a step forward again, it seems. Once more: Please copy it into your frm folder together with MFR_14-1 as MFR_14.frm. Here are the two again - not included in the par. If you check it you´ll see that all functions are "ident" that means no modifications so far. Will see. ; https://www.dropbox.com/sh/4nssoibe8t1yvpe/AAAGX7fGueqCkkKboUhT3DkKa?dl=0 ; Albrecht ; ----------------------Start Par------------------------------------------ 13567a { ; Caleidoscope-a- ; time 06.01.25 ; sec-bees-mmods-phoen-newt reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-2.92251/2.61124e-013/0.1645399/1/90/3.88578058618804789e-016 params=-0.05825983458967864/0.3785210730307932/13567.07595752022/12534.4\ 911030602/150512.0404808048/384.3204896048/384.00482000595/128.300768859\ 1/256.3007684001/512.2007681001 float=y maxiter=3071 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=000JM0<8>EH0DG0DG0<16>350240140<3>010000000<58>X00X00X00Y00Y00<22\ >fE0fF0fG0<16>jP0jQ0jQ0jQ0<21>lZ0l_0k_0<4>k`0k`0ka0<17>hc0hc0hc0<17>ba0b\ a0aa0<16>VX0VW0UW0UV0TV0<10>OQ0NQ0NP0MO0<3>KM0 } ----------------------End Par-------------------------------------------- ---------------------Start frm------------------------------------------- mfr_14_1 {; Albrecht Niekamp Feb.19,2015 Deleted Warp Effect ;P1 : Julia-Manowar-(Lambda)-(Magnet)-(Phoenix) seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods ; 6_Phoenix 7_Newton 8_Lambda/Magnet ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Lambd ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_nowarp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 or fn4 is used) ; Right: 4 Digit_bailout4 4 Digit_bailout5 1 digit_mow=2 1 digit_mag=2 ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;Function: fn1_Manymods, fn3_Bees, fn2+fn3+fn4(virtual P1)_Lambda(fn) z=pixel da=real(p2) dd=trunc(da) tt=dd>0 da=trunc(((da-dd)*100000000000)+11111) dd=trunc(dd+11111) d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=(d>1) sc=d==2 bs=d==4 mo=d==6 po=d==7 sx=d==9 ab=po+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=(d>1) sc1=d==2 bs1=d==4 mo1=d==6 po1=d==7 sx1=d==9 v1m=mo1+po1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=po1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=(d>1) sc2=d==2 bs2=d==4 mo2=d==6 po2=d==7 sx2=d==9 v2m=mo2+po2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=po2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) dd=dd-d*10 ex3=(d>1) sc3=d==2 bs3=d==4 mo3=d==6 po3=d==7 sx3=d==9 v3m=mo3+po3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=po3+(d==3)+(d==5)+(d==9) d=dd ex4=(d>1) sc4=d==2 bs4=d==4 mo4=d==6 po4=d==7 sx4=d==9 v4m=mo4+po4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=po4+(d==3)+(d==5)+(d==9) bst=bs+bs1+bs2+bs3+bs4 mot=mo+mo1+mo2+mo3+mo4 tt=ex1+ex0+ex2+ex3+ex4 ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000) da=da-ph*10000000 sp=trunc(da/100000) da=da-sp*100000 d=trunc(da/10000) da=da-d*10000 wx=(d>4) d=d-5*wx dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) da=da-d*1000 w1=d>4 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) da=da-d*100 w2=d>4 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) da=da-d*10 w3=d>4 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) w4=da>4 da=da-5*w4 rs4=(da==2)+(da==3)+(da==4) if (ph==0) ph=p1 else ph=ph/10 endif w0=(wx==0) If (1<sp) d=(trunc(sp/10))/9 da=fn4(sp-100*d) d=sp/73,37 sp=d+sqr(-da) else sp=p1 endif ; d=real(p3) dd=trunc(d) da=trunc((d-dd)*10000000000) pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3-4 mg=da/10 if (mg<1) mg=real(p1) endif ; d=imag(p3) dd=trunc(d) da=trunc((d-dd)*10000000000) sfac=dd/1000000+(dd==0) ba4=trunc(da/1000000) da=da-ba4*1000000 ba5=trunc(da/100) da=da-ba5*100 d=trunc(da/10) da=da-d*10 mow=d==2 mag=da==2 px0=((sx*mag)==0)*p1 px1=((sx1*mag)==0)*p1 px2=((sx2*mag)==0)*p1 px3=((sx3*mag)==0)*p1 px4=((sx4*mag)==0)*p1 ; d=real(p4) dd=trunc(d) da=trunc((d-dd)*10000000000) ofac=dd/1000000+(dd==0) bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) dd=trunc(d) da=trunc((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=dd bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=trunc((d-mi1)*100000000000) d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 dd=trunc(da/100000) da=da-dd*100000 fac1=dd/1000000+(dd==0) bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=trunc((d-mi2)*100000000000) d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 dd=trunc(da/100000) da=da-dd*100000 fac2=dd/1000000+(dd==0) bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=trunc((d-mi3)*100000000000) d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) dd=trunc(da/100000) da=da-dd*100000 fac3=dd/1000000+(dd==0) bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) if (mag) c=z z=pixel x=mg x=x+(x==0)*3 ;magnet else z=pixel ;lambdafn x=((1,0.4)*(|sp|<=0)+sp) m=(64*(real(bb0)<=0)+real(bb0)*(0<bb0)) endif else c=z z=pixel ;newton endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) z=0 ;many mods endif elseif (d3) if (ab) if (mow) ;manowar mt=(4*(real(p2)<=0)+real(p2)*(0<p2) ) c=p1 z=pixel else c=p1 ;Julia z=pixel endif else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 u=1.0 : if (tt>0) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) ex0=0 if (ir0) t=0 endif if (d3) z=pixel cb=p9 c=px0 p=pp else if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif tt=tt-1+ex0 endif endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9 c=px1 p=pp else c=px1 z=z cb=p9 endif else vb=v1m if (rs1) c=z z=pixel*(sc1+po1) z0=p7 ph=ph else c=z endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9 c=px2 p=pp else cb=p9 c=px2 endif else vb=v2m if (rs2) c=z z=pixel*(sc2+po2) z0=p7 else c=z endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9 c=px3 p=pp else cb=p9 c=px3 endif else vb=v3m if (rs3) c=z z=pixel*(sc3+po3) z0=p7 else c=z endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (d3) vb=v4j if (rs4) z=pixel cb=p9 c=px4 p=pp else cb=p9 c=px4 endif else vb=v4m if (rs4) c=z z=pixel*(sc4+po4) z0=p7 else c=z endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) if (mag) ;magnet z=((z^x+c-1)/(2*z+c-2))^(x-1) else z=fn2(z)*fn3(x) ;Lambdafn abs(imag(z))<=x && abs(real(z))<=m endif else z1=z^p-1 ;newton z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold zold=z ;Phoenix z=z1 else z2=fn1(z)+c ;Many_mods z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) if (mow) z1=z ;manowar oldz=z z=sqr(oldz)+z1+c z1=oldz else ;Julia z=z2*z2+p6*z2+c-p0 endif else z1=fn3(z)-cb ;Bees z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba } mfr_14_2 {; Albrecht Niekamp Feb.26,2015 Default Functions ;P1 : Julia-Manowar-(Lambda)-(Magnet)-(Phoenix) seed ;RP2 Left: 5 Digit_Channels: (1)shape (2)out (3)ins_1 (4)ins_2 (5)ins_3 ; Frm: 0_off 1_Secant 2_Mand(2) 3_Bees 4_Jul/Manowar 5_Mmods ; 6_Phoenix 7_Newton 8_Lambda/Magnet ; Right: 2 Digit_ManyMods_Number of sides 2 Digit_Phoen 2 Digit_Lambd ; 1 Digit_TransReset-Shape: 0_no 1_DblMan 2_Iter 3_both +5_nowarp ; 4 Digit_TransReset-Ch 2-5: 0_no 1_z 2_Iter 3_both +5_warp ;IP2 Left: 5 Digit_Bailout Number for Channels 1 to 5 ; Right: Variables: 4 Digit_Mand/Jul (2var) 2 Digit_Secant 4 Digit_Bees ;RP3 Left: 2 Digit_Newtonvariable 4 Digits_bailout1 ; Right: 4 Digit_bailout2 4 Digit_bailout3 1 Digit_Magnet ;IP3 Left: 4 Digit_Shape: Warp-factor (fn1 or fn4 is used) ; Right: 4 Dig_bailout4 4 Dig_bailout5 1 Dig_mow=2 1 Dig_mag=2 1 Dig_fns ;RP4 Left: 4 Digit_Outside: Warp-factor (fn2 used) ; Right: Outside: 4 Digit+fractdig_Border-out 4 Digit+fractdig_border-in ;IP4 Left: Inside1_Maxiter ; Right: Inside1_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn2 used) 4 Digit+fractaldigit_border1 ;RP5 Left: Inside2_Maxiter ; Right: Inside2_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digit_warp factor (fn3 used) 4 Digit+fractaldigit_border2 ;IP5 Left: Inside3_Maxiter ; Right: Inside3_Transit: 1_maxit 2_borderout 3_borderin +5_maxit+bord ; 5 Digits_Warp factor (fn4 used) 4 Digit+fractaldigit_border3 ;Function: fn1_Manymods, fn3_Bees, fn2+fn3+fn4(virtual P1)_Lambda(fn) z=pixel da=real(p2) dd=trunc(da) tt=dd>0 da=trunc(((da-dd)*100000000000)+11111) dd=trunc(dd+11111) d=trunc(dd/10000) dd=dd-d*10000 d3=(d==4)+(d==5)+(d==8)+(d==9) d4=d3==0 vb=d>5 ex0=(d>1) sc=d==2 mo=d==6 po=d==7 sx=d==9 ab=po+(d==3)+(d==5)+(d==9) d=trunc(dd/1000) dd=dd-d*1000 ex1=(d>1) sc1=d==2 mo1=d==6 po1=d==7 sx1=d==9 v1m=mo1+po1 v1j=d>7 dd1=v1j+(d==4)+(d==5) ab1=po1+(d==3)+(d==5)+(d==9) d=trunc(dd/100) dd=dd-d*100 ex2=(d>1) sc2=d==2 mo2=d==6 po2=d==7 sx2=d==9 v2m=mo2+po2 v2j=d>7 dd2=v2j+(d==4)+(d==5) ab2=po2+(d==3)+(d==5)+(d==9) d=trunc(dd/10) dd=dd-d*10 ex3=(d>1) sc3=d==2 mo3=d==6 po3=d==7 sx3=d==9 v3m=mo3+po3 v3j=d>7 dd3=v3j+(d==4)+(d==5) ab3=po3+(d==3)+(d==5)+(d==9) d=dd ex4=(d>1) sc4=d==2 mo4=d==6 po4=d==7 sx4=d==9 v4m=mo4+po4 v4j=d>7 dd4=v4j+(d==4)+(d==5) ab4=po4+(d==3)+(d==5)+(d==9) tt=ex1+ex0+ex2+ex3+ex4 ; mm=trunc(da/1000000000) da=da-mm*1000000000 ph=trunc(da/10000000) da=da-ph*10000000 sp=trunc(da/100000) da=da-sp*100000 d=trunc(da/10000) da=da-d*10000 wx=(d>4) d=d-5*wx dm=(d==2)+(d==4) ir0=(d==3)+(d==4) d=trunc(da/1000) da=da-d*1000 w1=d>4 d=d-5*w1 rs1=(d==2)+(d==4) ir1=(d==3)+(d==4) d=trunc(da/100) da=da-d*100 w2=d>4 d=d-5*w2 rs2=(d==2)+(d==4) ir2=(d==3)+(d==4) d=trunc(da/10) da=da-d*10 w3=d>4 d=d-5*w3 rs3=(d==2)+(d==4) ir3=(d==3)+(d==4) w4=da>4 da=da-5*w4 rs4=(da==2)+(da==3)+(da==4) if (ph==0) ph=p1 else ph=ph/10 endif w0=(wx==0) If (1<sp) d=(trunc(sp/10))/9 da=fn4(sp-100*d) d=sp/73,37 sp=d+sqr(-da) else sp=p1 endif ; d=real(p3) dd=trunc(d) da=trunc((d-dd)*10000000000) pp=trunc(dd/10000) ba1=dd-10000*pp ba2=trunc(da/1000000) da=da-1000000*ba2 ba3=trunc(da/100) da=da-100*ba3-4 mg=da/10 if (mg<1) mg=real(p1) endif ; d=imag(p3) dd=trunc(d) da=trunc((d-dd)*100000000000) sfac=dd/1000000+(dd==0) ba4=trunc(da/10000000) da=da-ba4*10000000 ba5=trunc(da/1000) da=da-ba5*1000 mow=trunc(da/100) da=da-mow*100 mag=trunc(da/10) d=trunc(da-mag*10) fdm=(d==4)+(d==7) fdb=(d==3)+(d==7) px0=((sx*mag)==0)*p1 px1=((sx1*mag)==0)*p1 px2=((sx2*mag)==0)*p1 px3=((sx3*mag)==0)*p1 px4=((sx4*mag)==0)*p1 ; d=real(p4) dd=trunc(d) da=trunc((d-dd)*10000000000) ofac=dd/1000000+(dd==0) bh=trunc(da/100000)/10 bl=(da-bh*1000000)/10 bs=bl/2 ; d=imag(p2) dd=trunc(d) da=trunc((d-dd)*10000000000) d=trunc(dd/10000) dd=dd-d*10000 bb0=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/1000) dd=dd-d*1000 bb1=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/100) dd=dd-d*100 bb2=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=trunc(dd/10) dd=dd-d*10 bb3=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) d=dd bb4=ba1*(d==1)+ba2*(d==2)+ba3*(d==3)+ba4*(d==4)+ba5*(d==5) ; d=da p0=trunc(d/100000000)/10 d=d-p0*1000000000 p6=trunc(d/1000000)/10 d=d-p6*10000000 p7=trunc(d/10000)/10 d=d-p7*100000 dp=p6+p0/100 p8=trunc(d/100)/100 d=d-p8*10000 p9=d/100 ; d=imag(p4) mi1=trunc(d) da=trunc((d-mi1)*100000000000) d=trunc(da/10000000000) bt1=d>6 da=da-d*10000000000 d=d-5*bt1 dt1=d>1 iv1=d==3 dd=trunc(da/100000) da=da-dd*100000 fac1=dd/1000000+(dd==0) bo1=(da/100000)/10 ; d=real(p5) mi2=trunc(d) da=trunc((d-mi2)*100000000000) d=trunc(da/10000000000) bt2=d>6 da=da-d*10000000000 d=d-5*bt2 dt2=d>1 iv2=d==3 dd=trunc(da/100000) da=da-dd*100000 fac2=dd/1000000+(dd==0) bo2=(da/100000)/10 ; d=imag(p5) mi3=trunc(d) da=trunc((d-mi3)*100000000000) d=trunc(da/10000000000) bt3=d>6 da=da-d*10000000000 d=d-5*bt3 dt3=d>1 iv3=(d==3) dd=trunc(da/100000) da=da-dd*100000 fac3=dd/1000000+(dd==0) bo3=(da/100000)/10 ; if (vb) if (d3) if (ab) if (mag) c=z z=pixel x=mg x=x+(x==0)*3 ;magnet else z=pixel ;lambdafn x=((1,0.4)*(|sp|<=0)+sp) m=(64*(real(bb0)<=0)+real(bb0)*(0<bb0)) endif else c=z z=pixel ;newton endif elseif (ab) c=z ;Phoenix z=pixel else c=0.4*log(sqr(z^mm)) z=0 ;many mods endif elseif (d3) if (ab) if (mow) ;manowar mt=(4*(real(p2)<=0)+real(p2)*(0<p2) ) c=p1 z=pixel else c=p1 ;Julia z=pixel endif else ;bees c=p1 z=pixel endif elseif (ab) c=z ;Mandel z=0 else c=z ;Secant z=pixel endif t=0 bo=|z| p=pp z0=p7 zold=(0.0,0.0) cb=p9 ba=bb0 : if (tt>0) t=t+1 if (ex0) ex0=t<mi1 if (bo>bs) u0=fn1(t*sfac) if (w0) u=u0 else u=1.0 endif ex0=0 if (ir0) t=0 endif if (d3) z=pixel cb=p9*u c=px0*u p=pp*u x=x*u else z=z*u if (mo) c=0.4*log(sqr(z^mm)) else c=pixel endif tt=tt-1+ex0 endif endif elseif ((ex1)&&bo>bl) if (bo<bh) d3=dd1 ba=bb1 ab=ab1 ex1=0 tt=tt-1 if (w1) u=fn2(t*ofac) else u=1.0 endif if (ir1) t=0 endif if (d3) vb=v1j if (rs1) z=pixel cb=p9*u c=px1*u p=pp*u x=x*u else c=px1 z=z*u cb=p9 endif else vb=v1m if (rs1) c=z*u z=pixel*(sc1+po1) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo1) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex2) if (dt1) if (iv1) d=bo>bo1 else d=bo<bo1 endif if (bt1) d=d+(t>mi1) endif else d=t>mi1 endif if (d) ab=ab2 d3=dd2 ba=bb2 ex2=0 tt=tt-1 if (w2) u=fn2(t*fac1) else u=1.0 endif if (ir2) t=0 endif if (d3) vb=v2j if (rs2) z=pixel cb=p9*u c=px2*u p=pp*u x=x*u else cb=p9 c=px2 z=z*u endif else vb=v2m if (rs2) c=z*u z=pixel*(sc2+po2) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo2) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex3) if (dt2) if (iv2) d=bo>bo2 else d=bo<bo2 endif if (bt2) d=d+(t>mi2) endif else d=t>mi2 endif if (d) ab=ab3 d3=dd3 ba=bb3 ex3=0 tt=tt-1 if (w3) u=fn3(t*fac2) else u=1.0 endif if (ir3) t=0 endif if (d3) vb=v3j if (rs3) z=pixel cb=p9*u c=px3*u p=pp*u x=x*u else cb=p9 c=px3 z=z*u endif else vb=v3m if (rs3) c=z*u z=pixel*(sc3+po3) z0=p7*u ph=ph*u else c=z z=z*u endif vb=v3m if (mo3) c=0.4*log(sqr(z^mm)) endif endif endif elseif (ex4) if (dt3) if (iv3) d=bo>bo3 else d=bo<bo3 endif if (bt3) d=d+(t>mi3) endif else d=t>mi3 endif if (d) ab=ab4 d3=dd4 ba=bb4 ex4=0 tt=0 if (w4) u=fn4(t*fac3) else u=1.0 endif if (d3) vb=v4j if (rs4) z=pixel cb=p9*u c=px4*u p=pp*u x=x*u else cb=p9 c=px4 z=z*u endif else vb=v4m if (rs4) c=z*u z=pixel*(sc4+po4) z0=p7*u ph=ph*u else c=z z=z*u endif if (mo4) c=0.4*log(sqr(z^mm)) endif endif endif endif endif if (vb) if (d3) if (ab) if (mag) ;magnet z=((z^x+c-1)/(2*z+c-2))^(x-1) else z=exp(z)*sin(x) ;Lambdafn abs(imag(z))<=x && abs(real(z))<=m endif else z1=z^p-1 ;newton z2=p*z*z z=z-z1/z2 endif elseif (ab) z1=z*z+0.56+ph/100-0.5*zold zold=z ;Phoenix z=z1 else if (fdm) Z2=fn4(z)+c else z2=sin(z)+c ;Many_mods endif z1=cos(z2) z=c*(1-z1)/(1+z1) endif elseif (d3) if (ab) if (mow) z1=z ;manowar oldz=z z=sqr(oldz)+z1+c z1=oldz else ;Julia z=z2*z2+p6*z2+c-p0 endif else if (fdb) z1=fn3(z)-cb else z1=sin(z)-cb ;Bees endif z2=z1^p8-1 z3=p8*(z1^(p8-1)) z=z-(z2/z3) endif elseif (ab) if (dm) z=z*z+c+c*c-dp ;Double Mandel else z2=z*z ;Mandel z=z2*z2+p6*z2+c-p0 endif else z3=z ;Secant z1=z0*z0*z0*z0-1 z2=z*z*z*z-1 z=z-z2*(z-z0)/(z2-z1) z0=z3 endif bo=|z| bo<ba } --------------------------------------End Frm----------------------------

1 0

Re: [Fractint] 76531.par - 3
by Hal Lane 26 Feb '15

26 Feb '15

Albrecht, > IÂ´m still playing with the "Circles"... http://tinyurl.com/DropBox-for-Circles-76531 or: https://www.dropbox.com/sh/0x71kstlg54b3xy/AABfUSXzJhdFLValHTnEzIxBa?dl=0 Once again I'm blown away by the variety of forms, shapes and details your MFR formulas can create! - Hal Lane ######################## # hallane(a)earthlink.net ######################## ========================================== Author: Niekamp Date: 2015-02-25 12:36 -500 To: Fractint and General Fractals Discussion Subject: [Fractint] 76531.par - 3 IÂ´m still playing with the "Circles" as hidden deep inside there are some mandel variations, although the mandel frm is not included. Fascinating is that there are two completely different kinds. Three more images have been added. Please copy and paste them into 76531.par ; https://www.dropbox.com/sh/0x71kstlg54b3xy/AABfUSXzJhdFLValHTnEzIxBa?dl=0 ; Albrecht ; ----------------------------Start Par------------------------------------ . . . ========================================== --- This email has been checked for viruses by Avast antivirus software. http://www.avast.com

3 3

Albrecht, You asked that I anti-alias your "Circles" image.
by Hal Lane 26 Feb '15

26 Feb '15

Albrecht, You asked that I anti-alias your "Circles" image. I tried, but the power went off during a storm -- but the batteries in my UPS let me save this partial image. I didn't want to lose it after ~2 days of calculating! So, this is what I have for you: (Click for full size...) http://www.emarketingiseasy.com/Albrecht/Misc/76500-04.jpg I'll go back and finish it later... And for the truly adventurous, here's the 3MB 3k x 4k .GIF http://www.emarketingiseasy.com/Albrecht/Misc/76500-04.GIF Click for full size, and scroll -- I kind of like to use the arrow keys to look around in a large image like this so I don't have to keep looking over at the two scroll bars each time I move my cursor between them... Your image has very pleasant gold colors, with nice pink and green accents -- with *lots* of detail in a great variety of patterns! - Hal Lane ######################## # hallane(a)earthlink.net ######################## --- This email has been checked for viruses by Avast antivirus software. http://www.avast.com

1 0

76531.par - 3
by Niekamp 25 Feb '15

25 Feb '15

I´m still playing with the "Circles" as hidden deep inside there are some mandel variations, although the mandel frm is not included. Fascinating is that there are two completely different kinds. Three more images have been added. Please copy and paste them into 76531.par ; https://www.dropbox.com/sh/0x71kstlg54b3xy/AABfUSXzJhdFLValHTnEzIxBa?dl=0 ; Albrecht ; ----------------------------Start Par------------------------------------ 76500-25 { ; Mandel on Bubbles ; time 0.27.07.55 1280/1024 ; newt-phoen-mmods ; deep inside the circles reset=2004 type=formula formulafile=76531.par formulaname=mfr_14_2_76531 function=ident/ident/ident/cos passes=t center-mag=-0.34474237798238630/+0.00000000000026462/5.54925e+008/1/90/3\ .88578058618804789e-016 params=0.5267637918811443/-0.1364881926697067/76500.160057555/34531.4911\ 030602/150512.0404808048/0.3204896048/224.00482000595/24.2000008591/256.\ 2000004001/512.3000008001 float=y maxiter=3071 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=000EDL76ASQN<38>432332321<3>000pO`<3>MAFF69734eFn<2>A3CJ56<3>6113\ 00pUm<49>635534423<3>000VO1<15>970860650<3>110zh2<35>A70860750<3>110wOM<\ 3>_ECUCAO98<2>621DL5<2>350gy1<44>580570450<3>010LKW } 76500-31 { ; Mandel on Stripes ; time 0.27.07.55 1280/1024 ; newt-phoen-mmods ; deep inside the circles reset=2004 type=formula formulafile=76531.par formulaname=mfr_14_2_76531 function=ident/ident/ident/cos passes=t center-mag=-0.38667711506611910/+0.00000000000026462/568570.8/1/90/3.885\ 78058618804789e-016 params=0.5267637918811443/-0.1364881926697067/76500.165557555/34531.4911\ 030602/150512.0404808048/0.3204896048/224.00482000595/24.2000008591/256.\ 2000004001/512.3000008001 float=y maxiter=3071 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=000sm4<3>sl3sl3sl3<3>qj2qi2ph2<9>g_0fZ0eY0<3>`T0ZS0YR0WP0VO0<9>HC\ 0GB0FA0<3>A61961851<3>522422313<3>104104004<3>005006006016017<3>23824834\ 9<8>BDCCEDDFD<8>PQHQRHSTI<7>baLcbLdcM<3>igNjgOkhO<3>nkPokQplQ<3>rmRrmSsm\ S<3>smTsmTslU<3>rkVqjVqiV<3>nfWmfWmeW<9>aVX`UX_SXYRXXQXWPX<9>IDXHCXFBX<3\ >B7WA6W95W<3>52V42V31U<3>10T10T00T<3>00S00R00R<3>12Q12P13P<4>56N67N68N<8\ >GIJIJIJKI<6>TTFUUFVWE<4>a`CbaCdbC<3>hfAigAjh9<3>nj8ok7pk7<2>qm6rm6rm5sm\ 5sm5 } 76500-32 { ; MagMa ; time 0.19.45.66 1280/1024 ; newt-phoen-mmods ; deep inside the circles reset=2004 type=formula formulafile=76531.par formulaname=mfr_14_2_76531 function=ident/ident/ident/cos passes=t center-mag=-0.34474237925068780/+0.00000000080806178/2.708037e+009/1/90/\ 3.88578058618804789e-016 params=0.5267637918811443/-0.1364881926697067/76500.160057555/34531.4911\ 030602/150512.0404808048/0.3204896048/224.00482000595/24.2000008591/256.\ 2000004001/512.3000008001 float=y maxiter=3071 inside=maxiter outside=tdis periodicity=0 rseed=-2436 colors=000<3>000A00<20>QC8RD8SD9<13>dSFeTGgUG<3>kZIl_Jm`J<3>reMwww<42>CC\ CBBBAAA<3>555F00<10>SC7TD8VE9<2>YHB_JC_KC<24>tlWunXvoX<3>zt`rrr<42>GGGFF\ FEEE<3>AAAK00<42>rfQrgQshR<3>wmU000 } ------------------------------------------End-------------------------------

1 0

76531.par link
by Niekamp 25 Feb '15

25 Feb '15

https://www.dropbox.com/sh/qe46tkgdu1ywy1x/AAAM01oN-Bwvv2G5GqVEq8_ta?dl=0 sry. Albrecht

1 0

Evolution Animation
by JackOfTradeZ＠comcast.net 25 Feb '15

25 Feb '15

. The Mandelbrot Exponent was varied from 0.0 to 8.0 to create the effect. .

1 0

Re: [Fractint] Multiplosh
by Hal Lane 25 Feb '15

25 Feb '15

Oops! Mike, I forgot to include the link to a zoom into your Multiplosh that I did: http://www.emarketingiseasy.com/misc/M150223.jpg - Hal Lane ######################## # hallane(a)earthlink.net ######################## --- This email has been checked for viruses by Avast antivirus software. http://www.avast.com

1 0