March 2015 - Fractint - mailman.xmission.com

Atlantis
by Niekamp 24 Mar '15

24 Mar '15

*Early Morning in Atlantis* ; This is a peaceful one with lots of athmosphere. ; Albrecht ; https://www.dropbox.com/sh/dur503zom39c3op/AADGNCexo7bMJsdCrDUgLbzka?dl=0 ; ---------------------------------Start Par-------------------------------- 56418-07 { ; ManyMods_phoenix_manowar_secant_magnet ; Early Morning in Atlantis ; Time 0.03.52.99 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=sin/exp/exp/sin passes=t center-mag=1.77636e-015/4.2197/3.253333/1/180 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=000P7TK8PF9LAAG<2>0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>ci\ vflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8CI<3>SCCXCAaB9<3\ >uA2zA0xA0<12>SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXRm_NlcJkgFfpAaz<3>P\ JoSFlWAi_5fc0ce7_jFRoNIzb0zj0000zr0zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8K\ M8KJ8<2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu7zz5zz4zz3<\ 4>zj4zg4zc4<3>zS5zP5zL6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x7Sy7Uy6Wz6Yz5_<3>f5Ma\ 5IW4E<2>_4H<3>P3DN2CK2A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns\ 1or2q<2>v2u<5>U6X } ---------------------------------End---------------------------------------

1 0

More on DOSBOX+FRACTINT Program
by Knute Myhrvold 24 Mar '15

24 Mar '15

Some fine-tuning you can do if you wish with Dosbox+Fractint: If you are in FULLSCREEN and want to change to a smaller window -- Press "Alt+Enter" which will change it to a Window, probably too large. So then in the Dosbox menu at the top-left click "Video>Resolution>Window" and click "Original"... then in Fractint set your resolution (Mode) to the window size you want. Then after working with your fractal in the lower, faster mode you can change it back to SF10, or even higher modes with more than 256 colors (32k, 64k or even 16m colors, at least in smaller windows like 800x600, and if your adapter can handle them). The second fine-tune you can do if you want a BEEP when Fractint finishes do this: In your DOSBox Folder find "dosbox.conf" and open it as text. Make the following 2 changes: Scroll down about 1/3 to " nosound=true" and change it to nosound=false and Scroll down about 2/3 to "pcspeaker=false" and change it to pcspeaker=true The result will not be the old beeps from your PC speaker, but one sound, like a "tap" from your desktop speakers when Fractint finishes its final pass. ******************************* I have been corresponding with kolano, the author, and he gave me the abovementioned tips. He also says he is working on an update to the program. ****************************** I am still very happy that I've finally been able to use Fractint and in many modes. But yes, I think it's slow... yet "slow" is better than nothing. I am no programmer so I wish that hoffentlich someone like you Niekamp, could work with kolano to improve his program. Slow is better than nothing aber schnell ist ja besser! --- This email has been checked for viruses by Avast antivirus software. http://www.avast.com

1 0

A New Star
by Niekamp 24 Mar '15

24 Mar '15

Yesterday´s image was only some kind of a demo. Now here´s the first "real" one, maybe you´ll like it. ; https://www.dropbox.com/sh/9j90xwqicomrjrm/AADELPOEArYva-16yuq0PdITa?dl=0 ; Albrecht ; -----------------------------Start Par----------------------------------- 10008-01 { ; A New Star ; Time 0.03.14.11 Reso 1280x1024 ; Secant - Lambda ; First Lambda Mix reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=sin/exp/exp/exp passes=t center-mag=0.00472926/0.373204/0.1110818/1/-90/3.88578058618804789e-016 params=0.7947172460097048/-0.5354319895016327/10008.32130150001/25234.05\ 06030602/152048.0094808048/384.160489401141/384.00482000595/256.1007683/\ 512.1007683001/512.1000003001 float=y maxiter=2048 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000110110000KA4<7>gcOjgRmjT<3>zzc<9>UOFRKDOGA<3>A00<9>f0Ci0Dl0F<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>4G54D36F5<16>kk\ ammcpoe<3>zwm<3>mhZjdVfaS<3>VMCRI8OE4KA0000<43>000<4>000330<6>220220220<\ 3>110000110 } -------------------------------End------------------------------------------

12 14

Re: [Fractint] A Happy New Discovery
by Hal Lane 24 Mar '15

24 Mar '15

--------- schrieb Albrecht: ------------------------- > Todays image [calculated with "kolano" of DOSBOX+FRACTINT] needs > almost an hour, 1280/1024, > compared to 9 min with XP dos and > 3 min with a bootstick [running 'native' DOS running directly on the > 'bare' machine.] Thanks for those calculation time comparisons, Albrecht! Am I correct in assuming that the "XP dos" above is the DOS provided within/installed with WinXP? <===<< Also, what was the "Idle sensitivity" setting of your Fractint 'shortcut's Properties when you calculated the image with WinXP DOS? <===<< Right click: Fractint.exe's 'shortcut' > Properties > Misc tab > Idle sensitivity I have two Fractint.exe 'shortcuts': One has "Idle sensitivity" set to "Low" to get DOS Fractint to use 100% of the WinXP CPU; The other has "Idle sensitivity" "High" to get DOS Fractint to use ~50% of the WinXP CPU. What was Fractint.exe's "Idle sensitivity" when it took 9 min to calc. your image in WinXP DOS? <===< Note: The 'shortcuts' I'm referring to above are the ones that are automatically generated the first time that a DOS program is run. I think that these used to be called .PIF files -- Program Information Files(?) - Hal Lane (\__/) ######################## (='.'=) # hallane(a)earthlink.net (")_(") ######################## -----Original Message----- From: Fractint [mailto:fractint-bounces@mailman.xmission.com] On Behalf Of Niekamp Sent: Monday, March 23, 2015 6:16 PM To: Fractint and General Fractals Discussion Subject: Re: [Fractint] A Happy New Discovery Am 23.03.2015 um 19:50 schrieb Knute Myhrvold: > I am running it on my PC on WindowsXP and it runs perfectly, full-screen, in SF10 or any of the video modes I've tried so far. Thank You from me too. Now I can run hundreds of 1600/1200 images again although the Nvidia card does not support it as it is not available from my 1900/1080 flatscreen TV. Fullscreen! The speed is not so good, but maybe improved using the config file. Todays image needs almost an hour, 1280/1024, compared to 9 min with XP dos and 3 min with a bootstick, which is still the simplest and fastest solution. Albrecht _______________________________________________ Fractint mailing list Fractint(a)mailman.xmission.com https://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint --- This email has been checked for viruses by Avast antivirus software. http://www.avast.com

2 1

A Happy New Discovery
by Knute Myhrvold 23 Mar '15

23 Mar '15

For those of you who, like me, have been struggling trying to get DOS FractInt to work I have found what I believe is THE solution: The special make by "kolano" of DOSBOX+FRACTINT downloadable here: http://eyecandy.gnugget.net/Fractint/ I am running it on my PC on WindowsXP and it runs perfectly, full-screen, in SF10 or any of the video modes I've tried so far. DOSBOX is an "emulator"... it is a Program which will run in Windows like any other Program and it does not harm or disturb your Windows OS. Earlier, I had installed Dosbox and then installed FractintDOS into it, and Fractint ran well. But this special make by kolano of Dosbox+Fractint(included) is much better. During the past couple months I think I've tried everything else to get Fractint to run properly: I installed VirtualBox and then VMware, both with FreeDOS and Windows98 installed as their Guests, and then with Fractint installed into these Guests. In all these instances Fractint could be made to "work", at least feebly, but never properly. I've also tried to install other versions of DOS (like MS DOS 7.1 - what's in Win9x) virtually, but without success. I also got an old PC (Dell Optiplex 740) with the intention of installing Windows98 as its main OS... but learned that is impossible because the hardware in that PC is "too modern" (not IDE), and Win9x can't see SATA and can't use NTFS. I even repartitioned/reformatted half the drive in that old Optiplex to FAT32 but that didn't help, either. So you can understand why I'm enthused about this DOSBOX+FRACTINT! --- This email has been checked for viruses by Avast antivirus software. http://www.avast.com

3 2

Re: [Fractint] I am Curious....
by Jason Hine 23 Mar '15

23 Mar '15

I have a Facebook account, but I check it only sporadically and post there rarely. - Jason H

1 0

Curious - Out of the Box
by Niekamp 22 Mar '15

22 Mar '15

Re facebook, I´m sharing Jack´s and David´s attitude. Don´t even have a smartphone, and never will, am security minded and like my privacy. And I hate being interrupted when I´m diving into creativity. About my images: Am a bit tired of all those clean and symmetrical pictures and think it´s time for a temporary (?) change. MFR can do anything you want and the Lambda frm is suitable for new "adventures". You just choose a basic function, let the evolution mode find something interesting. Every function has characteristical details. Then find a zoom and the colors. Finally the complexity can be chosen by increasing or decreasing the bailout. Voila! That´s how today´s image came about and I left it unchanged as I think it´s interesting enough. Your opinion? I like Tony´s expression and used it as a title. ; https://www.dropbox.com/sh/yk9l9k0hkfwod7t/AAAqWC46Qb9PQvzfF5UxDvSJa?dl=0 ; Albrecht ; ------------------------------------Start Par---------------------------- Lambd_04 { ; Out of the Box ; Lambda - Sqrt Function ; Time 0.10.37.96 Reso 1280/1024 reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=exp/exp/sqrt/sin passes=t center-mag=0/0/0.6666667 params=0.2481521042512283/-0.04168218024231699/80000.32590150023/20000.0\ 506030602/150148.0084759982/384.160489401131/384.00482000595/256.1007683\ /512.1007683001/512.1007683001 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 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<3>SCCXCAaB9<3>uA2zA0xA\ 0<12>SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXQm`NlcJkgFfpAaz<3>PKoSFlWAi_\ 5fc0ce7_jFRoNIzb0zj0000 } -----------------------------------------End-------------------------------

1 0

FaceBook
by JackOfTradeZ＠comcast.net 22 Mar '15

22 Mar '15

. Barry Smith expressed my sentiments exactly; as much as I am a techie, I never bothered with FB or TWIT; I don't even have a smart phone! I am more concerned with privacy and security, and I dont need a lot of nonsense chatter in my life. However, other people with my name have these accounts and as I am a professional I need to keep my online profile "clean". [ BTW, any of you ever google yourself? may be surprised! ] SO I got myself on FB and twit last year just to fill in the blank and keep it clean. I do play with FB on occasion, but I dont bother tweeting the world every move I make or thing I do. https://www.facebook.com/lloyd.garrick.3 .

1 0

Re: [Fractint] I am Curious....
by David Jones 22 Mar '15

22 Mar '15

I don't do Facebook; it's the Russian Mafia's single most successful money-laundering operation. I am on Twitter, though. David W. Jones gnome(a)hawaii.rr.com authenticity, honesty, community http://dancingtreefrog.com On Mar 21, 2015 9:16 PM, Barry Smith <barrys(a)grapevine.net.au> wrote: > > Interesting question, Paul > > I have been using computers since 1958, and using e-mail (initially on > bulletin boards) and also using the Internet about ten years before the > WWW or browsers appeared. > > But I have NEVER felt the need to use Facebook or Twitter: ordinary > e-mail and the web meet all my needs. > > In addition I have NEVER owned or wanted a mobile phone, let alone a > smart phone. As I have been legally blind for about six years, I don't > like hand-held devices. > > I think PNL has got us off topic. > > Cheers, > > Paul N. Lee wrote: > > > > How many people in this Mailing List are on Facebook ?? > > > > And for the record, this is my Facebook location: > > https://www.Facebook.com/Nahee.Enterprises > > > > > > Sincerely, > > P.N.L. > > > > _______________________________________________ > > Fractint mailing list > > Fractint(a)mailman.xmission.com > > https://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint > > > Barry W Smith > > 16/21 Wiseman Street Macquarie ACT 2614, Australia > > Tel. +61 2 6251 2119 > > e-mail: barrys(a)grapevine.net.au > > _______________________________________________ > Fractint mailing list > Fractint(a)mailman.xmission.com > https://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint

1 0

Colors in XS
by Niekamp 22 Mar '15

22 Mar '15

Don´t Know if you´ll like this one but definetely it´s interesting and once again a new type. Managed to preserve the full Lambda functionality with this update inspie of default functions and just a minimum of additional code. Including the frm version - down compatible as always - in the par. Jack can you generate the latest images again to be sure they are correct amd no memory problems turn up? Thank you! Jonathan please update your data base, dont think any more updates will be necessary. ; https://www.dropbox.com/sh/0p2s2jzv5d40k3o/AADxQN1x0-O3tGNjFcS967qaa?dl=0 ; Albrecht ; --------------------------start par-------------------------------------- Lambd_22 { ; Colors in XS ; LambdaFn Solo ; Time 0.18.53.83 Reso 1280/1024 ; Full Lambda functionality with default functions reset=2004 type=formula formulafile=mfr_14.frm formulaname=mfr_14_2 function=exp/exp/exp/sin passes=t center-mag=0.46742/-0.273285/1.724763/1/-105.000000000000028/-2.50563458\ 870090017e-014 params=0.2615497299111911/-0.8593951231421858/80000.32590150023/25234.05\ 06030602/150148.0404808048/384.160489401131/384.00482000595/256.1007683/\ 512.1007683001/512.1007683001 float=y maxiter=1024 inside=maxiter periodicity=0 rseed=-2436 sound=off colors=000H29<2>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1ns1or2q<2>v2\ u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`c7aa7c_7eY<3>FcgHciJbl<3>S_v<3\ >civflvinvlqvotvsww<2>zzz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8CI<3>SCCXCAaB\ 9<3>uA2zA0xA0<12>SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXQm`NlcJkgFfpAaz<\ 3>PKoSFlWAi_5fc0ce7_jFRoNIzb0zj0000zr0zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>L\ Q8KM8KJ8<2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9vq8xu7zz5zz4z\ z3<4>zj4zg4zc4<3>zS5zP5zL6zI6zE6wE6tD6<6>vAIv9Kv9M<3>x7Sy7Uy6Wz6Yz5_<3>f\ 5Ma5IW4E<2>_4H<5>K2A } frm:mfr_14_2 {; Albrecht Niekamp Mar.21,2015 Lambda fn-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 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 if (fdm) da=fn4(sp-100*d) else da=exp(sp-100*d) endif 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 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) 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 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 par-------------------------------------

1 0