Dr. J and Dr. E had their first 'argument' over their origins after being married for only a short time. She claimed, "Our origin has been traced back to our Creator, Dr. Benoit Mandelbrot, about 20 years ago." But Dr. J does not believe it. She was just repeating the age old chant of FractoSpace "I believe in Benoit Mandelbrot! I believe in Benoit Mandelbrot! In Benoit Mandelbrot! In Benoit Mandelbrot!"
Dr. J's mocking of her was not the nicest thing he could have said. "IBM! IBM! IBM!" he had chanted back. The acronym IBM kept running through his mind as he went out into the night. Instead of going straight to his laboratory, he stopped by his favorite watering hole where he met Mr. Spearman, a businessman friend.
"I have been working on the origins of FractoSpace again and somehow the letters I.B.M. keep coming up. Any ideas?" Dr. J asked, taking a long sip of Fractola.
"Sounds like the name of a corporation to me." replied Mr. Spearman while punching up another drink. "I seem to recall hearing of one like that starting up about 50 years ago, about the time iterations were getting started in a serious way."
"Aha!" Dr. J had an idea. "There may well be a connection here after all. Now iterations are the essence of our existence. Thanks very much Mr. Spearman. What product line are you in?"
"Computers", replied Mr. Spearman. Both of them became lost in thought, sipping on their Fractolas.
|
Figure 1. Dr. J's Friend, Mr. Spearman.
The question is still out there, twisting in the breeze. Can you settle the argument for Dr. J? Are fractals forever? Was there a beginning? How does I.B.M. fit in?
Stay calm,
Jay
The parameter and formula files for Fractint are included below. Copy them
into a quickie.par file for quick loading into Fractint. For longer term
use, copy the frm: block into a FotN.frm file. But this time leave off the
'frm:' part. Then copy the rest (the par parts) into your FotN.par
file.
frm:classic_shift_b { ; (c) Jay Hill, 1998
; shift one midget over another, merge images
; p1 = shift of first midget
; p2 = scaling factor of first midget relative to second
; p3 = shift of second midget
; use outside=summ periodicity=0 passes=1 float=y
done = 1, z = 0,
zc = c = (pixel+p3)*(1-whitesq) + (pixel/p2+p1) *whitesq
s=|c|, t1=(256*s - 96)*s + 32*Real(c), t2=16*s + 32*Real(c) + 16
B=sqrt(-4*c-7), t3=|8+4*c*(1-B)|, t4=|8+4*c*(1+B)| ; component tests
z=z + 249*(t1<=3) + 250*(t2<=1) + 251*(t3<=1) + 252*(t4<=1) ;
set colors
if(z>0) ; for periods 1, 2, 3
done=-1 ; color is set for c in a component, skip iterations
endif
:
zc=sqr(zc) + c ; standard MSet iteration
if (|zc| >= 4) ; Bailout at 4
done=-1 ; Set flag to force an exit.
endif
done >= 0 ; Continue if the flag >=0.
}
Spearman-001 { ; (C) Jay Hill, 1998
; Dr. J visits his friend, Mr. Spearman
reset=1960 type=formula formulafile=colorit5.par
formulaname=classic_shift_b passes=1
center-mag=1.24623/-0.250784/0.5681818/1/-90
params=-1.250290696/0.0076766028/1970699/0/-2.5/1.5 float=y
maxiter=10240 inside=249 outside=summ symmetry=xaxis periodicity=0
colors=wU0111<77>wwwwwwvvv<71>111000\
001<32>8Ir9Is9JuAKwAKw<55>125wcAwww1\
0w00m00c000000 cyclerange=0/248
savename=Spearman
}
