Did you ever get lock thought? Your mind gets stuck on a something and can think of nothing else? Some might call it an obsession. I am thinking more of deep thought. That is what Dr. J seemed to be in when Dr. E burst into his room.
"J! Wake up and let's get out of here! This is much too expensive having you here goofing off!" She would have shaken him to get him going but was not sure that would be a good idea. She tried more yelling. "J, you are acting like one of those Turing machines I was reading about, only this is no time for halting!" She thought she saw a change in his pattern.
The doctors were wrong when they claimed he is not iterating, at least she had to believe that. And what is Dr. J thinking about? I notice that his thought is centered at the point c=-1 in the Mandelbrot set. Does that mean it is a negative thought?
|
Figure 1. A Thought.
If you get locked in thought, may it be a positive thought....
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.
A_thought { ; (c) Jay Hill, 1998
; Dr. J seems to have just had a thought!
reset=1960 type=formula formulafile=onepiece.par
formulaname=one_piece_1 center-mag=-0.5/0/1/1/-90
float=y maxiter=253 inside=0 outside=summ
symmetry=xaxis periodicity=0
colors=cUUzcKs`Kp_JoZInYImXHkWGiUF<1\
3>_OCZOCYOCYOCYOC<13>SLCSLCSLCSLCSLC\
<65>GGEFFFEEE<12>CCCCCCBBBAAAcUU<123\
>cUU000000
savename=Athought
}
frm:One_Piece_1 { ; (c) Jay Hill, 1998
; use outside=summ periodicity=0 float=y
done = 1, z = 0, zc = 0, c = pixel
s=|c|,
t1=((256*s - 96)*s + 32*Real(c)+24)/27,
t2=16*s + 32*Real(c) + 16
B=sqrt(-4*c-7),
t3=|8+4*c*(1-B)|,
z=z + 128*t2*(t2<=1) +115*((t1<=1) + (t3<=1))
if(z == 0)
L1=2, 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 + 115*((L1<=1) + (L2<=1))
endif
endif
if(z>0)
done=-1 ; color is set for c in a component, skip iterations
else
z=z+128
endif
: ; initialization.
zc=5
if (zc >= 4)
done=-1 ; Set flag to force an exit.
endif
done >= 0 ; Continue if the flag >=0.
}
