May 2003 - Fractint - mailman.xmission.com

[Fractint] BUG - Float=y Calculation Error! (all MandelbrotMix images are reflections!)
by Jim White 27 May '03

27 May '03

Greetings, everyone I've caught Fractint red-handed getting its sums wrong! The proof is simple but irresistible. It turns out that Jim Muth's excellent image, Fractal_Medallion, is in fact a reflected image of the reflection of his window. In fact all images using MandelbrotMix4 are accidental reflections! In a nutshell, Fracint sometimes gets the imaginary sign wrong. Where you think you are getting -5 ^ x, you might actualy be getting conj(-5 ^ x). A little scary, yes? I've provided a detailed account of my investigations below: 1. Bug Description 2. Bug Demonstration 3. Bug Analysis 4. Bug Impact 5. Bug demo formula/par I hope you all find it interesting, and I look forward to feedback. Regards Jim White =================================================================== 1. Bug Description In the formula, MandelbrotMix4, the initial value of Z is set using this expression z = (-a*b*g*h)^j Now, in Jim Muth's Fractal_Medallion (FOTD V3) the parameters are a = 1, b = -5, g = 1, h = -1, j = 1/6 The initial value of Z should therefore be z = -5 ^ (1/6) The correct answer is z = (1.13246720041135087, .653830243005915296) But Fracint is actually returning the conjugate! z = (1.13246720041135087, -.653830243005915296) 2. Bug Demonstration The formula CONJ-BUG-1 (attached) draws the X and Y axes, and also draws "axis lines" through 2 points, z and z2, where z and z2 are the result of a fixed calculation. It sets a, b, g, h and j as above, then calculates z = (-a*b*g*h)^j z2 = b^j Given the parameter values, clearly -a*g*h is 1, so z and z2 should be identical. The display has a grey background, and the axis lines are displayed as follows: (0,0) in black z in yellow z2 in dark red Where z and z2 correspond, the axis lines are blended. The result should be a pair of blended red/yellow lines through z = (1.13246720041135087, .653830243005915296) Run the parameter set CONJ-OK to verify this result. It specifies float=n In CONJ-BUG, however, float=y and the horizontal red and yellow lines are separated. The yellow line (imag(z)) has been reflected! 3. Bug Analysis a. Fractint appears to maintain a separate sign-bit for float values, but suffers from the rather disturbing condition that (n,0) and (n,-0) are two different numbers! This can be verified by substituting j = 1/6 z = -5^j z2 = conj(-5)^j into the CONJ-BUG formula. With float=y you get 2 different answers. b. The conditions under which a value (x,0) gets its sign-bit conjugated appear to be related to the use of the unary "-" operator. Try the CONJ-BUG formula with j = 1/6 b = -5, z = b^j b = 5, z2 = (-b)^j Here Z is correct, but Z2 is conjugated. c. !!!!! Late Extra !!!!! it's getting weird! NOW GET THIS! Simply changing the order of the 2 statements above affects the result! So if we have j = 1/6 b = 5, z2 = (-b)^j b = -5, z = b^j We get Z and Z2 in agreement, BUT both are wrongly conjugated!!!!! 4. Bug Impact Well, I've spent so bloody long just identifying this bug that I haven't had much time to consider the ramifications. I only stumbled across it because when I ran Jim Muth's Fractal Medallion on my home-grown Windows-based Fractint emulator - I got nothing at all, just a solid block of colour 9. I spent several days assuming my program was at fault until I discovered the "reflection" syndrome, and several more days before I was convinced my program was right, and Fractint was wrong. The MandelbrotMix4 formula just happens to be one that delivers a reflected image if the initial Z value is replaced with conj(Z), and just happens to have a particular expression for this initial value that is vulnerable to the "CONJ bug". There may of course be other formulae that are infected in more subtle ways. The fact that conj(x,0) and (x,0) can differ in a calculation is disturbing, but the most worrying aspect of all is that final test I ran (3.c above) which demonstrates that the occurrence of conjugation errors is by no means predictable, and can even be affected by the order of otherwise independent statements! 5. The Demo Formula/Params CONJ-BUG {; Dr Memory's CONJ bug demo ; ; plot axis lines ; (0,0) in colour 8 (black) ; z in colour 14 (yellow) ; z2 in colour 4 (dark red) ; all other points in colour 7 (grey) ; ; z and z2 axes plots are interlaced, so if z and z2 agree, ; the answer will be shown with mixed red/yellow axes. ; Any disagreement will be indicated by solid red/yellow lines ; ; Calculate Z and Z2 here! a = 1, b = -5, g = 1, h = -1, j = 1/6 z = (-a*b*g*h)^j ; the expression in question ; -a*g*h = 1, so z = b^j [i.e. -5 ^ (1/6)] z2 = b^j ; correct answer ; Axis-plot code - Set colour values according to pixel co-ordinates axis = real(p1) ; line thickness (in window co-ords) colour = 7 ; default bgnd colour ; always plot (0,0) in black (8) x = real(pixel), y = imag(pixel) if (abs(x) < axis) colour = 8 elseif (abs(y) < axis) colour = 8 endif ; plot z in yellow (14) if (abs(x - real(z)) < axis) colour = 14 elseif (abs(y - imag(z)) < axis) colour = 14 endif ; plot z2 in dark red (4) (blend with yellow if z/z2 agree) colour2 = 4 if (colour == 14) if (whitesq) colour2 = 14 endif endif if (abs(x - real(z2)) < axis) colour = colour2 elseif (abs(y - imag(z2)) < axis) colour = colour2 endif loopn = 0 : loopn = loopn + 1 loopn < colour } CONJ-BUG { ; CONJ bug demo PAR type=formula formulafile=??? formulaname=CONJ-BUG passes=1 float=y corners=-2.25/1.75/-1.75/1.25 params=0.01/0 maxiter=16 inside=0 symmetry=none map=default.map } CONJ-OK { ; CONJ bug avoided, float=n type=formula formulafile=??? formulaname=CONJ-BUG passes=1 float=n corners=-2.25/1.75/-1.75/1.25 params=0.01/0 maxiter=16 inside=0 symmetry=none map=default.map } __________________________________________________ It's Samaritans' Week. Help Samaritans help others. Call 08709 000032 to give or donate online now at http://www.samaritans.org/support/donations.shtm

2 1

1600x1200 bug
by Lee H. Skinner 26 May '03

26 May '03

In the past few days, I've run into a bug over a dozen times while exploring with the multifractal formula. I've also recently upgraded to patch level 5 of Fractint version 2002. It appears most often at 1600x1200 resolution, occasionally other resolutions. At 1600x1200, the following par illustrates the bug. It only does 2 or 3 lines at passes=1, and barely gets started at passes=t before it stops generating the picture. A showdot continues to move, but nothing else is generated. This is similar to a save and restore gif bug discovered several years ago, but no save and restore is necessary this time. It may have something to do with a buffer size since it occurs much more frequently with higher resolutions. Bug_Test { ; ; t= 0:01:28.42 on a P4 2Gh at ; 1600x1200 Image Copyright 2003 ; by Lee H. Skinner ver=2002 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=0from_ml.frm formulaname=multifractal ismand=n function=exp/exp/exp passes=t center-mag=-6.52603785028786300/-0.01400828975779934/\ 404.3077/1/77.5000000000016342/-4.47783476964502825e-\ 012 params=-0.1740997192297128/-0.2996141087069308/384.00\ 004/256.1106/2048.00016/768.00009/768.01536/256.01025\ /28974.5/12 float=y maxiter=2048 inside=maxiter outside=tdis logmap=yes symmetry=none periodicity=0 rseed=-2436 cyclerange=2/255 colors=000000zz1zzC<2>zzz<3>jqdfo_blU<3>Mb8<3>LQ8KM8K\ J8<2>I88H44G00<3>TA5WD6ZF7aI8eLAhMBiODjQF<3>qeBriAtm9\ vq8xu7zz5zz4zz3<4>zj4zg4zc4<3>zS5zP5zL6zI6zE6wE6tD6<6\ >vAIv9Kv9M<3>x7Sy7Uy6Wz6Yz5_<3>f5Ma5IW4E<2>_4H<3>P3DN\ 2CK2A<3>805G0BO0G<3>g0Ul0Xq0`v0d<2>y0fz0gy0h<3>u1mt1n\ s1or2q<2>v2u<3>c5eZ6`U6X<2>F9LAAG7FO4KW0Qc<3>5Xc6Zc7`\ c7aa7c_7eY<3>FcgHciJbl<3>S_v<3>civflvinvlqvotvsww<2>z\ zz<3>rwzovzhsw<3>Gch8_d8Xa<3>8JP8FL8CI<3>SCCXCAaB9<3>\ uA2zA0xA0<12>SA1QA1NA1<3>D92<6>UXAW`BYcC<3>hrI<3>UnXR\ m_NlcJkgFfpAaz<3>PJoSFlWAi_5fc0ce7_jFRoNIzb0zj0zr0 } -------------------------------start-frm----------------------------------- FRM:Multifractal { ;Albrecht Niekamp May, 03 ;only integers as first input, second input 5 digits to the right ;real(p2) factor1,border1 ;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits ;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison) ;imag(p3) factor2,border2 ;real(p4) maxiter2,factor3 ;imag(p4) border3,maxiter3 ;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2 ; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1 ; optional basic frm2: out-nbr 1digit in-nbr 1digit 3_both +5_shape ;imag(p5) 1digit : 1_iter1reset 2_iter2reset 3_both +5_shape effect ; 2digits : many_mods multipl. shutoff +10_in/out1 +20_inout2 +30_both ; optional input2: frequency_2digits level_2digits amplitude_2digits ; d=real(p2) fac1=trunc(d) b1=(d-fac1)*100000 ; d=imag(p2) da=(d<0) if (da) d=-d endif mi1=trunc(d) d=round((d-mi1)*10000) p6=trunc(d/100)/10 d=d-1000*p6 if (da) p6=-p6 endif p7=d/10 ; d=real(p3) ba=trunc(d) mm=round((d-ba)*100000) ; d=imag(p3) fac2=trunc(d) b2=(d-fac2)*100000 ; d=real(p4) mi2=trunc(d) fac3=round((d-mi2)*100000) ; d=imag(p4) b3=trunc(d) mi3=round((d-b3)*100000) ; da=real(p5) t=(da<0) if (t) da=-da endif start=2-t dd=trunc(da) if (dd<5) start=0 endif vb=(dd==3)+(dd==4) da=round((da-dd)*100) d=trunc(dd/10000) vb=(d==3)+(d==4)+vb dd=dd-d*10000 d=trunc(dd/1000) or1=(d>5) d=d-5*or1 vv1=(d==3) vv2=(d==4) dd1=(d==2)+(d==4) dd=dd-d*1000 d=trunc(dd/100) or2=(d>5) d=d-5*or2 vv3=(d==3) vv4=(d==4) dd2=(d==2)+(d==4) dd=dd-d*100 d=trunc(dd/10) inr1=(d>5) d=d-5*inr1 v1=(d==3) v2=(d==4) d1=(d==2)+(d==4) dd=dd-d*10 d=trunc(dd) inr2=(d>5) d=d-5*inr2 v3=(d==3) v4=(d==4) d2=(d==2)+(d==4) d=trunc(da/10) ab=(d>=5) d=d-5*ab da=da-10*d bb1=(d==1) bb2=(d==2) d=da ab=(d>=5) d=d-5*ab ab1=(d==1) ab2=(d==2) ; d=imag(p5) dd=trunc(d) d=round((d-dd)*1000000) le=(d>10000) da=trunc(dd/10) so1=((da==1)+(da==3)==0) so2=((da==2)+(da==3)==0) dd=dd-10*da wo=(dd>=5) dd=dd-5*wo ir1=(dd==1)+(dd==3) ir2=(dd==2)+(dd==3) if (le) freq=round((trunc(d/10000))*10) ;frequency_lake effect by S.Gallet d=d-freq*1000 level=(trunc(d/100))/100 ;water level d=d-level*10000 ampl=d/100 ;amplitude of the wave angle=real(rotskew*pi/180) t=exp(-flip(angle)) h=1/real(magxmag) q=h/0.75*imag(magxmag) tanskew=tan(imag(rotskew*pi/180)) w=2*q*t v=2*h*(tanskew+flip(1))*t z3rd=center+(-q-h*tanskew-flip(h))*t z=pixel-z3rd s=imag(conj(w)*z)/imag(conj(w)*v) if (s<=level) da=level-s z=z+2*da*(1+ampl*sin(freq*da^0.2))*v endif z=z+z3rd endif if (ismand) if (vb) c=0.4*log(sqr(pixel^mm)) z=z*le else c=z*le+pixel*(le==0) z=0 endif else c=p1 z=z*le+pixel*(le==0) endif t=0 d3=(ismand==0) u=d3 : if (vb) if (d3) z=(z*z-real(c))^(z*u+imag(c)) ;frm: Albrecht Niekamp else z2=fn1(z)+c ;frm: Many_mods Linda Allison sqz2=cos(z2) z=c*(1-sqz2)/(1+sqz2) endif else if (ab) z=z*z+c+c*c-p7 ;frm: Puskás István else z2=z*z ;frm: Puskás István modified z=z2*z2+(p6+u)*z2+c-p1*(d3==0) endif bo=|z| If (wo) t=t+1 if ((t<mi1)+(bo>b1)) u=2*(fn1(t/fac1)) if (ismand) z=z*u if (vb) c=0.4*log(sqr(pixel^mm)) else c=z*le+pixel*(le==0) endif else z=z*le+pixel*(le==0) c=p1*u endif wo=0 if (ir1) t=0 endif endif elseif (start) t=t+1 if (start==2) if (bo>b2) u=2*(fn2(t/fac2)) rs=or1 ab=bb1 if (dd1) if (rs) z=pixel endif c=p1*u vb=vv2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=1 endif elseif (t>mi2) u=2*(fn2(t/fac2)) rs=inr1 ab=ab1 if (d1) if (rs) z=pixel endif c=p1*u vb=v2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=1 if (ir2) t=0 endif endif elseif (bo>b3) u=2*(fn3(t/fac3)) ab=bb2 rs=or2 if (dd2) if (rs) z=pixel endif c=p1*u vb=vv4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=0 endif elseif (t>mi3) u=2*(fn3(t/fac3)) ab=ab2 rs=inr2 if (d2) if (rs) z=pixel endif c=p1*u vb=v4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=0 endif endif bo<=ba } -------------------------------------------end-----------------------------

2 4

FOTD 26-05-03 (Evaporation [7])
by Jim Muth 26 May '03

26 May '03

FOTD -- May 26, 2003 (Rating 7) Fractal visionaries and enthusiasts: Today's image, with its three-dimensional effect and its monochrome color palette, takes us to the a small spot of chaos in the center of the 'fan' feature of the mayparent fractal. Actually, the scene is located in a spot in a spot in a spot. When I zoomed into the original spot, I chose not the most obvious place that might hold a midget, but a less obvious feature off to the side. When rendered in the normal manner, the scene is relatively boring, consisting of large flat areas of color, so to increase interest, I rendered the scene with the outside areas set to < fmod > and the proximity set to 10. This choice greatly narrows the color palette, but adds interest to an otherwise humdrum image. The picture reminds me of a thick, viscous fluid in the process of evaporating. I named the image "Evaporation". The image impresses me as above average. It might not be that much above average, but it is different enough to warrant a rating of 7. The render time of 12 minutes is a bit slow. A faster way of seeing the image is to download it from Paul's web site at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> or from Scott's site at: <http://sdboyd.dyndns.org/~sdboyd/fotd/index.html> A few rays of sun broke through on Sunday here at Fractal Central, but enough showers fell between the hints of sun to keep things wet and keep the dynamic duo confined to the indoors. However, after so much confinement, the duo pretty much took their confinement in stride. With the temperature at 61F 16C, they barely thought of going out. It is raining again this morning, so the duo will likely have a repeat. For me, I expect a reasonably peaceful day. Until next FOTD, take care, and don't miss the byways of life. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START 20.0 PAR-FORMULA FILE================================ Evaporation { ; time=0:12:45.00--SF5 on a P200 reset=2002 type=formula formulafile=allinone.frm formulaname=MandelbrotMix2 function=recip passes=1 center-mag=+2.95955458582929700/+0.046213892587742\ 94/3.236004e+010/1/97.5/0.000545378124574120993 params=-10/-1.1/-1/-11/0/525/0/0 float=y maxiter=1200 inside=0 proximity=10 outside=fmod logmap=yes periodicity=10 colors=000`uz_rzWozSlyOixKfwGcuC`s8Yq9VoASlBPiDMfE\ JcFG`GJYIMXKPWMSWOVVQYUS_UUbTWdTYgS_iRalRcnQdpQcnS\ cmTblUbjVaiWahY`fZ`e_`d`_ba_acZ`dZZeYYfYXgYWhfkSnz\ BouZoqvplqqhmrdir_esWatSYtNUuJQvFMvBIoJJhQJaXKVdKO\ kLIrLEi4oDfkJbIS97b2GbAObIWbQcbYkbd_gRPkDKaAGT8BK6\ 7B4322V8CvELrDKoDJlCJhCIeCIbBH_BHWBGTAGQAFNAFT8NZ6\ Vc5b_BaXH`UN_RS_NYZKcYHiXEnXHoYKoYMoZPpZSpZUp_Xp__\ q_aq`dq`fq`gnYgkWghUgeRgbPg_NgXLgUIgRGgOEgLCbSMYYW\ TdeOjoKpxJosJonJojJoeJoaJoXIoTIoOIoKIoFIoBIo6Io2Mk\ 7PhBSdFWaJZYNaVReRVhOZkKboHfrDjuAnx7r7m5RSqPNxOJmN\ FcMBUM7KLBNKFPJJRINTHRWGVYFZ_EbaDfdCjfBnhBqjPtZbvN\ oxCnvCmtCmsClqCkoCknCjlCjkCiiChgChfCgdCfbCfaCe_CeZ\ Cc_Fa`I_aKYaNWbQUcSScVRdXPe_NebLfdJggHgjFhlDioCiqE\ jnGjlIjiKjgMjdNkbPk_RkYTkVVkTWkREQzHUqJYiL`aNdTPhL\ RkDMa_ISuMOrQLoUIlYFi`Cfd9ch6`l3Yo0VX5sWBtVHtVNtUT\ tTZuTduSjuRpuRvuPsuNquLou } frm:MandelbrotMix2 {; Jim Muth a=real(p1), b=imag(p1), d=real(p2), f=imag(p2), g=1/f, h=1/d, j=1/(f-b), z=(((-a*b*g*h)^j)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================

1 0

Multifractal_1
by Albrecht.Niekamp＠t-online.de 25 May '03

25 May '03

Hi, this is a new formula, not an update, as it is not compatible. If it does what I expect, I still need some testing, itïs a major step forward, because now two way border values are available, which means, there also is an out-border. When this point is reached, the previous iteration is in use again. I did this in order to have a better separation and to a certain degree avoid distorted structures. Theoretically it should be possible to define the size of the inside image with pixel accuracy, as all border values are fractional. Therefor I skipped the lake effect, it was not compatible with most images anyway. The tricky real(p5) input is now easier to handle and the initial routine is more effective. That BUG still was there in the beginning, but when I changed all border inputs to be fractional (secondary inputs), it seemed to be gone. "Gallery" is a zoom into one "neuralgic" spot and renders ok. In the previous frm I had to use "round" functions to get rid of the "artefacts" which fractint adds to the inputs. I think in some rare events these caused a different value of a variable and the consequent errors. Jonathan, does this sound reasonable? Anyway I keep my fingers crossed and will do some more testing. Fractal Greetings, Al.

3 4

New gallery
by Sylvie Gallet 25 May '03

25 May '03

Hi All, I just updated my Fractal of the Week and added a gallery (#42) with 15 new fractals. All these fractals are one or two layer images made with Ultra Fractal, one layer for the fractal (dmj-fBmNovaMandel) and one for the light. Cheers, - Sylvie _________ ________ _______ ______ _____ ____ ___ __ _ E-mail address: sylvie.gallet1(a)libertysurf.fr Web site: in English : http://www.fractalus.com/sylvie/homepage.htm in French : http://www.fractalus.com/sylvie/homepagf.htm _________ ________ _______ ______ _____ ____ ___ __ _

1 0

Partiton Magic
by James R. McKenzie 25 May '03

25 May '03

If you go to www.abilitywholesale.com you can get PM 8 for about $30 USD. It's an OEM site and I've ordered alot of stuff from them. They are very fast and have alots of other stuff too. Just trying to help fellow cheap-skates. 8-{> James R. McKenzie jimmckenzie(a)earthlink.net

1 0

Multifractal
by Albrecht.Niekamp＠t-online.de 25 May '03

25 May '03

Hi, this is a major update for the Multifractal formula. The inputs are a lot easier and a problem is solved that in some cases caused that the inside options were not executed. This means, this update is not completely compatible, so dont remove the previous version. To avoid confusion it has a different name. The images all use the same shape, but with different insides. A lot of interesting border zooms are guaranteed. Janusbird3 uses passes=1 as passes=t causes coloring errors. Fractal Greetings, Al. --------------------------------start-par---------------------------------- Janusbird { ; Albrecht Niekamp May, 03 ; Time 0.39.46.32 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractalx ismand=y function=exp/sin/exp passes=t center-mag=-0.488627/4.44089e-016/1.086909 params=-0.2724234748374889/0.09260841170049135/384.00001/255.4505/2048.0\ 0008/768.0256000000001/768.01536/2560.01025/12297.72/0 float=y maxiter=2048 inside=maxiter outside=tdis logmap=4 periodicity=0 rseed=-2436 colors=200pppqqqsss<25>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<25>09C08\ A068<2>022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o0\ 0q00s00<3>z00<25>C00A00800<3>000<23>eeegggiiijjjlllnnn } Janusbird2 { ; Julia as inside ; Albrecht Niekamp May, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractalx ismand=y function=exp/exp/exp passes=t center-mag=-0.488627/4.44089e-016/1.086909 params=-0.2724234748374889/0.09260841170049135/384.00001/255.4505/2048.0\ 0008/768.0256000000001/768.01536/2560.01025/12224.71/0 float=y maxiter=2048 inside=maxiter outside=tdis logmap=4 periodicity=0 rseed=-2436 colors=200pppqqqsss<25>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<25>09C08\ A068<2>022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o0\ 0q00s00<3>z00<25>C00A00800<3>000<23>eeegggiiijjjlllnnn } Janusbird3 { ; Inside many_mods and julia mix ; Albrecht Niekamp May, 03 ; Version 2002 Patchlevel 5 reset=2002 type=formula formulafile=mult239.frm formulaname=multifractalx ismand=y function=exp/exp/exp passes=1 center-mag=-0.488627/4.44089e-016/1.086909 params=-0.2724234748374889/0.09260841170049135/384.00001/255.4505/2048.0\ 0016/768.0256000000001/768.01536/2560.01025/12284.71/11 float=y maxiter=2048 inside=maxiter outside=tdis logmap=4 periodicity=0 rseed=-2436 colors=200pppqqqsss<25>BBB999777<2>222000012<24>0bo0cq0es<3>0kz<25>09C08\ A068<2>022000211<22>keOmgPoiQqjRslSunT<2>zsX<25>CB7A96875<3>000400<23>o0\ 0q00s00<3>z00<25>C00A00800<3>000<23>eeegggiiijjjlllnnn } ----------------------------------------start-frm-------------------------- FRM:Multifractalx { ; Albrecht Niekamp Update 260503 ;only integers as first input, second input 5 digits to the right ;real(p2) factor1,border1 ;imag(p2) (-)maxiter1,input bas.frm1_2digits input bas.frm2_2digits ;real(p3) bailout,hyb.mandel: number of sides (Many_mods L.Allison) ;imag(p3) factor2,border2 ;real(p4) maxiter2,factor3 ;imag(p4) border3,maxiter3 ;real(p5) 1digit_shape only 5digits: shape,out1,out2,in1,in2 ; 1_mand 2_jul 3_hyb.mand 4_hyb.jul +5_reset (not shape) <0_no in/out1 ; optional basic frm2 digit1: 1_out1 2_out2 3_both +5_shape ; digit2: 1_in1 2_in2 3_both ;imag(p5) digit1 : many_mods multipl.shutoff 1_in/out1 2_in/out2 3_both ; digit2 :1_iter1reset 2_iter2reset 3_both +5_shape effect ; optional input2: frequency_2digits level_2digits amplitude_2digits ; d=real(p2) fac1=trunc(d) b1=(d-fac1)*100000 ; d=imag(p2) da=d<0 if (da) d=-d endif mi1=trunc(d) d=round((d-mi1)*10000) p6=trunc(d/100)/10 d=d-1000*p6 if (da) p6=-p6 endif p7=d/10 ; d=real(p3) ba=trunc(d) mm=round((d-ba)*100000) ; d=imag(p3) fac2=trunc(d) b2=(d-fac2)*100000 ; d=real(p4) mi2=trunc(d) fac3=round((d-mi2)*100000) ; d=imag(p4) b3=trunc(d) mi3=round((d-b3)*100000) ; da=real(p5) t=da<0 if (t) da=-da endif start=2-t dd=trunc(da) da=round((da-dd)*100) if (dd<5) start=0 vb=(dd==3)+(dd==4) else d=trunc(dd/10000) vb=(d==3)+(d==4) dd=dd-d*10000 d=trunc(dd/1000) dd=dd-d*1000 or1=d>5 d=d-5*or1 vv1=(d==3) vv2=(d==4) dd1=(d==2)+(d==4) d=trunc(dd/100) dd=dd-d*100 or2=d>5 d=d-5*or2 vv3=(d==3) vv4=(d==4) dd2=(d==2)+(d==4) d=trunc(dd/10) dd=dd-d*10 inr1=d>5 d=d-5*inr1 v1=(d==3) v2=(d==4) d1=(d==2)+(d==4) inr2=dd>5 dd=dd-inr2*5 v3=(dd==3) v4=(dd==4) d2=(dd==2)+(dd==4) endif ; d=trunc(da/10) da=da-10*d ab=d>=5 d=d-5*ab bb1=(d==1) bb2=(d==2) dd=da>=5 da=da-5*dd ab=ab+dd ab1=(da==1) ab2=(da==2) ; d=imag(p5) dd=trunc(d) d=round((d-dd)*1000000) le=d>10000 da=trunc(dd/10) so1=((da==1)+(da==3)==0) so2=((da==2)+(da==3)==0) dd=dd-10*da wo=dd>=5 dd=dd-5*wo ir1=(dd==1)+(dd==3) ir2=(dd==2)+(dd==3) if (le) freq=round((trunc(d/10000))*10) ;frequency_lake effect by S.Gallet d=d-freq*1000 level=(trunc(d/100))/100 ;water level d=d-level*10000 ampl=d/100 ;amplitude of the wave u=real(rotskew*pi/180) t=exp(-flip(u)) bo=1/real(magxmag) q=bo/0.75*imag(magxmag) dd=tan(imag(rotskew*pi/180)) d3=2*q*t rs=2*bo*(dd+flip(1))*t z2=center+(-q-bo*dd-flip(bo))*t z=pixel-z2 d=imag(conj(d3)*z)/imag(conj(d3)*rs) if (d<=level) da=level-d z=z+2*da*(1+ampl*sin(freq*da^0.2))*rs endif z=z+z2 endif if (ismand) if (vb) c=0.4*log(sqr(pixel^mm)) z=z*le else c=z*le+pixel*(le==0) z=0 endif else c=p1 z=z*le+pixel*(le==0) endif t=0 d3=(ismand==0) u=d3 : if (vb) if (d3) z=(z*z-real(c))^(z*u+imag(c)) else z2=fn1(z)+c ;Linda Allison q=cos(z2) z=c*(1-q)/(1+q) endif elseif (ab) z=z*z+c+c*c-p7 ;Pusk s Istv n elseif (d3) z2=z*z z=z2*z2+(p6+u)*z2+c else z2=z*z ;Pusk s Istv n z=z2*z2+(p6+u)*z2+c-p1 endif bo=|z| If (wo) t=t+1 if ((t<mi1)+(bo>b1)) u=2*(fn1(t/fac1)) if (ismand) z=z*u if (vb) c=0.4*log(sqr(pixel^mm)) else c=z*le+pixel*(le==0) endif else z=z*le+pixel*(le==0) c=p1*u endif wo=0 if (ir1) t=0 endif endif elseif (start) t=t+1 if (start==2) if (bo>b2) u=2*(fn2(t/fac2)) rs=or1 ab=bb1 if (dd1) if (rs) z=pixel endif c=p1*u vb=vv2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=1 endif elseif (t>mi2) u=2*(fn2(t/fac2)) rs=inr1 ab=ab1 if (d1) if (rs) z=pixel endif c=p1*u vb=v2 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v1 if (vb) if (so1) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=1 if (ir2) t=0 endif endif elseif (bo>b3) u=2*(fn3(t/fac3)) ab=bb2 rs=or2 if (dd2) if (rs) z=pixel endif c=p1*u vb=vv4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=vv3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif start=0 endif elseif (t>mi3) u=2*(fn3(t/fac3)) ab=ab2 rs=inr2 if (d2) if (rs) z=pixel endif c=p1*u vb=v4 d3=vb else d3=0 z=z*u c=z if (rs) z=0 endif vb=v3 if (vb) if (so2) mm=mm+mm endif c=0.4*log(sqr(pixel^mm)) endif endif start=0 endif endif bo<=ba } -------------------------------------end-------------------------------

1 0

Re: Multiboot
by JackOTradez 25 May '03

25 May '03

Tony (and other folks) - Your very sophisticated technique might be a bit intimidating for some. Let me offer an alternative. One that I used and works. My Dell P4-2Gig originally came with Win2K which I hated from day one. I wanted my old trusty Win98SE and DOS back for much work including Fractint. It is very difficult to install a lower version of windows/DOS after Win2K or XP is already installed. But it can be done, as with your method, or this: Get "Partition Magick" utility. It only costs about $50. from any computer store. Install it. It is very sophisticated in what it does and can do, and is also very user friendly. You don't have to be a techie-geek. With it, you can alter/change/create/delete/modify partitions on your HD without loss of any data! You can create a partition, load DOS or Win98 on it completely isolated from 2000 or XP, and then use the included boot-loader to set up a multiboot system. At boot-up, you can select any OS you want. You can also install Linux on it's own partition for a Linux/Windows/DOS multiboot - which I did on my old P2-300! I did this succesfully (and very easy) and put Win98SE and DOS622 next to Win2K for a triple boot. This was over a year ago when I was researching fractint and optimizing - I found that the P4 chip sucks for fractint or any DOS app. I have since loaded XP on my P4 system and use my P3-733 (Win98SE) for fractint - which works the best. I hope this can help someone. BTW - I do NOT receive any kickbacks from PowerQuest! :) JoTz

1 0

FOTD 25-05-03 (Sapphire Jewel [8])
by Jim Muth 25 May '03

25 May '03

FOTD -- May 25, 2003 (Rating 8) Fractal visionaries and enthusiasts: My e-mail address certainly gets around. This morning I found 26 letters in my e-mailbox, with the word 'jamth' in the subject line. I don't know why the senders do this. Most likely it is an effort to make their ads appear personal, but all it does is make the unwanted ads easier to recognize and delete. I also am seeing more and more nonsense words such as 'tghs df6szzhs' in the subject lines. I assume this is an attempt to defeat the programs that automatically delete e-mail spam. And speaking of spam, I recently saw on the BBC-America channel the original Monty Python skit that inspired the word. Now if only a way could be found to eliminate spam itself. Today's image, which is located in a valley of a distorted bud on the northern fringe of the 'fan' of the may-parent fractal, is striking for the intensity of its colors, especially the blues. I have named it "Sapphire Jewel" accordingly. The unusual shape of the fractal elements alone would rate a 6 or 7. When this is added to the unusually brilliant colors, the sum of the two easily rates the 8. Unlike the past two images, today's is very slow. It takes 43 minutes to render on my machine. Since my machine is an aging clunker, the image will render in considerably less time on most units. And if even the speediest fireball screamer is too slow, the completed GIF image can be found on the internet at: <http://home.att.net/~Paul.N.Lee/FotD/FotD.html> and at: <http://sdboyd.dyndns.org/~sdboyd/fotd/index.html> and downloaded from there. Occasional rain much of the day Saturday here at Fractal Central kept the dynamic duo of fractal cats confined to quarters. The temperature of 59F 15C helped not a bit. Their moods were lighter than expected however. Maybe they're getting used to being unable to go out. The clouds are still hanging around this morning, with a rather dense fog added to make things even more unpleasant for cats. Regardless, I'm ready to have a relaxing day doing pretty much nothing but searching for the next fractal. Until I find it, take care, and enjoy the other images. Jim Muth jamth(a)mindspring.com jimmuth(a)aol.com START 20.0 PAR-FORMULA FILE================================ Sapphire_Jewel { ; time=0:43:28.30--SF5 on a P200 reset=2002 type=formula formulafile=allinone.frm formulaname=MandelbrotMix2 function=recip passes=1 center-mag=+5.30940846654323200/-2.048115157663139\ 00/1197664/1/-82.5/4.63141944379019677e-008 params=-10/-1.1/-1/-11/0/525/0/0 float=y maxiter=32767 inside=0 periodicity=10 colors=000i0zi0z0X0GLLdAfz0zz6yzCyzIyyMyxSyxYyvcyu\ gyumyssysxyosylpyglycgy`cyX_ySVyPSyOQvMQuLQrJQpIQm\ GQlFQiDQgCPdAPc9P`7P_6PX4PV3PS1PQ0OO0OM0OJ0OI0OF0O\ D0OA0O90SC1VF7YID`LIcOOfQTiS_lVdoYir`oucuxfzzizzjz\ zizygzvfzufyrdxpcxmcvlaui`ug`sf_rcYpaXp_XoYVmVTmTT\ lQSjPQjOQmSYpXcr`iudoviuymzzrzvpzsozpozmmzimzflzcl\ y`jxYjxTivQguOguLfsGfrDdrAdp7co4co1Vm0Ol0Gj09j0Ci1\ Di4Gg6Ig9LfAMfDPdFQdITcJVcLXcJVaJVaIVaIVaIVaGVaGVa\ FVaFVaFVaDVaDV`CV`CV`CV`AV`AV`9V`9V`9V`7V`7V`7V`AX\ _CY_D_YG`YIaXJcXMdVOfVPgTSiTTjSVlSYmQ_oQ`pPcrPdsOf\ uOivMjxMlyLmzLiyIfxGcvD_uCXsATr7Pp6Mo4Jm1Fl0Cj09i0\ 4g01f00d00c00d04d09d0Dd1If6Mf9QfCVfF_gJcgMggPlgSvJ\ OrVSsJQu6Pp0Op0Mm0Lj3Jf6Ic9G`CFXDDTGCQJAOMAJP9GS7D\ V69X46_33a10d00g00j00l00j10i41g74fA9dDCdGFcJJaMM`P\ Q_STYVXYYYV`YSa_Qc_Od`Mf`JgaIiaFlcDmcAod9pd6rf4sf1\ ug0xg0yi0zi0zj0zj0zj0zi0z } frm:MandelbrotMix2 {; Jim Muth a=real(p1), b=imag(p1), d=real(p2), f=imag(p2), g=1/f, h=1/d, j=1/(f-b), z=(((-a*b*g*h)^j)+(p4)), k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel): z=k*((a*(z^b))+(d*(z^f)))+c, |z| < l } END 20.0 PAR-FORMULA FILE==================================

1 0

[Fractint] Fractint Multi-Boot Menu On Win98, Win2K, and WinXp Revisited
by Tony Parker 24 May '03

24 May '03

Some member of this list e-mailed me recently for information on Multiboot Menus for Win98, Win2K, and WinXP. Here's an e-mail message that I posted posted to this list Monday, November 25, 2002. Further to the recent message traffic about the problems that some members of this list have had trying to load Fractint in a Dos Box on Win98, Win2K or WinXp, I've gone and done some research on the matter. Here are my results of some tweaking and "kludgeing" on my own systems. I have installed Multi-Boot Menus on my 2 Win98 Work Stations and a Multiboot DOS/Win2000/WinXP Menu system on my Win2000 Profesional Work Station and they all work fine. The basic idea is to install a simple Multiboot Menu System that can allow you to boot and reboot between MSDOS and Win2000/WinXp on the same hard drive FAT32 File System partition. This method requires that you have access to the various files found on a working Win95/98 system and on a working Win2000/Xp sytem. You may also need A Win95/98 and a Win2000/WinXp Installation CD-ROM. It is also understood that you have installed the Win2000/WinXp system on a FAT32 File system. It is possible to install a multiboot system that can span different File systems like FAT16, FAT32, and NTFS, on different partitions, but that job is even more complicated, and will only be dealt with in a later article if Fractint E-Group members ask me to. 1.) Floppy Boot Disk Method - Several Fractint E-Group members have already discussed this Floppy Boot Disk method of booting a Win2000/WinXp system with a DOS boot Floppy disk. Hopefully you installed Win2K or WinXp on a FAT32 file system. All my multiboot menus assume that you installed Windows 2000 or WinXp with a FAT32 files system. A simple Win98 Boot Floppy disk can be generated from the Win98 Format dialog box when you check the "Copy system files". That method works ok, but I found that I needed more resources so I created autoexec.bat and config.sys files, and I edited the msdos.sys file to suit my requirements. The boot disk method works fine, but I was always misplacing the boot disk, and I felt that having everything accessible from a boot menu on my hard drive was neater and quicker. 2.) Multiboot Hard Drive Menu - I had once used a MultiBoot Menu on my old MSDOS & Win3.xx system, so I figured that the same type of menu system on a Win98, Win2K, or WinXp system ought to be feasible. On Win 95/98 you have to edit the Msdos.sys file to allow for a multiboot menu and some other features that will speed up the loading of Windows as well. You also have to edit your autoexec.bat and config.sys files to create your different sytems configurations. You need to download the file olddos.exe from microsoft.com, or find the "tools\oldmsdos\" sub-directory on your Win95/98 CDROM. You should copy those files to the Windows\command\ subdirectory. I have found such features like smartdrv.exe really enhance fractint's performance. You will also need to locate himem.sys, and emm386.exe in either "c:\windows", "c:\windows\command" or the "tools\oldmsdos\" sub-directory in the Windows95/98 installation CD-ROM. Once you located these files then it's not a difficult task to edit your msdos.sys, config.sys, and autoexec.bat files to give you a multiboot system that will boot both Windows95/98 and Dos 7.01. I think I've already provided fairly complete instructions and examples how to do this in earlier e-mails to this E-Group, but if anybody wants, I can repost them again to this e-group. 3.) Once you've gotten a multiboot system to work on a Win95/98 system that let's you boot to either DOS or Win95/98, you're about half of the way to a multiboot system on a Win2000 or WinXp system. Make sure that you have a Win95/98 Set-up disk. Go to Start > Settings > Control Panel > Add/Remove Programs Properties > Startup Disk > and click on the Create Disk radial button, to create a Win98/Dos 7.01 a Start-up disk. Create and Label this disk as you will need this disk later on. 4.) Now we are ready to start work on our Win2000 and/or WinXp system. We will also need to make a complete set of the Win2000 Startup Disks, and Emergency repair disk. To make the Win200 startup disks, go to the "\BOOTDISK\" subdirectory on our Win2000 Installation CDROM, and load makeboot32.exe. If you have followed the directions properly you should have 4 Win2000 Startup disks. Label them and put them aside. You will definitely need them later. To make a Win2000 "Emergency Repair Disk" go to Start > Programs > Accessories > System Tools > Backup and click the "Emergency Repair Disk" radial button. Check the registry backup feature, and insert a floppy disk, and click "OK". Label and save the disk, you will need it later on in this process. WARNING: Do not try this "Tweak" until you have created the 4 Win2000/WinXp Startup Disks, and the Win2000/WinXp Emergency Repair disk. 5.) On your Windows 2000 system, create c:\dos, c:\windows and a c:\windows\command subdirectories even though you may not want to install a full blown windows95/98. Now copy or transfer all the files that you will need for launching DOS 7.01 files that you have located on your Win95/98 system in c:\windows, c:\windows\command\, "olddos.exe, and "oldmsdos". Copy your working Win95/98 multi-boot menu files, i.e, msdos.sys, autoexec.bat, and config.sys onto a floppy and label it. 6.) On your Windows 2000 either create or edit a file "boot.ini" thusly: [boot loader] timeout=15 default=multi(0)disk(0)rdisk(0)partition(1)\WINNT [operating systems] multi(0)disk(0)rdisk(0)partition(1)\WINNT="Microsoft Windows 2000 Professional" ' /fastdetect C:\bootsect.dos="Msdos 7.01" /win95dos I've tried to make this Win200 boot menu really simple, but once you get his working you can tweak it and make it as fancy as you want. 7.) Now comes the really serious stuff. Do not proceed any further until you have really created your Win2000 startup disks AS WELL AS your Win2000 Emergency Repair Disk, otherwise you will really have a mess on your hands. 8.) Insert your Windows95/98 Startup Floppy Disk into the Win2000 System , and go to Start > Shutdown > make sure you have selected Restart before you click "OK". You will now boot from your Floppy a win95/98 DOS 7.01system. >From the DOS 7.01 command line, type in the DOS command "SYS c:". You will then be copying your vanilla dos system to the Win2000 system. Now enter the following from the DOS command line. Debug<ENTER> L 100 2 0 1<ENTER> N C:\BOOTSECT.DOS<ENTER> R BX<ENTER> 0<ENTER> R CX<ENTER> 200<ENTER> W<ENTER> Q<ENTER> Congratulations! You have just created a special file called bootsect.dos. For the really courageous I have attached a file "bsread.txt" which allows you an automated method of creating this file. You will need to have the file "bsread.txt" copied onto the c: drive of your C; drive. For an automated creation of the "bootsect.dos" file, enter the following command. "c:\debug <bsread.txt<ENTER>" 9.) Remove the Win95/98 Startup floppy and enter "CTL, ALT, DELETE" simultaneously to reboot your system. The PC will now boot a vanilla DOS system. Now insert the floppy to which you had previously copied your edited "msdos.sys", "autoexec.bat", and "config.sys" files from your Win95/98 multi boot system in Step 5. Copy "msdos.sys", "autoexec.bat", and "config.sys" files to your C: drive. Remove the floppy. Reboot your system and you will now have your Ms-Dos Multiboot Menu installed on your system. For the system to be able to Multiboot between Win95/Win98/DOS and Win2000WinXp, we have to re-install your Win2000/WinXp boot sector onto your C: drive. 10.) Insert your Win2000 Startup disk and reboot your system with "CTL, ALT, DELETE" and then follow the directions. You will have to insert the other 3 Win2000 Startup Disks to enable the Win2000 Startup system. When you finally reach Windows 2000 Setup Menu, enter "R". At the next menu enter "R" again. At the next menu enter "F". When the Menu asks you for the Emergency Repair disk, ENTER, and then insert the Emergency repair disk, and follow the directions until the end. 11.) Remove the floppy disk, and reboot. If everything was done correctly, you will first see the Windows 2000/XP Multiboot menu giving you a choice between booting Windows 200 or DOS, then, if you select DOS, you will then see your DOS Multiboot menu. To switch back and forth between systems simply shutdown and reboot and then select the appropriate menu option(s). Hope you got it all to work for you! Just to make life easier for you all. I've attached my msdos.sys, autoexec.bat, config.sys, boot.ini, and bsread.txt, which you will need to edit and change to work on your system. Let me know if any of this has worked for you! All the best, Tony

1 0