March 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

Random Colors
by Mike Frazier 01 Apr '15

01 Apr '15

Here is a fractal I made while working on Fracton's new color editor. The colors were made with the random sine color function. Random numbers were used for the start, amplitude, phase, and frequency of the sine waves. Here is a link to an image: http://dl.dropboxusercontent.com/u/33642054/image/pr_3cossin-3_BCT_1200_5.j… The FractInt compatible PAR file for the image is: pr_3cossin-3_BCT { ; Exported from Fracton. reset=2004 type=formula formulafile=fracton.frm formulaname=F_20150330_1758 passes=1 float=y center-mag=-0.3934968074876738/0/3795537747.33295/\ 1/0/0 params=1/1/0/3/-1/0/1/0/0/0 maxiter=2000 inside=0 periodicity=6 colors=000IgWFcTK`gOehShhXhhaggfdfj_doTbsM`vFYx9Vz\ 4Tz1Qz0Ny1Kw4It9FpFDlMChTBcZAZcAUgAQhAMhBIeDF`FDVH\ BOJBHMBBPD5SF1VI0XL0_P2aU7cZDecKghRglXhpbhtfgwhgyh\ ezfdzbazX_xQXvJVsDSo7Pk2Mf0Ja0HX2FT5DOBBKHAHPAEVAC\ `ABeBBhCChDDgFGcIJZKNTNRMQWFS`8Vd4Yi0`n0br1du4fw9g\ yFhzMhzThy_gwdfugeqhcnhaieZd`X`VUWORRHONALJ5JG1GD0\ EC0DB3BB7ACDAEKAHRAKYBObCTfEXhGahIffLkaNoXQsQTvJWx\ CZz6`z2bz0dy0fw2gt6hpBhlIhgPgcWfZadUecPh`LhZIgWFcT\ K`gOehShhXhhaggfdfj_doTbsM`vFYx9Vz4Tz1Qz0Ny1Kw4It9\ FpFDlMChTBcZAZcAUgAQhAMhBIeDF`FDVHBOJBHMBBPD5SF1VI\ 0XL0_P2aU7cZDecKghRglXhpbhtfgwhgyhezfdzbazX_xQXvJV\ sDSo7Pk2Mf0Ja0HX2FT5DOBBKHAHPAEVAC`ABgBBhCChEEeGHa\ JLWLPPOTIRYBUb6Xg2Zk0ap0cs2ev6fxCgzJhzQhzXhxagvffs\ hdphbkf`gbYbYVYRTTKQPDNL7KH3IE0FC0DB1CB5BBAADHAFOA\ IVAM`BQeDVhF_hHdgJidMm_PqTStMVwFXy9_z4az1cy0ex0gu4\ gr8hnFhjMgeTg`ZeWcdSgaNh_ } frm:F_20150330_1758 { ; Similar to the parallel resistance formula a=real(p1),b=real(p2),d=imag(p1),f=imag(p2), z=0,c1=pixel-p3,c2=pixel-p4: z=1/(1/(a*(cos(z)-1)*sin(z)+c1)+1/(d*(z^f)+c2)), |z|<100 } -- Mike Frazier www.fracton.org

3 2

Netwaork Animal
by Niekamp 31 Mar '15

31 Mar '15

The first image of the new Manowar type. Maybe you´re impressed too. ; https://www.dropbox.com/sh/zqh7lrun5yco3k8/AACe6L-zumxTN3yCcDy6-6aka?dl=0 ; Including the frm again because of the new item. Inspite of that it has become shorter to save memory. ; Albrecht ; --------------------------Start Frm---------------------------------------- mfr_14_2 {; Albrecht Niekamp Mar.30,2015 Gen Update ;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: fn4_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 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 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 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 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 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 px=trunc(da/100000) da=da-px*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) ; 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 d=trunc(da/100) mow=(d==2)+(d==3) mv=(d==3)+(da==4) da=da-d*100 d=trunc(da/10) mag=d==2 d=trunc(da-d*10) fdm=(d==4)+(d==7) fdb=(d==3)+(d==7) If (1<px) d=(trunc(px/10))/9 if (fdm) da=fn4(px-100*d) else da=exp(px-100*d) endif d=px/73,37 px=d+sqr(-da) else px=p1 endif ; 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 mg=mg+(mg==0)*3 ;magnet x=mg else z=pixel ;lambdafn x=((1,0.4)*(|px|<=0)+px) 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 (mv) ;manowar+Julia bb0=(4*(real(p1)<=0)+real(p1)*(0<p1) ) endif c=p1 z=pixel 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 x=x*u p=pp*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 x=x*u p=pp*u else 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 x=x*u p=pp*u else cb=p9 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 x=x*u p=pp*u else cb=p9 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 x=x*u p=pp*u else cb=p9 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 if (fdb) z=exp(z)*fn3(x) else z=exp(z)*sin(x) ;Lambdafn endif 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 z2=z*z 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---Start Par------------------------------ Mano2-01 { ; Network Animal ; Time 0.00.54.37 ; Reso 1280/1024 ; Manowar Typ2 SG Miracle Map reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.479531/0.00308737/0.9693941/1/-25/1.31075705844807544e-014 params=-1.020105594042787/-0.1455732902005067/40000.32595700001/20000.05\ 06020602/152048.0404808025/24.160489403211/0.00482000595/256.1000003/512\ .1000003/768.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000<11>000000000<3>000<7>Q0UU0YX0a_0dc0hf0l<2>p0w<4>_0dX0aU0Y<2>K\ 0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D36F5<16>kkammcpoe<3>zw\ m<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<6>220220220<3>110000110<\ 2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3>z0K<6>Z0EV0DR\ 0C<3>A08004000<13>000 } ----------------------------End Par----------------------------------------

1 0

MFR_14 Basic Images - Additional Item
by Niekamp 31 Mar '15

31 Mar '15

I have added one more item to the Basic Images, a truly fascinating Manowar Typ2 image. It´s in the folder incl a small addon to the frm. Check the revised Input Table. ; https://www.dropbox.com/sh/6af1a8dluat6qfy/AABS-JPmz4oGd0UMAomhzURua?dl=0 ; Albrecht ; ---------------------------------Start Par-------------------------------- 4switch_Manow2_Bas { ; Alternative for Julia ; Time 0.01.45.08 ; 1280/1024 ; Manowar Typ2 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=sin/exp/exp/sin passes=t center-mag=-0.479531/0.00308737/0.9693941/1/-25/1.31075705844807544e-014 params=-1.069911801507614/-0.3965514084292124/40000.32595750001/20000.05\ 06020602/152048.0404808025/384.160489402211/384.00482000595/256.1007683/\ 512.1007683001/512.1007683001 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000Ukp<2>7_d<3>7MS7JO7FL7CI<4>WCA`B9eB7<3>yA0<13>RA1PA1MA1<3>C92<\ 6>TXAV`BXcC<3>grI<3>TnXQm_MlcIkgEfp9az<3>OJoRFlVAiZ5fb0cd7_iFRnNIyb0yj00\ 00yr0yz1yzC<2>yzz<3>iqdeo_alU<3>Lb8<3>KQ8JM8JJ8<2>H88G44F00<3>SA5VD6YF7`\ I8dLAgMBhODiQF<3>peBqiAsm9uq8wu7yz5yz4yz3<4>yj4yg4yc4<3>yS5yP5yL6yI6yE6v\ E6sD6<6>uAIu9Ku9M<3>w7Sx7Ux6Wy6Yy5_<3>e5M`5IV4E<2>Z4H<3>O3DM2CJ2A<3>705F\ 0BN0G<3>f0Uk0Xp0`u0d<2>x0fy0gx0h<3>t1ms1nr1oq2q<2>u2u<3>b5eY6`T6X<2>E9L9\ AG6FO3KW0Qc0Sc<3>5Zc6`c6aa6c_6eY<3>EcgGciIbl<3>R_v<3>bivelvhnvkqvntvrww<\ 2>yzz<4>nvzgrw`ns } -----------------------------End-------------------------------------------

1 0

MFR_14 Basic Images
by Niekamp 30 Mar '15

30 Mar '15

In a few days I´ll be on a longer trip probably until end of may. Taking this as a reason to post some smaller and 2 bigger updates taking MFR_14 to it´s final state. Probably this is not the last one as I´m just a human beeing and produce errors. ; As some kind of reference there are 15 (!) images in the folder, 1 for each frm and it´s versions. The parfiles have been "cleaned" so they just contain inputs for the relevant image, but all bailout values that are very rarely changed, are there for easy switching, to accomodate the frm. Number 1 is the smallest bailout. Check the input table for quick reference. ; Now all frms can be edited for modification in 3 ways: Color compression, function or both. Inspite of the updates the frm has become smaller to completely avoid memory crashes. ; The warp effect update involves some incompatibilities, Julia Magnet and Lambda which could not be avoided, so keep a backup of earlier versions, just in case. ; The number or the pars equals the number of the participating frm and is also shown as title of an image - last example 56418-xx means manymods-phoenix-manowar- secant-magnet so the title shows the kind of the image. ; Including the pars and the frm in this post as I dont know how long Dropbox can be used, it has changed it´s attitude again from security to forced adware installing. Please copy the frm into your frm folder. ; https://www.dropbox.com/sh/6af1a8dluat6qfy/AABS-JPmz4oGd0UMAomhzURua?dl=0 ; Albrecht ; Any questions are welcome, of course. ; ------------------Start frm--------------------------------------------- mfr_14_2 {; Albrecht Niekamp Mar.29,2015 Gen Update ;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: fn4_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 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 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 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 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 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 px=trunc(da/100000) da=da-px*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) ; 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 d=trunc(da/100) mow=d==2 da=da-d*100 d=trunc(da/10) mag=d==2 d=trunc(da-d*10) fdm=(d==4)+(d==7) fdb=(d==3)+(d==7) If (1<px) d=(trunc(px/10))/9 if (fdm) da=fn4(px-100*d) else da=exp(px-100*d) endif d=px/73,37 px=d+sqr(-da) else px=p1 endif ; 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 mg=mg+(mg==0)*3 ;magnet x=mg else z=pixel ;lambdafn x=((1,0.4)*(|px|<=0)+px) 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 x=x*u p=pp*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 x=x*u p=pp*u else 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 x=x*u p=pp*u else cb=p9 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 x=x*u p=pp*u else cb=p9 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 x=x*u p=pp*u else cb=p9 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 if (fdb) z=exp(z)*fn3(x) else z=exp(z)*sin(x) ;Lambdafn endif 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 z2=z*z 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--Start Par----------------- 1_Secant_Basic { ; Time 02.33.90 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.512448/-4.44089e-016/0.6207443/1/-90/3.88578058618804789e-\ 016 params=0/0/10000.0703575002/10000.0506130602/150048.012810241/0.46048940\ 1111/0.00482000595/256.1000003/512.1000003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000IAH<12>636535424<3>000VO2<15>970860650<3>110zh3<35>A70860750<3\ >110wON<3>_EDUCBO99<2>622DL6<2>351gy2<44>580570450<3>010LKXEDM76BSQO<38>\ 433333322<3>000pOa<3>MAGF6A735eFo<2>A3DJ57<3>612301pUn<35>JBI } 2_Mandel_Basic { ; Time 02.22.04 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=0.315433/0.00308737/0.9205382/1/-90/3.88578058618804789e-016 params=0/0/20000.3259575/10000.0506030602/150064.0128102411/0.4604894011\ 11/0.00482000595/256.1000003/512.1000003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000110110000110<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0\ Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<9>X0a_0dc0h<3>p0w<4>_\ 0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<11>2TG2RE3OC<2>4G54D36F5<16>kk\ ammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<10>110 } 2switch_Dblmandel_Bas { ; Alternative for Single Mandel ; Time 0.01.57.81 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.49234/0.00308737/1.183773/0.9769/180 params=0/0/20000.32595760022/10000.0506030602/150064.0128102411/0.460489\ 401111/0.00482000595/256.1000003/512.1000003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000110110000110<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0\ Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<7>Q0UU0YX0a_0dc0hf0l<\ 2>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D3\ 6F5<16>kkammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<10>\ 110 } 3_Bees_Basic { ; Time 0.00.33.90 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=1.52429/0.00308737/0.341731/1/-90/3.88578058618804789e-016 params=-0.05825983458967864/0.3785210730307932/30000.3259575/40000.05060\ 30602/150064.0128102411/0.460489401111/0.00482000595/256.1000003/512.100\ 0003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000747<3>323212111000VO2<15>970860650<3>110zh3<35>A70860750<3>110\ wON<3>_EDUCBO99<2>622DL6<2>351gy2<38>AF09E08D0<3>580570450<3>010LKXEDM76\ BSQO<38>433333322<3>000pOa<3>MAGF6A735eFo<2>A3DJ57<3>612301pUn<47>848 } 4_Julia_Basic { ; Time 0.03.42.45 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.00582739/-0.0107726/1.04054/1.0215/97.665375882912187/-0.3\ 27264108497931305 params=1.058717612231818/-0.4155095065157018/40000.0703015/10000.0506130\ 033/150064.0128102411/0.46048940111111/0.6230639709148/256.1000003/512.1\ 000003/768.1000003 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=00y0000000000800A00000K00K0gK0g00hL0hK0jK00K00N00H0kH0k00kS0lU00Z\ 00_0la00d00d0000mh00j00000m0000n000n0000000or0xt0xu0uv0ux0sx0sx00x0<3>0y\ 00000y0<2>0y0zy0zy0zy00y00y0zxyzxvzx0ywu0vt0ut0qs0ps0pr00000000r0pq00q00\ q0000000oqz0000000p00qyo00p00pryqtyqwxqyxqy0qxwpvvpvuou0lttjstjq0hotbmsS\ XsQWsNVpJSpIG00000000F0G00DC0DB09A07606500500406400300000x00xv02vww00w0u\ wtuwtt2t02s0vs0vr01qr1q0uq00nq0nq0kqukn0il00j0hjt0it60r6gq50i00h00h00300\ f00S00F00F00E50D00C00C00700000060804805005000800860905900000068z08yp0yqo\ ysoxvoxvo9vo90ox8ow00w0000AtJnrJnpJmoJmnKkiKjfKkdK000000C00E00F00F0000<3\ >000wx0twxswwpvwnvu0uu0ttmtr0tq0spksp0rn0pmkokkojjljjkiij0ij000000000y00\ x00xzyxzxwyvw0tuxouxosvmsulqsj0qiophophm00l00k0hj<3>0hh0gh00f0fe0cd0cY00\ V00U00N00O000<6>000 } 4switch_Manowar_Bas { ; Alternative for Julia ; Time 01.45.08 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.479531/0.00308737/0.9693941/1/47.5000000000000071/-1.23373\ 533611470521e-014 params=-0.443968016602069/0.6559495834223456/40000.32595750001/20000.050\ 6020602/150064.0128102411/0.460489402211/0.00482000595/256.1000003/512.1\ 000003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000txxwyyyzz<3>pwznvzgrw<3>Fch7_d7Xa<3>7JO7FL7CI<3>RCCWCA`B9<3>tA\ 2yA0wA0<12>RA1PA1MA1<3>C92<6>TXAV`BXcC<3>grI<3>TnXQm_MlcIkgEfp9az<3>OJoR\ FlVAiZ5fb0cd7_iFRnNIyb0yj0000yr0yz1yzC<2>yzz<3>iqdeo_alU<3>Lb8<3>KQ8JM8J\ J8<2>H88G44F00<3>SA5VD6YF7`I8dLAgMBhODiQF<3>peBqiAsm9uq8wu7yz5yz4yz3<4>y\ j4yg4yc4<3>yS5yP5yL6yI6yE6vE6sD6<6>uAIu9Ku9M<3>w7Sx7Ux6Wy6Yy5_<3>e5M`5IV\ 4E<2>Z4H<3>O3DM2CJ2A<3>705F0BN0G<3>f0Uk0Xp0`u0d<2>x0fy0gx0h<3>t1ms1nr1oq\ 2q<2>u2u<3>b5eY6`T6X<2>E9L9AG6FO3KW0Qc0Sc<3>5Zc6`c6aa6c_6eY<3>EcgGciIbl<\ 3>R_v<5>hnvkqvntvrww } 5_Mmods_Sinus_Bas { ; Time 04.12.99 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=3.55271e-015/0/0.04266667 params=-0.05825983458967864/0.3785210730307932/50000.0859575/50000.05060\ 30602/150064.0128102411/0.4604894011111/0.00482000595/256.1000003/512.10\ 00003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=00y0hh0gh00f0fe0cd0cY00V00U00N00O000<4>000<2>0000800000800A00000K\ 00K0gK0g00hL0hK0jK00K00N00H0kH0k00kS0lU00Z00_0la00d00d0000mh00j00000m000\ 0n000n0000000or0xt0xu0uv0ux0sx0sx00x0<3>0y00000y0<2>0y0zy0zy0zy00y00y0zx\ yzxvzx0ywu0vt0ut0qs0ps0pr00000000r0pq00q00q0000000oqz0000000p00qyo00p00p\ ryqtyqwxqyxqy0qxwpvvpvuou0lttjstjq0hotbmsSXsQWsNVpJSpIG00000000F0G00DC0D\ B09A07606500500406400300000x00xv02vww00w0uwtuwtt2t02s0vs0vr01qr1q0uq00nq\ 0nq0kqukn0il00j0hjt0it60r6gq50i00h00h00300f00S00F00F00E50D00C00C00700000\ 060804805005000800860905900000068z08yp0yqoysoxvoxvo9vo90ox8ow00w0000AtJn\ rJnpJmoJmnKkiKjfKkdK000000C00E00F00F0000<3>000wx0twxswwpvwnvu0uu0ttmtr0t\ q0spksp0rn0pmkokkojjljjkiij0ij000000000y00x00xzyxzxwyvw0tuxouxosvmsulqsj\ 0qiophophm00l00k0hj<2>0hi } 5a_Mmods_Cosin_Bas { ; Time 0.09.59.57 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=0.332423/0.00308737/0.0511977/1/-90/3.88578058618804789e-016 params=-0.05825983458967864/0.3785210730307932/50000.0759575/50000.05060\ 30602/150064.0128102411/0.460489401111/0.00482000595/256.1000003/512.100\ 0003/512.1000003 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3>z0K<6\ >Z0EV0DR0C<3>A08004000<26>000<4>000<9>X0a_0dc0h<3>p0w<4>_0dX0aU0Y<2>K0NH\ 0JG0NE1R<3>7UX6`Z4h_2oa0wc<11>2TG2RE3OC<2>4G54D36F5<16>kkammcpoe<3>zwm<3\ >mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<6>220220220<3>1100001101101\ 10 } 6_Phoenix_Basic { ; Time 00.03.20.10 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=0.0530235/-0.0039903/0.9981015/1/-90/-1.23373533611470521e-01\ 4 params=0.7046723838007751/0.3785210730307932/60000.07005750001/50000.050\ 6030602/150064.0128102411/0.460489401111/0.00482000595/256.1000003/512.1\ 000003/768.1000003 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000110110000110<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0\ Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<7>Q0UU0YX0a_0dc0hf0l<\ 2>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D3\ 6F5<16>kkammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<10>\ 220 } 6a_PhoenSym_Basic { ; Time 00.06.28.11 ; 1280/1024 ; Symmetrical Phoenix Version ; Real(P1) only reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=0.0530235/-0.0039903/0.9981015/1/-90/-1.23373533611470521e-01\ 4 params=0.2665486617633596/0/60000.0700575/50000.0506030602/150064.012810\ 2411/0.460489401111/0.00482000595/256.1000003/512.1000003/768.1000003 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000110110000110<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0\ Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<9>X0a_0dc0h<3>p0w<4>_\ 0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<11>2TG2RE3OC<2>4G54D36F5<16>kk\ ammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<10>220 } 7_Newton_Basic { ; Time 00.02.48.18 ; 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.000670243/0.00308737/0.7444028/1/-90/3.88578058618804789e-\ 016 params=-0.05825983458967864/0.3785210730307932/70000.3259575/30000.05060\ 30602/150048.012810241/0.460489401111/0.00482000595/256.1000003/512.1000\ 003/768.1000003 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000110<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3\ >z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<9>X0a_0dc0h<3>p0w<4>_0dX0aU0Y<\ 2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<11>2TG2RE3OC<2>4G54D36F5<16>kkammcpoe<3\ >zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<6>220220220<4>000 } 8_lambda_Basic1 { ; Time 0.01.46.33 ; 1280/1024 ; Version1 - Virtual p1 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=sin/exp/exp/exp passes=t center-mag=0.174371/-1.18282/4.345257/1/-90/3.88578058618804789e-016 params=-0.00805688650166326/0.04943998535111546/80000.32598749999/20000.\ 0506030602/150064.0128102411/0.460489401141/0.00482000595/256.1000003/51\ 2.1000003/512.1000003 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000pnX<6>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A0800400\ 0<26>000<4>000<7>Q0UU0YX0a_0dc0hf0l<2>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7\ UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D36F5<16>kkammcpoe<3>zwm<3>mhZjdVfaS<3\ >VMCRI8OE4KA0000<43>000<4>000330<6>220220220<3>110000110<2>000KA4<7>gcOj\ gRmjT<3>zzcwvasrZ } 8a_lambda_Basic2 { ; Time 0.08.09.39 ; 1280/1024 ; Version2_P1-seed reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=0.174371/-1.18282/4.345257/1/-90/3.88578058618804789e-016 params=0.6598864711447493/-0.9096194341868342/80000.32590149999/20000.05\ 06030602/150048.0128102411/0.460489401111/0.00482000595/256.1000003/512.\ 1000003/512.1000003 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000pnX<6>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A0800400\ 0<26>000<4>000<9>X0a_0dc0h<3>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2\ oa0wc<11>2TG2RE3OC<2>4G54D36F5<16>kkammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE\ 4KA0000<43>000<4>000330<6>220220220<3>110000110<2>000KA4<7>gcOjgRmjT<3>z\ zcwvasrZ } 8switch_Magnet_Basic1 { ; Alternative for Lambda ; Time 02.16.98 ; 1280/1024 ; Version1 - Variabel reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=cotanh/exp/exp/sin passes=t center-mag=-0.300855/-0.00563554/0.6131608/1/-90/3.88578058618804789e-01\ 6 params=-0.05825983458967864/0.3785210730307932/80000.6459575/14235.49110\ 30602/152048.0404808041/0.160489401211/384.00482000595/256.1007683001/51\ 2.1007683001/768.1007683001 float=y maxiter=3071 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000220<3>110000110<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9\ >f0Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A08004000<26>000<4>000<7>Q0UU0YX0a_0dc0hf\ 0l<2>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G5\ 4D36F5<16>kkammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<\ 7>220 } 8switch_Magnet_Basic2 { ; Alternative for Lambda ; Time 02.16.98 ; 1280/1024 ; Version2 - P1 seed reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=ident/ident/ident/ident passes=t center-mag=-0.300855/-0.00563554/0.6131608/1/-90/3.88578058618804789e-01\ 6 params=3.117115721943445/0/80000.6459575/14235.4911030602/152048.0404808\ 001/0.160489401211/384.00482000595/256.1007683001/512.1007683001/768.100\ 7683001 float=y maxiter=3071 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000987<7>433333322<3>000pOa<3>MAGF6A735eFo<2>A3DJ57<3>612301pUn<4\ 9>636535424<3>000VO2<15>970860650<3>110zh3<35>A70860750<3>110wON<3>_EDUC\ BO99<2>622DL6<2>351gy2<44>580570450<3>010LKXEDM76BSQO<29>998 } -------------------------------------End Par--------------------------------

1 0

Big Mama Atlantis
by Niekamp 28 Mar '15

28 Mar '15

"Big Mama Atlantis" ; The Holy Grail has turned into a ghost and is even more adorable. Our last stop of course. ; Maybe you liked the trip and didn´t take the the comments too seriously. It´s just a new kind of game to be plaid with Big Mama of all fractal programs. ; https://www.dropbox.com/sh/dur503zom39c3op/AADGNCexo7bMJsdCrDUgLbzka?dl=0 ; Albrecht ; -------------------------------Start Par----------------------------------- 56418-82 { ; Big Mama Atlantis ; Time 0.04.04.58 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=conj/atan/asinh/cotanh passes=t center-mag=+0.00000005956872296/+0.00010616713532360/75250.12 params=1.926337473677786/0.5196722312082278/56418.06595706656/51243.4911\ 030602/150048.0128102441/1212.460489402211/384.00482000595/128.200128300\ 1/256.2000543001/512.1000123001 float=y maxiter=3072 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000mhZ<3>`UKYQGVMC<2>KA0000<43>000<4>000330<6>220220220<3>1100001\ 10<2>000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<3>z0K<6>Z0EV\ 0DR0C<3>A08004000<26>000<4>000<7>Q0UU0YX0a_0dc0hf0l<2>p0w<4>_0dX0aU0Y<2>\ K0NH0JG0NE1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D36F5<16>kkammcpoe<3>z\ wm<2>plb } --------------------------------------End----------------------------------

1 0

Atlantis Flight Control
by Niekamp 27 Mar '15

27 Mar '15

"Atlantis Flight Control" ; Even a visit to the flight control belongs to our schedule. Just in case you dont know: The island has risen from the sea and now travels through space. ; https://www.dropbox.com/sh/dur503zom39c3op/AADGNCexo7bMJsdCrDUgLbzka?dl=0 ; Albrecht ; --------------------------------Start Par-------------------------------- 56418-65 { ; Atlantis Flight Control ; Time 0.25.38.63 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=conj/atan/asinh/cotanh passes=t center-mag=0.00659043/0.897882/3.438807/0.5508/-1/5.53109483267233237 params=1.926337473677786/0.5196722312082278/56418.06595706656/51243.4911\ 030602/150048.0128102441/1212.460489402211/384.00482000595/128.200128300\ 1/256.2000543001/512.1000123001 float=y maxiter=3072 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000mjU<3>`WKXSIUOF<3>H85000A00<9>f0Ci0Dl0F<3>z0K<6>Z0EV0DR0C<3>A0\ 8004000<26>000<4>000<7>Q0UU0YX0a_0dc0hf0l<2>p0w<4>_0dX0aU0Y<2>K0NH0JG0NE\ 1R<3>7UX6`Z4h_2oa0wc<10>2WI2TG2RE<3>4G54D36F5<16>kkammcpoe<3>zwm<3>mhZjd\ VfaS<3>VMCRI8OE4KA0000<43>000<4>000330<6>220220220<3>110000110<2>000KA4<\ 7>gcOjgRmjT<3>zzc<2>pnX } ---------------------------------End----------------------------------------

1 0

Atlantis Research Centre
by Niekamp 26 Mar '15

26 Mar '15

"Atlantis Research Centre" ; It´s a pity that all results are lost. Our third stop of the Atlantis Tour. All stops are deep views into the parent. ; https://www.dropbox.com/sh/dur503zom39c3op/AADGNCexo7bMJsdCrDUgLbzka?dl=0 ; Albrecht ; --------------------------------Start Par---------------------------------- 56418-30 { ; Atlantis Research Centre ; Time 0.00.49.44 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=sin/exp/exp/sin passes=t center-mag=-9.11493e-013/9724.14/0.7246377 params=-0.9899594103823969/0.4572283089693899/56418.06595700001/14235.49\ 11030602/152048.0404808025/384.1604894022/384.00482000595/128.1007683001\ /256.1007683001/512.1007683001 float=y maxiter=3072 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000222<2>000pOa<3>MAGF6A735eFo<2>A3DJ57<3>612301pUn<49>636535424<\ 3>000VO2<15>970860650<3>110zh3<35>A70860750<3>110wON<3>_EDUCBO99<2>622DL\ 6<2>351gy2<44>580570450<3>010LKXEDM76BSQO<40>322 } ----------------------------------End--------------------------------------

1 0

Atlantis Gardens
by Niekamp 25 Mar '15

25 Mar '15

"Atlantis Gardens" ; This is the second stop of our sightseeing tour. It´s recreative and relaxing to spend a day in such a beautiful enironment. ; https://www.dropbox.com/sh/dur503zom39c3op/AADGNCexo7bMJsdCrDUgLbzka?dl=0 ; Albrecht ; -----------------------------Start Par----------------------------------- 56418-15 { ; Atlantis Gardens ; Time 0.04.34.46 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=sin/exp/exp/sin passes=t center-mag=+0.29762668007963770/-0.01318929490009096/4848.414/1/107.9999\ 99999993562/6.84494128044832451e-012 params=-0.9899594103823969/0.4572283089693899/56418.06595750001/51243.49\ 11030602/152048.0404808025/384.1604894022/384.00482000595/128.1007683001\ /256.1007683001/512.1007683001 float=y maxiter=3072 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000ICF<3>aB9fB7kB6<2>zA0<13>SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>U\ nXRm_NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce7_jFRoNIzb0zj0000zr0zz1zzC<2>zzz<3>j\ qdfo_blU<3>Mb8<3>LQ8KM8KJ8<2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBr\ iAtm9vq8xu7zz5zz4zz3<4>zj4zg4zc4<3>zS5zP5zL6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x\ 7Sy7Uy6Wz6Yz5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2A<3>805G0BO0G<3>g0Ul0Xq0`v0d<\ 2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7\ `c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>G\ ch8_d8Xa<5>8CIDCH } ------------------------------End------------------------------------------

1 0

Exploding Colors
by Niekamp 24 Mar '15

24 Mar '15

Every programmer knows: You must never state that the software is finalized - that´s the safest way to face bugs afterwards. Jonathan, if he is reading will confirm rhis is a fact. Yesterday, half an hour after doing so - BOING! memory crash. It needed some hours meditating - the best time is early in the morning still in bed - to find a solution. A block of code including some variables and speedups of the mainloop could be replaced by more effective code, so no more memory problems (hopefully). The image of yesterday´s type, "exploded colors" is extra special as it covers the complete spectrum of any SG map, so colorcycling only produces some kind of flicker. The difference of the otherwise - in this context - similar maps is a different order and organization. In the folder you find some variations of this iomage. Including the frm again for easy saving. ; https://www.dropbox.com/sh/vdey32zqf8pb3eh/AAAvQgRVpl-hunO0jcuxvf5Ja?dl=0 ; Albrecht ; -----------------------------------Start Par----------------------------- Lambd-13 { ; Exploded Colors III ; LambdaFN - Solo ; Time 0.15.08.97 Reso 1280/1024 ; Memory Crash Update reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=exp/exp/sqrt/sin passes=t center-mag=2.22045e-016/-1.04895/0.7183908/1/22.4999999999999964/3.88578\ 058618804789e-016 params=0.2472764976958525/-0.04074480422376174/80000.32590150023/20000.0\ 506030602/150148.0092759982/384.160489401131/384.00482000595/256.1007683\ /512.1007683001/512.1007683001 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000zr0zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8KJ8<2>I88H44G00<3>TA\ 5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu7zz5zz4zz3<4>zj4zg4zc4<3>zS5zP5zL\ 6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x7Sy7Uy6Wz6Yz5_<3>f5Ma5IW4E<2>_4H<3>P3DN2CK2\ A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2u<3>c5eZ6`U6\ X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlq\ votvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8CI<4>XCAaB9fB7<3>zA0<13>S\ A1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXQm`NlcJkgFfpAaz<3>PKoSFlWAi_5fc0ce\ 7_jFRoNIzb0zj0000 } frm:mfr_14_2 {; Albrecht Niekamp Mar.23,2015 Memory crash upd ;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: fn4_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 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 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 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 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 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 px=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<px) d=(trunc(px/10))/9 if (fdm) da=fn4(px-100*d) else da=exp(px-100*d) endif d=px/73,37 px=d+sqr(-da) else px=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 ; 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 d=trunc(da/100) mow=d==2 da=da-d*100 d=trunc(da/10) mag=d==2 d=trunc(da-d*10) fdm=(d==4)+(d==7) fdb=(d==3)+(d==7) if (mag>mg) mg=real(p1) endif ; 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)*(|px|<=0)+px) 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=px*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=px*u p=pp*u x=x*u else c=px 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=px*u p=pp*u x=x*u else cb=p9 c=px 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=px*u p=pp*u x=x*u else cb=p9 c=px 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=px*u p=pp*u x=x*u else cb=p9 c=px 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 if (fdb) z=exp(z)*fn3(x) else z=exp(z)*sin(x) ;Lambdafn endif 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---------------------------------

2 1