Last month, Dr. J had a run in with the Jello factory near his home. He had broken the main feed, flooding his back yard with Fractal Jello. One of the volunteers who rescued him from the slippery mess has invited Dr. J to visit the FractoPower Plant where he works. In Figure 1, we see Dr. J in the center of the power generating circle. He gets a special thrill, knowing it is his laboratory which may well be using the better part of the power once he gets his latest experiments going. Perhaps the thrill is partly the tingle radiation dose he is receiving. He seems unaware of this potential danger. He is more interested in noting there are an infinite number of power generating nodes, since that is also the number of experimental chambers according to his laboratory plans!!
Can anyone guess why Dr. J is so obsessed with his roots? Are his vast laboratory experiments related to this? Why so much power? What is the real, ultimate answer he is really after? Could it be Dr. J is searching for his origin? What is the very nature of FractoSpace? Is it that the new images of Mars are in?
Or is he just trying to blast his way back onto the Internet using your account!?
|
Figure 1. Fractal Power Plant.
In this inverted Mandelbrot set fractal, I use special tests to color the period 1, 2 and 3 components.
Stay warm,
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:ColoritC { ; (c) Jay Hill, 1998
; use outside=summ periodicity=0
done = 1, z = 0, zc = 0, c = pixel
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, and 3.
done=-1 ; color is set for c in a component, skip iterations
endif
: ; initialization.
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.
}
Power_Plant { ; (c) Jay Hill, 1998
reset=1960 type=formula formulafile=color102.par
formulaname=coloritc
center-mag=-0.96828/-5.32907e-015/0.2358491/1/90 float=y maxiter=256
inside=0 outside=summ invert=1/-1/0 symmetry=xaxis periodicity=0
colors=cUm0cw0bu<12>000000<14>ww3<15\
>wA0<28>o2Rn1Sn1Tm0Um0U<168>000wAAcm\
www0www000000
savename=powerplt
}
