|
Fractal of the Day
by Jim Muth
|
|
Fractal enthusiasts and visionaries: Today's fractal is a biomorph of sorts. I found it while experimenting with one of my Julibrot 4-D rotation formulas -- (in this case I was rotating the (-Z)^1.5+C figure). Since it does rather resemble some alien life form, I decided to name the picture "SETI Discovery". The image is rotated 8 degrees from the Julia direction toward the Oblate direction. It is that 8-degree rotation that gives the image its striking nature. To see the pure Julia set, which resembles nothing as much as an infinity sign filled with holes, change real(p1) to 90. Of course, SETI is the Search for Extra-Terrestrial Intelligence which has been ongoing for quite a few years now, albeit with little hope of actually making contact. But it's an interesting endeavor, certainly worth the effort being expended. Anyone who wishes to take part in the search may download a screen saver from SETI that is actually a data packet of signals from space. While the screen saver is running, it analyzes the data to see if it contains anything other than the random noise that would normally be expected. I don't have the internet address in front of me where the SETI screen saver may be found, but the address should not be hard to find. Of course this search can find only those intelligences that have developed in a manner parallel to ours, with similar technology and a similar use of electromagnetic radiation. But then perhaps this kind of ET intelligence is the only kind we would recognize or care to interact with. Today's ET fractal picture is very fast, requiring less than a minute. In fact, copying the parameter file will take several times as long as running the file. For those who would rather not be bothered with copying files, the JPEG image may be found at: The weather today was cool, raw and rainy -- simply a perfect day for finding extraterrestrial fractals. The temperature of 53F (11.5C) was perfect for both topcoats in addition to searching for fractals. Once again my more intense philosophy didn't make it, but I'll try again tomorrow. Until then, take care and watch out for little green people. Jim Muth jamth@mindspring.com |
START FORMULA==============================================
multmin1-5-XY-ZW {; draws 6 planes and rotations
;when fn1-2=i,f, then p1 0,0=M, 0,90=O, 90,0=E, 90,90=J
;when fn1-2=f,i, then p1 0,0=M, 0,90=R, 90,0=P, 90,90=J
a=(real(p1)+10^(-100))*.01745329251994,
b=imag(p1)*.01745329251994,
z=sin(b)*fn1(real(pixel))+sin(a)*fn2(imag(pixel))+p2,
c=cos(b)*real(pixel)+cos(a)*flip(imag(pixel))+p3:
z=(-z)^1.5+c,
|z| <= 36 }
END FORMULA================================================
START PARAMETER FILE=======================================
SETI_Discovery { ; time=0:00:30.93 on a p233, SF5
reset=2000 type=formula formulafile=multirot.frm
formulaname=multmin1-5-XY-ZW function=ident/flip
passes=1 center-mag=-0.482473/0.0199688/1.640156/1\
/-147.499 params=82/90/0/0/-1.144/0 float=y
maxiter=1600 bailout=25 inside=0
logmap=5 symmetry=none periodicity=10
colors=00052O52O<7>LAWNAXPCY<12>jmh<13>wGq<6>JQ0<2>\
GzS<8>Snu<5>OkB<13>i`3<9>AUr<8>ilr<2>_ckX`iVaf<10>9\
eF<9>ESY<3>`Z4<13>ZdP<8>onG<12>aLn<13>yFN<15>`Ov\
<10>lsV<2>P94<9>Hf2<3>lyW<4>TXk<13>vKG<3>VT0<10>4S9
}
END PARAMETER FILE=========================================
START 19.6 PAR-FORMULA FILE================================
SETI_Discovery { ; time=0:00:30.93 on a p233, SF5
reset=2000 type=formula formulafile=multirot.frm
formulaname=multmin1-5-XY-ZW function=ident/flip
passes=1 center-mag=-0.482473/0.0199688/1.640156/1\
/-147.499 params=82/90/0/0/-1.144/0 float=y
maxiter=1600 bailout=25 inside=0
logmap=5 symmetry=none periodicity=10
colors=00052O52O<7>LAWNAXPCY<12>jmh<13>wGq<6>JQ0<2>\
GzS<8>Snu<5>OkB<13>i`3<9>AUr<8>ilr<2>_ckX`iVaf<10>9\
eF<9>ESY<3>`Z4<13>ZdP<8>onG<12>aLn<13>yFN<15>`Ov\
<10>lsV<2>P94<9>Hf2<3>lyW<4>TXk<13>vKG<3>VT0<10>4S9
}
frm:multmin1-5-XY-ZW {; draws 6 planes and rotations
;when fn1-2=i,f, then p1 0,0=M, 0,90=O, 90,0=E, 90,90=J
;when fn1-2=f,i, then p1 0,0=M, 0,90=R, 90,0=P, 90,90=J
a=(real(p1)+10^(-100))*.01745329251994,
b=imag(p1)*.01745329251994,
z=sin(b)*fn1(real(pixel))+sin(a)*fn2(imag(pixel))+p2,
c=cos(b)*real(pixel)+cos(a)*flip(imag(pixel))+p3:
z=(-z)^1.5+c,
|z| <= 36 }
END 19.6 PAR-FORMULA FILE==================================
|
times.
