It is still Mother's Day as I receive an unscheduled FractoFax (TM) which is very unexpected. Maybe that is not the right word for it, but I'm getting ahead of myself. Let's try to get the sound track on this FractoFax.
Dr. J is talking. "I'm fine! Look, I've reiterated my filaments. I'm a fully functioning fractal, ready to go. Now, let's pay the bill and go home."
"It is already paid." she replied. "Let's go before they start asking about my uniform."
Dr. J and his wife Dr. E are well down the hall on their way out of the hospital when Dr. E yells in pain. "Oh my! Oh my middle!" She doubled over and sat down. The doctor hurried her to the emergency room where they examined her and took Z-Rays.
"There was no doubt about it. You are expecting." the doctor told Dr. E. She is a Mom to be. See Figure 1.
I would guess Dr. J better be a more careful Mad Scientist in the future, now that he will be a Dad!
|
Figure 1. Dr. E's 'Mother To Be' Z-Ray Image.
This FractoFax was sent automatically by the hospital insurance database. I will not explain how I set that up. One never knows what one might find out snooping around.
Feel free to zoom into the fractal with your own FractintoScope 19.6. And Happy Mother's Day as you explore the new fractal on the way.
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.
FractoFax:
E_plus_One { ; (c) Jay Hill, 1998
reset=1960 type=formula formulafile=onepiece.par
formulaname=One_Plus_E center-mag=-1.76/0/42/1/-90 float=y
maxiter=253 outside=summ symmetry=xaxis periodicity=0
colors=000ccm000mmwAAA<41>llummwmmw<\
61>Q5RP4QQ4Q<62>mKAmKAlKA<67>8127126\
12512412<5>000
savename=Eplus1
}
frm:One_Plus_E { ; (c) Jay Hill, 1998
; use outside=summ periodicity=0 float=y
done = 1, z = 0, zc = 0, c = pixel
t1=8+4*c*(1+sqrt(-4*c-7))
if(|t1|<1)
c=2*t1/600-1.9405
L1=L2=2
if((4*c+3) !=0)
Y=pi*sqrt(-1)/1.5, X = 2*sqrt((4*c+3)/3),
X3 = asinh(-16/X^3)/3, Zz = 2*(c+1)*c + 2
F=X*sinh(X3 + Y), L1= 64*|(c*(F+1)*F + Zz)|,
F=X*sinh(X3 - Y), L2= 64*|(c*(F+1)*F + Zz)|,
z=z + 2*(L1<=1) + 2*(L2<=1)
endif
if(z>0)
done=-1
endif
else
z=z + 2*(|t1|<=1)
if(z>0)
done=-1
endif
endif
: ; initialization.
zc=sqr(zc) + c ; standard MSet iteration
if (|zc| >= 800)
done=-1 ; Set flag to force an exit.
endif
done >= 0 ; Continue if the flag >=0.
}
