The junkyard dog is in place, defending Dr. J's new laboratory wing which is under construction. He is very busy, as you might expect. It is just as well, since Monday I start a solid month of 10 hour days testing a product for delivery. But it looks like Dr. J was not too busy to copy to me his design for a new satellite dish or space telescope, he didn't say. But it looks powerful.
|
Figure 1. Dr. J's Satellite Dish.
The formula for tonight's fractal is the basic Mandelbrot set inverted at -1.75, the exact base of the period 3 midget. Since we are using my exact test for pixels inside the period 3 component, it computes faster and I can give the dish its own color.
Stay warm,
Jay
frm:3telescope { ; (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); period 1 test
t2=16*s + 32*Real(c) + 16 ; period 2 test
B=sqrt(-4*c-7), t3=|8+4*c*(1-B)|, t4=|8+4*c*(1+B)| ; period 3 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.
}
3_Satellite_Dish { ; (c) Jay Hill, 1998
; invert at -1.75
reset=1960 type=formula formulafile=color101.par
formulaname=3telescope center-mag=3.62852/-2.7185/0.1047202/1/27.499
float=y maxiter=25600 inside=0 outside=summ logmode=fly
invert=0.1/-1.75/0 symmetry=xaxis
periodicity=0
colors=KKU00z<42>00C00A00B<41>bbuccwccw<83>11v00u00u00t00s<70>003wwwwwww\
wwmmw000000
}
