;     Date: Mon, 17 Oct 2011 22:45:23 -0400
;     From: Jim Muth <jimmuth@earthlink.net>
;  Subject: [Fractint] FOTD 17-10-11 (Bare Singularity [7])
;       Id: <1.5.4.16.20111017224528.145fb2b0@pop.earthlink.net>
; ---------
; 
; FOTD -- October 17, 2011 (Rating 7)
; 
; Fractal visionaries and enthusiasts:
; 
; Today's image is the third one created with an exponent of 
; 1.05, though today it is positive Z rather than negative Z that 
; we raise to the power of 1.05.  The parent fractal was created 
; by calculating the expression Z^(1.05)+C at a level of 0.31... 
; turns down the complex logarithmic hyperspiral with the 'recip' 
; function applied.
; 
; The surprise in the image is the existence of a minibrot.  The 
; minibrot lies at the center of a disorganized spiral, which is 
; another surprise.  Most spirals appear boring because they 
; continue unchanged all the way down to infinity; today's spiral 
; however comes to a definite end at the central minibrot.
; 
; I named the image "Bare Singularity".  I almost named it 
; 'neutron star', but the singularity name has more impact.  I'm 
; not sure a bare singularity could actually exist.  Any 
; singularity would necessarily have an event horizon around it, 
; and would therefore lie unseen inside a black hole, but it is 
; fun to try to imagine what a bare singularity might look like.
; 
; The rating of a 7 is about what the image is worth.  A little 
; extra effort on the colors might have rased the rating to a 
; 7-1/2.
; 
; The calculation time of 7 minutes starts to drag before the 
; image is finished.  Avoid the dragging by viewing the image on 
; the web site.
; 
; The official FOTD web site is at:
; 
;       <http://www.crosscanpuzzles.com/Archives.html>
; 
; where the finished image is posted.
; 
; or the high-definition web site at:
; 
; <http://www.emarketingiseasy.com/TESTS/FOTD/jim_muths_fotd.html>
; 
; The original web site may be accessed at:
; 
;       <http://www.Nahee.com/FOTD/>
; 
; Light rain fell during the night here at Fractal Central, but by 
; daybreak the sky was clear.  The rest of the day brought full 
; sun with only a few passing clouds, and a temperature of 64F 
; 18C.  The fractal cats approved of these conditions, at least 
; during the times when they were not distracted by a large orange 
; tomcat that wandered onto the back porch.  The world of the 
; humans featured only routine stuff not worth reporting.
; 
; The next FOTD is due to be posted in 24 hours.  Most likely it 
; will be posted on schedule.  Until then, take care, and if 
; nothing can escape from an (almost) black hole, how does the 
; gravity get out?
; 
; 
; Jim Muth
; jimmuth@earthlink.net
; 
; 
; START PARAMETER FILE=======================================

Bare_Singularity { ; time=0:07:09.90-SF5 on P4-2000
  reset=2004 type=formula formulafile=basicer.frm
  formulaname=MandelbrotBC3 function=recip passes=1
  center-mag=-2.109365353519732/+2.80890231424387/\
  1.629783e+011/1/-85/0 params=1.05/0/-0.31034272286\
  14155/0 float=y maxiter=5000 inside=255 logmap=700
  periodicity=6 mathtolerance=0.05/1
  colors=000GWeXmjNdgGWe8Pb0Ha0AZ03X00V00W00W00W00W0\
  0W00W00W00X00X00X00X01X01X01X01Z02Z02Z02Z02Z03Z03Z\
  03Z03_05_05_05_05_06_06_06a06a07a07a07a07a08a08b08\
  b08b09b09b09b09b0Ab0Ad0Ad1Gl1Cd1Cd2Cm2Cd3De3De3De5\
  Me5Me6Me6Me5Md6Me6Me6Me7Me7Me7Me7Me8Me8Hl8Me8Gv99u\
  9Mu9GuAMuAMuA9uAMuCCuCEuCMuC9uDMuD9uDEuEMuEDuEHuEG\
  uGEuGEuGDuGCu8DuHAuHGuC8sH9uGHuDAuEJuDIuDAuCCmAImA\
  9o9Fo8Co8Do7Go6Ho6Io5Do2Cp3Do5Eo5EoLJo6GoLQh7Ao8Co\
  8Po9Do9IoASoAEoCOmCGmDHjDMjEIhELhGJgGJgHPeHMeLQeIN\
  eJNeJPeLPeLQeMQeMSeNSdNTdPTdPVdQVdQWdSVdSWeTWeTWfV\
  WfVXgWZgWXgXZhXZhZ_fZ_g_ag_agachabgbegbeidgodglehm\
  ejoglqglzhmzhpzjpzjozlozlozmozmozopxopxppxppxrpxrp\
  xsrxsrxurxurxvrxvsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxx\
  sxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsx\
  xsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxsxxs\
  xxsxxsxxsxxsxxsxxsxxsxzzz }

frm:MandelbrotBC3   { ; by several Fractint users
  e=p1, a=imag(p2)+100
  p=real(p2)+PI
  q=2*PI*fn1(p/(2*PI))
  r=real(p2)+PI-q
  Z=C=Pixel:
    Z=log(Z)
    IF(imag(Z)>r)
      Z=Z+flip(2*PI)
    ENDIF
    Z=exp(e*(Z+flip(q)))+C
  |Z|<a }

; END PARAMETER FILE=========================================
; 
; 
; 
; _______________________________________________
; Fractint mailing list
; Fractint@mailman.xmission.com
; http://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint
;