home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n138 < prev    next >
Internet Message Format  |  1998-03-18  |  50KB
  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #138
  4. Reply-To: fractint-digest
  5. Sender: owner-fractint-digest@lists.xmission.com
  6. Errors-To: owner-fractint-digest@lists.xmission.com
  7. Precedence: bulk
  8.  
  9.  
  10. fractint-digest        Thursday, March 19 1998        Volume 01 : Number 138
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Wed, 18 Mar 1998 22:57:09 -0700 (MST)
  18. From: Kerry Mitchell <lkmitch@primenet.com>
  19. Subject: Re: (fractint) Sqrt(3) in the Mset
  20.  
  21. I agree with Jay.  And if anyone's got 25 Megs to burn up, I've got a 421
  22. frame 320x240 avi that shows the zoom from a magnitude of 1 to 10^12.
  23.  
  24. Kerry
  25.  
  26. - -------------------------------------------------------------------------------
  27. Kerry Mitchell
  28. lkmitch@primenet.com
  29. - -------------------------------------------------------------------------------
  30.  
  31. On Wed, 18 Mar 1998, Jay Hill wrote:
  32.  
  33. > > From: Peter Gavin <pgavin@mindspring.com>
  34.  
  35. > > the new midget : (-1.75,0) :: (-1.75,0) : the main mset
  36. > > Over and over and over again, and I realized that a familiar number was
  37. > > coming up, sqrt(3).  Atleast I think it was that... I'll have to double
  38. > > check.  Anyways, the center of each successive zoom approached closer and
  39. > > closer to that.
  40. > 
  41. > I get the limit as -1.78644025556369
  42.  
  43.  
  44. - -
  45. - ------------------------------------------------------------
  46. Thanks for using Fractint, The Fractals and Fractint Discussion List
  47. Post Message:   fractint@xmission.com
  48. Get Commands:   majordomo@xmission.com "help"
  49. Administrator:  twegner@phoenix.net
  50. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  51.  
  52. ------------------------------
  53.  
  54. Date: Wed, 18 Mar 1998 22:10:57 -0800
  55. From: "Jay Hill" <ehill1@san.rr.com>
  56. Subject: Re: (fractint) Sqrt(3) in the Mset
  57.  
  58. Wow Kerry,
  59.  
  60. Talk about quick analysis!  Peter posted the question only about 5 
  61. hours ago and you have 421 frames already!??!@?!  This and a 
  62. few more like it might make a good CD.  I had to change color 
  63. schemes at least once while I did the zoom. It gets a little messy 
  64. near the arbitrary precision limit.
  65.  
  66. I might add that we KNOW sqrt(3) is wrong because
  67.  
  68. sqrt(3) > -1.75  = base of period 3 midget 
  69.  
  70. which is on the wrong side.  The limit is on the '-' side of the 
  71. midget so we must have 
  72.  
  73. limit<-1.75.
  74.  
  75. Jay
  76.  
  77. - ----------
  78. > From: Kerry Mitchell <lkmitch@primenet.com>
  79. > To: fractint@lists.xmission.com
  80. > Subject: Re: (fractint) Sqrt(3) in the Mset
  81. > Date: Wednesday, March 18, 1998 9:57 PM
  82. > 
  83. > I agree with Jay.  And if anyone's got 25 Megs to burn up, I've got a 421
  84. > frame 320x240 avi that shows the zoom from a magnitude of 1 to 10^12.
  85. > 
  86. > Kerry
  87. > 
  88. >
  89. - -------------------------------------------------------------------------------
  90. > Kerry Mitchell
  91. > lkmitch@primenet.com
  92. >
  93. - -------------------------------------------------------------------------------
  94. > 
  95. > On Wed, 18 Mar 1998, Jay Hill wrote:
  96. > 
  97. > > > From: Peter Gavin <pgavin@mindspring.com>
  98. > 
  99. > > > the new midget : (-1.75,0) :: (-1.75,0) : the main mset
  100. > > > Over and over and over again, and I realized that a familiar number was
  101. > > > coming up, sqrt(3).  Atleast I think it was that... I'll have to double
  102. > > > check.  Anyways, the center of each successive zoom approached closer and
  103. > > > closer to that.
  104. > > 
  105. > > I get the limit as -1.78644025556369
  106. > 
  107.  
  108.  
  109. - -
  110. - ------------------------------------------------------------
  111. Thanks for using Fractint, The Fractals and Fractint Discussion List
  112. Post Message:   fractint@xmission.com
  113. Get Commands:   majordomo@xmission.com "help"
  114. Administrator:  twegner@phoenix.net
  115. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  116.  
  117. ------------------------------
  118.  
  119. Date: Thu, 19 Mar 1998 02:44:35 -0500 (EST)
  120. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  121. Subject: (fractint) Fractals Just Went Nuclear!
  122.  
  123. Introducing the Nuclear formula.
  124. 3 Julia parameters.
  125. 3 Critical points.
  126. 3 6-dimensional Mandelbrot sets.
  127. 9 Mandelbrot slices.
  128. 3 Quadcolored Mandelbrot slices using all 3 critical points.
  129.  
  130. Short PAR included, many more parameters to come.
  131.  
  132. And preliminary exploration has turned up structures in the Mandelbrot set
  133. (see PAR entry fracmini_zoom2) indicative of Herman rings lurking in the
  134. Julia equation...
  135.  
  136. The last image, fracmini_zoom1a, is currently generating in a window in
  137. disk video.
  138.  
  139.  
  140. - ---8<--- Formulas --->8---
  141.  
  142.  
  143. Nuclear_Jul { ; p1, p2, p3 parameters. Use float=y.
  144.   a=p1, c=p2, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2
  145.   r3ac=r3*ac, ack=k*ac
  146.   z=pixel:
  147.   z2=sqr(z)
  148.   z3=z*z2
  149.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  150.   lastsqr<=1000000
  151. }
  152.  
  153. Nuclear_M_k_0 { ; p1, p2 parameters. Use float=y. k is Mandel parameter,
  154.                 ; critical point 0.
  155.   a=p1, c=p2, k=pixel, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  156.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  157.   z=0:
  158.   z2=sqr(z)
  159.   z3=z*z2
  160.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  161.   lastsqr<=1000000
  162. }
  163.  
  164. Nuclear_M_k_1 { ; p1, p2 parameters. Use float=y. k is Mandel parameter,
  165.                 ; critical point 1.
  166.   a=p1, c=p2, k=pixel, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  167.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  168.   z=1:
  169.   z2=sqr(z)
  170.   z3=z*z2
  171.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  172.   lastsqr<=1000000
  173. }
  174.  
  175. Nuclear_M_k_-1 { ; p1, p2 parameters. Use float=y. k is Mandel parameter,
  176.                 ; critical point -1.
  177.   a=p1, c=p2, k=pixel, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  178.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  179.   z=-1:
  180.   z2=sqr(z)
  181.   z3=z*z2
  182.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  183.   lastsqr<=1000000
  184. }
  185.  
  186. Nuclear_M_c_0 { ; p1, p3 parameters. Use float=y. c is Mandel parameter,
  187.                 ; critical point 0.
  188.   a=p1, c=pixel, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  189.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  190.   z=0:
  191.   z2=sqr(z)
  192.   z3=z*z2
  193.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  194.   lastsqr<=1000000
  195. }
  196.  
  197. Nuclear_M_c_1 { ; p1, p3 parameters. Use float=y. c is Mandel parameter,
  198.                 ; critical point 1.
  199.   a=p1, c=pixel, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  200.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  201.   z=1:
  202.   z2=sqr(z)
  203.   z3=z*z2
  204.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  205.   lastsqr<=1000000
  206. }
  207.  
  208. Nuclear_M_c_-1 { ; p1, p3 parameters. Use float=y. c is Mandel parameter,
  209.                 ; critical point -1.
  210.   a=p1, c=pixel, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  211.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  212.   z=-1:
  213.   z2=sqr(z)
  214.   z3=z*z2
  215.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  216.   lastsqr<=1000000
  217. }
  218.  
  219. Nuclear_M_a_0 { ; p2, p3 parameters. Use float=y. a is Mandel parameter,
  220.                 ; critical point 0.
  221.   a=pixel, c=p2, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  222.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  223.   z=0:
  224.   z2=sqr(z)
  225.   z3=z*z2
  226.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  227.   lastsqr<=1000000
  228. }
  229.  
  230. Nuclear_M_a_1 { ; p2, p3 parameters. Use float=y. a is Mandel parameter,
  231.                 ; critical point 1.
  232.   a=pixel, c=p2, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  233.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  234.   z=1:
  235.   z2=sqr(z)
  236.   z3=z*z2
  237.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  238.   lastsqr<=1000000
  239. }
  240.  
  241. Nuclear_M_a_-1 { ; p2, p3 parameters. Use float=y. a is Mandel parameter,
  242.                 ; critical point -1.
  243.   a=pixel, c=p2, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2
  244.   a6=3*a2, r3ac=r3*ac, ack=k*ac
  245.   z=-1:
  246.   z2=sqr(z)
  247.   z3=z*z2
  248.   z=(r3a2*z3-a6*z2-r3ac*z-ac)/(r3*z+1)+ack,
  249.   lastsqr<=1000000
  250. }
  251.  
  252.  
  253. Nuclear_M_k { ; p1, p2 parameters. k is Mandel parameter. Colored based on all
  254.               ; 3 critical points. Use outside=real, float=y, periodicity=n,
  255.               ; maxiter>=256, and logmap=0.
  256.               ; For logmap effect put real(p3) minimum iteration,
  257.               ; imag(p3) bigger than 1, e.g. 2.
  258.               ; Color 0 is for all critical points trapped.
  259.               ; Colors 1-66, 67-129, 130-192, and 193-255 are separate ranges.
  260.               ; Use first for outside, second thru fourth for two
  261.               ; critical points escape, one trapped...
  262.   a=p1, c=p2, k=pixel, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2
  263.   r3ac=r3*ac, ack=k*ac
  264.   min=real(p3)
  265.   p=imag(p3)
  266.   IF(p==0)
  267.     p=1
  268.   ENDIF
  269.   z1=0, z2=1, z3=-1
  270.   qq=10^-2, iter=0, done=0, z2done=0, m=maxit-1, z1done=0, z3done=0
  271.   m2=floor(maxit/2), z1a=z1, z2a=z2, z3a=z3, flag=0, z1d2=0, z2d2=0
  272.   z3d2=0, qrl=1.5, q2=0.15
  273.   :
  274.   IF(z3done==0)
  275.     zz2=sqr(z3)
  276.     zz3=z3*zz2
  277.     z3=(r3a2*zz3-a6*zz2-r3ac*z3-ac)/(r3*z3+1)+ack,
  278.     IF(lastsqr>10000)
  279.       z3done=iter
  280.       z3d2=1
  281.     ENDIF
  282.   ENDIF
  283.   IF(z2done==0)
  284.     zz2=sqr(z2)
  285.     zz3=z2*zz2
  286.     z2=(r3a2*zz3-a6*zz2-r3ac*z2-ac)/(r3*z2+1)+ack,
  287.     IF(lastsqr>10000)
  288.       z2done=iter
  289.       z2d2=1
  290.     ENDIF
  291.   ENDIF
  292.   IF(z1done==0)
  293.     zz2=sqr(z1)
  294.     zz3=z1*zz2
  295.     z1=(r3a2*zz3-a6*zz2-r3ac*z1-ac)/(r3*z1+1)+ack,
  296.     IF(lastsqr>10000)
  297.       z1done=iter
  298.       z1d2=1
  299.     ENDIF
  300.   ENDIF
  301.   iter=iter+1
  302.   IF(iter>=m2 && iter<(m2+1) && flag=0)
  303.     z1chek=z1
  304.     z2chek=z2
  305.     z3chek=z3
  306.     flag=1
  307.     spd=0
  308.     first=0
  309.     same12=0
  310.     same23=0
  311.     same13=0
  312.   ELSEIF(flag==1)
  313.     zz2=sqr(z1a)
  314.     zz3=z1a*zz2
  315.     z1a=(r3a2*zz3-a6*zz2-r3ac*z1a-ac)/(r3*z1a+1)+ack
  316.     zz2=sqr(z2a)
  317.     zz3=z2a*zz2
  318.     z2a=(r3a2*zz3-a6*zz2-r3ac*z2a-ac)/(r3*z2a+1)+ack
  319.     zz2=sqr(z3a)
  320.     zz3=z3a*zz2
  321.     z3a=(r3a2*zz3-a6*zz2-r3ac*z3a-ac)/(r3*z3a+1)+ack
  322.     spd=spd+1
  323.     IF(|z1a-z2chek|<qq)
  324.       same12=1
  325.       z1d2=spd
  326.       IF(first==0 && |z2a-z1chek|>=qq)
  327.         first=1
  328.       ENDIF
  329.     ENDIF
  330.     IF(|z2a-z1chek|<qq)
  331.       same12=1
  332.       z2d2=spd
  333.       IF(first==0 && |z1a-z2chek|>=qq)
  334.         first=2
  335.       ENDIF
  336.     ENDIF
  337.     IF(|z1a-z3chek|<qq)
  338.       same13=1
  339.       z1d2=spd
  340.       IF(first==0 && |z3a-z1chek|>=qq)
  341.         first=1
  342.       ENDIF
  343.     ENDIF
  344.     IF(|z3a-z1chek|<qq)
  345.       same13=1
  346.       z3d2=spd
  347.       IF(first==0 && |z1a-z3chek|>=qq)
  348.         first=3
  349.       ENDIF
  350.     ENDIF
  351.     IF(|z2a-z3chek|<qq)
  352.       same23=1
  353.       z2d2=spd
  354.       IF(first==0 && |z3a-z2chek|>=qq)
  355.         first=2
  356.       ENDIF
  357.     ENDIF
  358.     IF(|z3a-z2chek|<qq)
  359.       same23=1
  360.       z3d2=spd
  361.       IF(first==0 && |z2a-z3chek|>=qq)
  362.         first=3
  363.       ENDIF
  364.     ENDIF
  365.   ENDIF
  366.   IF((z1d2>0 && z2d2>0 && z3d2>0) || iter==m)
  367.     IF(z1done==0 || z2done==0 || z3done==0)
  368.       IF(z2done>0 && z3done>0)
  369.         ddd=z2done
  370.         IF(z3done>ddd)
  371.           ddd=z3done
  372.         ENDIF
  373.         color=((ddd-min)/(m-min))^(1/p)*63
  374.         IF(color>63)
  375.           color=63
  376.         ENDIF
  377.         IF(color<1)
  378.           color=1
  379.         ENDIF
  380.         color=color+66
  381.       ELSEIF(z1done>0 && z3done>0)
  382.         ddd=z1done
  383.         IF(z3done>ddd)
  384.           ddd=z3done
  385.         ENDIF
  386.         color=((ddd-min)/(m-min))^(1/p)*63
  387.         IF(color>63)
  388.           color=63
  389.         ENDIF
  390.         IF(color<1)
  391.           color=1
  392.         ENDIF
  393.         color=color+129
  394.       ELSEIF(z1done>0 && z2done>0)
  395.         ddd=z1done
  396.         IF(z2done>ddd)
  397.           ddd=z2done
  398.         ENDIF
  399.         color=((ddd-min)/(m-min))^(1/p)*63
  400.         IF(color>63)
  401.           color=63
  402.         ENDIF
  403.         IF(color<1)
  404.           color=1
  405.         ENDIF
  406.         color=color+192
  407.       ELSEIF(z1done>0)
  408.         IF(same23!=0 && first!=0)
  409.           ddd=z1done*(q2*abs(z2d2-z3d2))^qrl
  410.           color=((ddd-min)/(m-min))^(1/p)*63
  411.         ELSE
  412.           color=((z1done-min)/(m-min))^(1/p)*63
  413.         ENDIF
  414.         IF(color>63)
  415.           color=63
  416.         ENDIF
  417.         IF(color<1)
  418.           color=1
  419.         ENDIF
  420.         IF(same23==0)
  421.           color=color+66
  422.         ELSE
  423.           IF(first==0)
  424.             color=color+66
  425.           ELSEIF(first==2)
  426.             color=color+129
  427.           ELSE
  428.             color=color+192
  429.           ENDIF
  430.         ENDIF
  431.       ELSEIF(z2done>0)
  432.         IF(same13!=0 && first!=0)
  433.           ddd=z2done*(q2*abs(z1d2-z3d2))^qrl
  434.           color=((ddd-min)/(m-min))^(1/p)*63
  435.         ELSE
  436.           color=((z2done-min)/(m-min))^(1/p)*63
  437.         ENDIF
  438.         IF(color>63)
  439.           color=63
  440.         ENDIF
  441.         IF(color<1)
  442.           color=1
  443.         ENDIF
  444.         IF(same13==0)
  445.           color=color+129
  446.         ELSE
  447.           IF(first==0)
  448.             color=color+129
  449.           ELSEIF(first==1)
  450.             color=color+66
  451.           ELSE
  452.             color=color+192
  453.           ENDIF
  454.         ENDIF
  455.       ELSEIF(z3done>0)
  456.         IF(same12!=0 && first!=0)
  457.           ddd=z3done*(q2*abs(z1d2-z2d2))^qrl
  458.           color=((ddd-min)/(m-min))^(1/p)*63
  459.         ELSE
  460.           color=((z3done-min)/(m-min))^(1/p)*63
  461.         ENDIF
  462.         IF(color>63)
  463.           color=63
  464.         ENDIF
  465.         IF(color<1)
  466.           color=1
  467.         ENDIF
  468.         IF(same12==0)
  469.           color=color+192
  470.         ELSE
  471.           IF(first==0)
  472.             color=color+192
  473.           ELSEIF(first==1)
  474.             color=color+66
  475.           ELSE
  476.             color=color+129
  477.           ENDIF
  478.         ENDIF
  479.       ELSEIF(same12==1 && same23==1)
  480.         ddd=abs(z1d2-z2d2)
  481.         IF(abs(z1d2-z3d2)<ddd)
  482.           ddd=abs(z1d2-z3d2)
  483.         ENDIF
  484.         IF(abs(z2d2-z3d2)<ddd)
  485.           ddd=abs(z2d2-z3d2)
  486.         ENDIF
  487.         IF(first==0)
  488.           color=(ddd/m)^(1/p)*66
  489.           IF(color>66)
  490.             color=66
  491.           ENDIF
  492.         ELSE
  493.           color=(ddd/m)^(1/p)*63
  494.           IF(color>63)
  495.             color=63
  496.           ENDIF
  497.         ENDIF
  498.         IF(color<1)
  499.           color=1
  500.         ENDIF
  501.         IF(first==1)
  502.           color=color+66
  503.         ELSEIF(first==2)
  504.           color=color+129
  505.         ELSEIF(first==3)
  506.           color=color+192
  507.         ENDIF
  508.       ELSEIF(same12==1)
  509.         ddd=abs(z1d2-z2d2)
  510.         color=(ddd/m)^(1/p)*63
  511.         IF(color>63)
  512.           color=63
  513.         ENDIF
  514.         IF(color<1)
  515.           color=1
  516.         ENDIF
  517.         IF(first==0)
  518.           color=color+192
  519.         ELSEIF(first==1)
  520.           color=color+66
  521.         ELSE
  522.           color=color+129
  523.         ENDIF
  524.       ELSEIF(same13==1)
  525.         ddd=abs(z1d2-z3d2)
  526.         color=(ddd/m)^(1/p)*63
  527.         IF(color>63)
  528.           color=63
  529.         ENDIF
  530.         IF(color<1)
  531.           color=1
  532.         ENDIF
  533.         IF(first==0)
  534.           color=color+129
  535.         ELSEIF(first==1)
  536.           color=color+66
  537.         ELSE
  538.           color=color+192
  539.         ENDIF
  540.       ELSEIF(same23==1)
  541.         ddd=abs(z2d2-z3d2)
  542.         color=(ddd/m)^(1/p)*63
  543.         IF(color>63)
  544.           color=63
  545.         ENDIF
  546.         IF(color<1)
  547.           color=1
  548.         ENDIF
  549.         IF(first==0)
  550.           color=color+66
  551.         ELSEIF(first==2)
  552.           color=color+129
  553.         ELSE
  554.           color=color+192
  555.         ENDIF
  556.       ELSE
  557.         color=0
  558.       ENDIF
  559.     ELSE
  560.       color=((iter-min)/(m-min))^(1/p)*66
  561.       IF(color>66)
  562.         color=66
  563.       ENDIF
  564.       IF(color<1)
  565.         color=1
  566.       ENDIF
  567.     ENDIF
  568.     done=1
  569.     z=color-iter-7
  570.   ENDIF
  571.   done==0
  572. }
  573.  
  574. Nuclear_M_c { ; p1, p3 parameters. c is Mandel parameter. Colored based on all
  575.               ; 3 critical points. Use outside=real, float=y, periodicity=n,
  576.               ; maxiter>=256, and logmap=0.
  577.               ; For logmap effect put real(p2) minimum iteration,
  578.               ; imag(p2) bigger than 1, e.g. 2.
  579.               ; Color 0 is for all critical points trapped.
  580.               ; Colors 1-66, 67-129, 130-192, and 193-255 are separate ranges.
  581.               ; Use first for outside, second thru fourth for two
  582.               ; critical points escape, one trapped...
  583.   a=p1, c=pixel, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2
  584.   r3ac=r3*ac, ack=k*ac
  585.   min=real(p2)
  586.   p=imag(p2)
  587.   IF(p==0)
  588.     p=1
  589.   ENDIF
  590.   z1=0, z2=1, z3=-1
  591.   qq=10^-2, iter=0, done=0, z2done=0, m=maxit-1, z1done=0, z3done=0
  592.   m2=floor(maxit/2), z1a=z1, z2a=z2, z3a=z3, flag=0, z1d2=0, z2d2=0, z3d2=0
  593.   qrl=1.5, q2=0.15
  594.   :
  595.   IF(z3done==0)
  596.     zz2=sqr(z3)
  597.     zz3=z3*zz2
  598.     z3=(r3a2*zz3-a6*zz2-r3ac*z3-ac)/(r3*z3+1)+ack,
  599.     IF(lastsqr>10000)
  600.       z3done=iter
  601.       z3d2=1
  602.     ENDIF
  603.   ENDIF
  604.   IF(z2done==0)
  605.     zz2=sqr(z2)
  606.     zz3=z2*zz2
  607.     z2=(r3a2*zz3-a6*zz2-r3ac*z2-ac)/(r3*z2+1)+ack,
  608.     IF(lastsqr>10000)
  609.       z2done=iter
  610.       z2d2=1
  611.     ENDIF
  612.   ENDIF
  613.   IF(z1done==0)
  614.     zz2=sqr(z1)
  615.     zz3=z1*zz2
  616.     z1=(r3a2*zz3-a6*zz2-r3ac*z1-ac)/(r3*z1+1)+ack,
  617.     IF(lastsqr>10000)
  618.       z1done=iter
  619.       z1d2=1
  620.     ENDIF
  621.   ENDIF
  622.   iter=iter+1
  623.   IF(iter>=m2 && iter<(m2+1) && flag=0)
  624.     z1chek=z1
  625.     z2chek=z2
  626.     z3chek=z3
  627.     flag=1
  628.     spd=0
  629.     first=0
  630.     same12=0
  631.     same23=0
  632.     same13=0
  633.   ELSEIF(flag==1)
  634.     zz2=sqr(z1a)
  635.     zz3=z1a*zz2
  636.     z1a=(r3a2*zz3-a6*zz2-r3ac*z1a-ac)/(r3*z1a+1)+ack
  637.     zz2=sqr(z2a)
  638.     zz3=z2a*zz2
  639.     z2a=(r3a2*zz3-a6*zz2-r3ac*z2a-ac)/(r3*z2a+1)+ack
  640.     zz2=sqr(z3a)
  641.     zz3=z3a*zz2
  642.     z3a=(r3a2*zz3-a6*zz2-r3ac*z3a-ac)/(r3*z3a+1)+ack
  643.     spd=spd+1
  644.     IF(|z1a-z2chek|<qq)
  645.       same12=1
  646.       z1d2=spd
  647.       IF(first==0 && |z2a-z1chek|>=qq)
  648.         first=1
  649.       ENDIF
  650.     ENDIF
  651.     IF(|z2a-z1chek|<qq)
  652.       same12=1
  653.       z2d2=spd
  654.       IF(first==0 && |z1a-z2chek|>=qq)
  655.         first=2
  656.       ENDIF
  657.     ENDIF
  658.     IF(|z1a-z3chek|<qq)
  659.       same13=1
  660.       z1d2=spd
  661.       IF(first==0 && |z3a-z1chek|>=qq)
  662.         first=1
  663.       ENDIF
  664.     ENDIF
  665.     IF(|z3a-z1chek|<qq)
  666.       same13=1
  667.       z3d2=spd
  668.       IF(first==0 && |z1a-z3chek|>=qq)
  669.         first=3
  670.       ENDIF
  671.     ENDIF
  672.     IF(|z2a-z3chek|<qq)
  673.       same23=1
  674.       z2d2=spd
  675.       IF(first==0 && |z3a-z2chek|>=qq)
  676.         first=2
  677.       ENDIF
  678.     ENDIF
  679.     IF(|z3a-z2chek|<qq)
  680.       same23=1
  681.       z3d2=spd
  682.       IF(first==0 && |z2a-z3chek|>=qq)
  683.         first=3
  684.       ENDIF
  685.     ENDIF
  686.   ENDIF
  687.   IF((z1d2>0 && z2d2>0 && z3d2>0) || iter==m)
  688.     IF(z1done==0 || z2done==0 || z3done==0)
  689.       IF(z2done>0 && z3done>0)
  690.         ddd=z2done
  691.         IF(z3done>ddd)
  692.           ddd=z3done
  693.         ENDIF
  694.         color=((ddd-min)/(m-min))^(1/p)*63
  695.         IF(color>63)
  696.           color=63
  697.         ENDIF
  698.         IF(color<1)
  699.           color=1
  700.         ENDIF
  701.         color=color+66
  702.       ELSEIF(z1done>0 && z3done>0)
  703.         ddd=z1done
  704.         IF(z3done>ddd)
  705.           ddd=z3done
  706.         ENDIF
  707.         color=((ddd-min)/(m-min))^(1/p)*63
  708.         IF(color>63)
  709.           color=63
  710.         ENDIF
  711.         IF(color<1)
  712.           color=1
  713.         ENDIF
  714.         color=color+129
  715.       ELSEIF(z1done>0 && z2done>0)
  716.         ddd=z1done
  717.         IF(z2done>ddd)
  718.           ddd=z2done
  719.         ENDIF
  720.         color=((ddd-min)/(m-min))^(1/p)*63
  721.         IF(color>63)
  722.           color=63
  723.         ENDIF
  724.         IF(color<1)
  725.           color=1
  726.         ENDIF
  727.         color=color+192
  728.       ELSEIF(z1done>0)
  729.         IF(same23!=0 && first!=0)
  730.           ddd=z1done*(q2*abs(z2d2-z3d2))^qrl
  731.           color=((ddd-min)/(m-min))^(1/p)*63
  732.         ELSE
  733.           color=((z1done-min)/(m-min))^(1/p)*63
  734.         ENDIF
  735.         IF(color>63)
  736.           color=63
  737.         ENDIF
  738.         IF(color<1)
  739.           color=1
  740.         ENDIF
  741.         IF(same23==0)
  742.           color=color+66
  743.         ELSE
  744.           IF(first==0)
  745.             color=color+66
  746.           ELSEIF(first==2)
  747.             color=color+129
  748.           ELSE
  749.             color=color+192
  750.           ENDIF
  751.         ENDIF
  752.       ELSEIF(z2done>0)
  753.         IF(same13!=0 && first!=0)
  754.           ddd=z2done*(q2*abs(z1d2-z3d2))^qrl
  755.           color=((ddd-min)/(m-min))^(1/p)*63
  756.         ELSE
  757.           color=((z2done-min)/(m-min))^(1/p)*63
  758.         ENDIF
  759.         IF(color>63)
  760.           color=63
  761.         ENDIF
  762.         IF(color<1)
  763.           color=1
  764.         ENDIF
  765.         IF(same13==0)
  766.           color=color+129
  767.         ELSE
  768.           IF(first==0)
  769.             color=color+129
  770.           ELSEIF(first==1)
  771.             color=color+66
  772.           ELSE
  773.             color=color+192
  774.           ENDIF
  775.         ENDIF
  776.       ELSEIF(z3done>0)
  777.         IF(same12!=0 && first!=0)
  778.           ddd=z3done*(q2*abs(z1d2-z2d2))^qrl
  779.           color=((ddd-min)/(m-min))^(1/p)*63
  780.         ELSE
  781.           color=((z3done-min)/(m-min))^(1/p)*63
  782.         ENDIF
  783.         IF(color>63)
  784.           color=63
  785.         ENDIF
  786.         IF(color<1)
  787.           color=1
  788.         ENDIF
  789.         IF(same12==0)
  790.           color=color+192
  791.         ELSE
  792.           IF(first==0)
  793.             color=color+192
  794.           ELSEIF(first==1)
  795.             color=color+66
  796.           ELSE
  797.             color=color+129
  798.           ENDIF
  799.         ENDIF
  800.       ELSEIF(same12==1 && same23==1)
  801.         ddd=abs(z1d2-z2d2)
  802.         IF(abs(z1d2-z3d2)<ddd)
  803.           ddd=abs(z1d2-z3d2)
  804.         ENDIF
  805.         IF(abs(z2d2-z3d2)<ddd)
  806.           ddd=abs(z2d2-z3d2)
  807.         ENDIF
  808.         IF(first==0)
  809.           color=(ddd/m)^(1/p)*66
  810.           IF(color>66)
  811.             color=66
  812.           ENDIF
  813.         ELSE
  814.           color=(ddd/m)^(1/p)*63
  815.           IF(color>63)
  816.             color=63
  817.           ENDIF
  818.         ENDIF
  819.         IF(color<1)
  820.           color=1
  821.         ENDIF
  822.         IF(first==1)
  823.           color=color+66
  824.         ELSEIF(first==2)
  825.           color=color+129
  826.         ELSEIF(first==3)
  827.           color=color+192
  828.         ENDIF
  829.       ELSEIF(same12==1)
  830.         ddd=abs(z1d2-z2d2)
  831.         color=(ddd/m)^(1/p)*63
  832.         IF(color>63)
  833.           color=63
  834.         ENDIF
  835.         IF(color<1)
  836.           color=1
  837.         ENDIF
  838.         IF(first==0)
  839.           color=color+192
  840.         ELSEIF(first==1)
  841.           color=color+66
  842.         ELSE
  843.           color=color+129
  844.         ENDIF
  845.       ELSEIF(same13==1)
  846.         ddd=abs(z1d2-z3d2)
  847.         color=(ddd/m)^(1/p)*63
  848.         IF(color>63)
  849.           color=63
  850.         ENDIF
  851.         IF(color<1)
  852.           color=1
  853.         ENDIF
  854.         IF(first==0)
  855.           color=color+129
  856.         ELSEIF(first==1)
  857.           color=color+66
  858.         ELSE
  859.           color=color+192
  860.         ENDIF
  861.       ELSEIF(same23==1)
  862.         ddd=abs(z2d2-z3d2)
  863.         color=(ddd/m)^(1/p)*63
  864.         IF(color>63)
  865.           color=63
  866.         ENDIF
  867.         IF(color<1)
  868.           color=1
  869.         ENDIF
  870.         IF(first==0)
  871.           color=color+66
  872.         ELSEIF(first==2)
  873.           color=color+129
  874.         ELSE
  875.           color=color+192
  876.         ENDIF
  877.       ELSE
  878.         color=0
  879.       ENDIF
  880.     ELSE
  881.       color=((iter-min)/(m-min))^(1/p)*66
  882.       IF(color>66)
  883.         color=66
  884.       ENDIF
  885.       IF(color<1)
  886.         color=1
  887.       ENDIF
  888.     ENDIF
  889.     done=1
  890.     z=color-iter-7
  891.   ENDIF
  892.   done==0
  893. }
  894.  
  895. Nuclear_M_a { ; p2, p3 parameters. c is Mandel parameter. Colored based on all
  896.               ; 3 critical points. Use outside=real, float=y, periodicity=n,
  897.               ; maxiter>=256, and logmap=0.
  898.               ; For logmap effect put real(p1) minimum iteration,
  899.               ; imag(p1) bigger than 1, e.g. 2.
  900.               ; Color 0 is for all critical points trapped.
  901.               ; Colors 1-66, 67-129, 130-192, and 193-255 are separate ranges.
  902.               ; Use first for outside, second thru fourth for two
  903.               ; critical points escape, one trapped...
  904.   a=pixel, c=p2, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2
  905.   r3ac=r3*ac, ack=k*ac
  906.   min=real(p1)
  907.   p=imag(p1)
  908.   IF(p==0)
  909.     p=1
  910.   ENDIF
  911.   z1=0, z2=1, z3=-1
  912.   qq=10^-2, iter=0, done=0, z2done=0, m=maxit-1, z1done=0, z3done=0
  913.   m2=floor(maxit/2), z1a=z1, z2a=z2, z3a=z3, flag=0, z1d2=0, z2d2=0, z3d2=0
  914.   qrl=1.5, q2=0.15
  915.   :
  916.   IF(z3done==0)
  917.     zz2=sqr(z3)
  918.     zz3=z3*zz2
  919.     z3=(r3a2*zz3-a6*zz2-r3ac*z3-ac)/(r3*z3+1)+ack,
  920.     IF(lastsqr>10000)
  921.       z3done=iter
  922.       z3d2=1
  923.     ENDIF
  924.   ENDIF
  925.   IF(z2done==0)
  926.     zz2=sqr(z2)
  927.     zz3=z2*zz2
  928.     z2=(r3a2*zz3-a6*zz2-r3ac*z2-ac)/(r3*z2+1)+ack,
  929.     IF(lastsqr>10000)
  930.       z2done=iter
  931.       z2d2=1
  932.     ENDIF
  933.   ENDIF
  934.   IF(z1done==0)
  935.     zz2=sqr(z1)
  936.     zz3=z1*zz2
  937.     z1=(r3a2*zz3-a6*zz2-r3ac*z1-ac)/(r3*z1+1)+ack,
  938.     IF(lastsqr>10000)
  939.       z1done=iter
  940.       z1d2=1
  941.     ENDIF
  942.   ENDIF
  943.   iter=iter+1
  944.   IF(iter>=m2 && iter<(m2+1) && flag=0)
  945.     z1chek=z1
  946.     z2chek=z2
  947.     z3chek=z3
  948.     flag=1
  949.     spd=0
  950.     first=0
  951.     same12=0
  952.     same23=0
  953.     same13=0
  954.   ELSEIF(flag==1)
  955.     zz2=sqr(z1a)
  956.     zz3=z1a*zz2
  957.     z1a=(r3a2*zz3-a6*zz2-r3ac*z1a-ac)/(r3*z1a+1)+ack
  958.     zz2=sqr(z2a)
  959.     zz3=z2a*zz2
  960.     z2a=(r3a2*zz3-a6*zz2-r3ac*z2a-ac)/(r3*z2a+1)+ack
  961.     zz2=sqr(z3a)
  962.     zz3=z3a*zz2
  963.     z3a=(r3a2*zz3-a6*zz2-r3ac*z3a-ac)/(r3*z3a+1)+ack
  964.     spd=spd+1
  965.     IF(|z1a-z2chek|<qq)
  966.       same12=1
  967.       z1d2=spd
  968.       IF(first==0 && |z2a-z1chek|>=qq)
  969.         first=1
  970.       ENDIF
  971.     ENDIF
  972.     IF(|z2a-z1chek|<qq)
  973.       same12=1
  974.       z2d2=spd
  975.       IF(first==0 && |z1a-z2chek|>=qq)
  976.         first=2
  977.       ENDIF
  978.     ENDIF
  979.     IF(|z1a-z3chek|<qq)
  980.       same13=1
  981.       z1d2=spd
  982.       IF(first==0 && |z3a-z1chek|>=qq)
  983.         first=1
  984.       ENDIF
  985.     ENDIF
  986.     IF(|z3a-z1chek|<qq)
  987.       same13=1
  988.       z3d2=spd
  989.       IF(first==0 && |z1a-z3chek|>=qq)
  990.         first=3
  991.       ENDIF
  992.     ENDIF
  993.     IF(|z2a-z3chek|<qq)
  994.       same23=1
  995.       z2d2=spd
  996.       IF(first==0 && |z3a-z2chek|>=qq)
  997.         first=2
  998.       ENDIF
  999.     ENDIF
  1000.     IF(|z3a-z2chek|<qq)
  1001.       same23=1
  1002.       z3d2=spd
  1003.       IF(first==0 && |z2a-z3chek|>=qq)
  1004.         first=3
  1005.       ENDIF
  1006.     ENDIF
  1007.   ENDIF
  1008.   IF((z1d2>0 && z2d2>0 && z3d2>0) || iter==m)
  1009.     IF(z1done==0 || z2done==0 || z3done==0)
  1010.       IF(z2done>0 && z3done>0)
  1011.         ddd=z2done
  1012.         IF(z3done>ddd)
  1013.           ddd=z3done
  1014.         ENDIF
  1015.         color=((ddd-min)/(m-min))^(1/p)*63
  1016.         IF(color>63)
  1017.           color=63
  1018.         ENDIF
  1019.         IF(color<1)
  1020.           color=1
  1021.         ENDIF
  1022.         color=color+66
  1023.       ELSEIF(z1done>0 && z3done>0)
  1024.         ddd=z1done
  1025.         IF(z3done>ddd)
  1026.           ddd=z3done
  1027.         ENDIF
  1028.         color=((ddd-min)/(m-min))^(1/p)*63
  1029.         IF(color>63)
  1030.           color=63
  1031.         ENDIF
  1032.         IF(color<1)
  1033.           color=1
  1034.         ENDIF
  1035.         color=color+129
  1036.       ELSEIF(z1done>0 && z2done>0)
  1037.         ddd=z1done
  1038.         IF(z2done>ddd)
  1039.           ddd=z2done
  1040.         ENDIF
  1041.         color=((ddd-min)/(m-min))^(1/p)*63
  1042.         IF(color>63)
  1043.           color=63
  1044.         ENDIF
  1045.         IF(color<1)
  1046.           color=1
  1047.         ENDIF
  1048.         color=color+192
  1049.       ELSEIF(z1done>0)
  1050.         IF(same23!=0 && first!=0)
  1051.           ddd=z1done*(q2*abs(z2d2-z3d2))^qrl
  1052.           color=((ddd-min)/(m-min))^(1/p)*63
  1053.         ELSE
  1054.           color=((z1done-min)/(m-min))^(1/p)*63
  1055.         ENDIF
  1056.         IF(color>63)
  1057.           color=63
  1058.         ENDIF
  1059.         IF(color<1)
  1060.           color=1
  1061.         ENDIF
  1062.         IF(same23==0)
  1063.           color=color+66
  1064.         ELSE
  1065.           IF(first==0)
  1066.             color=color+66
  1067.           ELSEIF(first==2)
  1068.             color=color+129
  1069.           ELSE
  1070.             color=color+192
  1071.           ENDIF
  1072.         ENDIF
  1073.       ELSEIF(z2done>0)
  1074.         IF(same13!=0 && first!=0)
  1075.           ddd=z2done*(q2*abs(z1d2-z3d2))^qrl
  1076.           color=((ddd-min)/(m-min))^(1/p)*63
  1077.         ELSE
  1078.           color=((z2done-min)/(m-min))^(1/p)*63
  1079.         ENDIF
  1080.         IF(color>63)
  1081.           color=63
  1082.         ENDIF
  1083.         IF(color<1)
  1084.           color=1
  1085.         ENDIF
  1086.         IF(same13==0)
  1087.           color=color+129
  1088.         ELSE
  1089.           IF(first==0)
  1090.             color=color+129
  1091.           ELSEIF(first==1)
  1092.             color=color+66
  1093.           ELSE
  1094.             color=color+192
  1095.           ENDIF
  1096.         ENDIF
  1097.       ELSEIF(z3done>0)
  1098.         IF(same12!=0 && first!=0)
  1099.           ddd=z3done*(q2*abs(z1d2-z2d2))^qrl
  1100.           color=((ddd-min)/(m-min))^(1/p)*63
  1101.         ELSE
  1102.           color=((z3done-min)/(m-min))^(1/p)*63
  1103.         ENDIF
  1104.         IF(color>63)
  1105.           color=63
  1106.         ENDIF
  1107.         IF(color<1)
  1108.           color=1
  1109.         ENDIF
  1110.         IF(same12==0)
  1111.           color=color+192
  1112.         ELSE
  1113.           IF(first==0)
  1114.             color=color+192
  1115.           ELSEIF(first==1)
  1116.             color=color+66
  1117.           ELSE
  1118.             color=color+129
  1119.           ENDIF
  1120.         ENDIF
  1121.       ELSEIF(same12==1 && same23==1)
  1122.         ddd=abs(z1d2-z2d2)
  1123.         IF(abs(z1d2-z3d2)<ddd)
  1124.           ddd=abs(z1d2-z3d2)
  1125.         ENDIF
  1126.         IF(abs(z2d2-z3d2)<ddd)
  1127.           ddd=abs(z2d2-z3d2)
  1128.         ENDIF
  1129.         IF(first==0)
  1130.           color=(ddd/m)^(1/p)*66
  1131.           IF(color>66)
  1132.             color=66
  1133.           ENDIF
  1134.         ELSE
  1135.           color=(ddd/m)^(1/p)*63
  1136.           IF(color>63)
  1137.             color=63
  1138.           ENDIF
  1139.         ENDIF
  1140.         IF(color<1)
  1141.           color=1
  1142.         ENDIF
  1143.         IF(first==1)
  1144.           color=color+66
  1145.         ELSEIF(first==2)
  1146.           color=color+129
  1147.         ELSEIF(first==3)
  1148.           color=color+192
  1149.         ENDIF
  1150.       ELSEIF(same12==1)
  1151.         ddd=abs(z1d2-z2d2)
  1152.         color=(ddd/m)^(1/p)*63
  1153.         IF(color>63)
  1154.           color=63
  1155.         ENDIF
  1156.         IF(color<1)
  1157.           color=1
  1158.         ENDIF
  1159.         IF(first==0)
  1160.           color=color+192
  1161.         ELSEIF(first==1)
  1162.           color=color+66
  1163.         ELSE
  1164.           color=color+129
  1165.         ENDIF
  1166.       ELSEIF(same13==1)
  1167.         ddd=abs(z1d2-z3d2)
  1168.         color=(ddd/m)^(1/p)*63
  1169.         IF(color>63)
  1170.           color=63
  1171.         ENDIF
  1172.         IF(color<1)
  1173.           color=1
  1174.         ENDIF
  1175.         IF(first==0)
  1176.           color=color+129
  1177.         ELSEIF(first==1)
  1178.           color=color+66
  1179.         ELSE
  1180.           color=color+192
  1181.         ENDIF
  1182.       ELSEIF(same23==1)
  1183.         ddd=abs(z2d2-z3d2)
  1184.         color=(ddd/m)^(1/p)*63
  1185.         IF(color>63)
  1186.           color=63
  1187.         ENDIF
  1188.         IF(color<1)
  1189.           color=1
  1190.         ENDIF
  1191.         IF(first==0)
  1192.           color=color+66
  1193.         ELSEIF(first==2)
  1194.           color=color+129
  1195.         ELSE
  1196.           color=color+192
  1197.         ENDIF
  1198.       ELSE
  1199.         color=0
  1200.       ENDIF
  1201.     ELSE
  1202.       color=((iter-min)/(m-min))^(1/p)*66
  1203.       IF(color>66)
  1204.         color=66
  1205.       ENDIF
  1206.       IF(color<1)
  1207.         color=1
  1208.       ENDIF
  1209.     ENDIF
  1210.     done=1
  1211.     z=color-iter-7
  1212.   ENDIF
  1213.   done==0
  1214. }
  1215.  
  1216.  
  1217. - --->8--- Parameter sets ---8<---
  1218.  
  1219.  
  1220. nukek_col {
  1221.   reset=1960 type=formula formulafile=nuclear.frm
  1222.   formulaname=nuclear_m_k center-mag=0.890013/0.607993/1.355191
  1223.   params=1/0/1/0/0/1.2 float=y maxiter=257 inside=0 outside=real
  1224.   periodicity=0 colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1225.   }
  1226.  
  1227. fractured_minibrot {
  1228.   reset=1960 type=formula formulafile=nuclear.frm
  1229.   formulaname=nuclear_m_k center-mag=-14.5982/-5.6488/0.01620407
  1230.   params=0.2/0.4/-0.3/0.3/0/1.2 float=y maxiter=257 inside=0
  1231.   outside=real periodicity=0
  1232.   colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1233.   }
  1234.  
  1235. fracmini_zoom1     {
  1236.   reset=1960 type=formula formulafile=nuclear.frm
  1237.   formulaname=nuclear_m_k passes=t
  1238.   center-mag=7.27982/-0.821195/0.1025574 params=0.2/0.4/-0.3/0.3/0/1.2
  1239.   float=y maxiter=257 inside=0 outside=real periodicity=0
  1240.   colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1241.   }
  1242.  
  1243. fracmini_zoom2     {
  1244.   reset=1960 type=formula formulafile=nuclear.frm
  1245.   formulaname=nuclear_m_k passes=t
  1246.   center-mag=6.66151/-0.658413/0.2913562 params=0.2/0.4/-0.3/0.3/0/1.2
  1247.   float=y maxiter=257 inside=0 outside=real periodicity=0
  1248.   colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1249.   }
  1250.  
  1251. fracmini_zoom3     {
  1252.   reset=1960 type=formula formulafile=nuclear.frm
  1253.   formulaname=nuclear_m_k passes=t
  1254.   center-mag=6.69587/-1.21995/1.400751 params=0.2/0.4/-0.3/0.3/0/1.2
  1255.   float=y maxiter=257 inside=0 outside=real periodicity=0
  1256.   colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1257.   }
  1258.  
  1259. fracmini_zoom4     {
  1260.   reset=1960 type=formula formulafile=nuclear.frm
  1261.   formulaname=nuclear_m_k passes=t
  1262.   center-mag=6.62916/-1.67046/10.29964 params=0.2/0.4/-0.3/0.3/0/1.2
  1263.   float=y maxiter=257 inside=0 outside=real periodicity=0
  1264.   colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1265.   }
  1266.  
  1267. fracmini_zoom1a    {
  1268.   reset=1960 type=formula formulafile=nuclear.frm
  1269.   formulaname=nuclear_m_k passes=t center-mag=7.08534/2.64775/3.387863
  1270.   params=0.2/0.4/-0.3/0.3/0/1.2 float=y maxiter=257 inside=0
  1271.   outside=real periodicity=0
  1272.   colors=000zzz<64>000K0e<61>hlze0K<61>zhqU0U<61>zcz
  1273.   }
  1274.  
  1275.  
  1276. - ---8<--- End --->8---
  1277.  
  1278. - --
  1279.     .*.  Friendship, companionship, love, and having fun are the reasons for
  1280.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  1281.     `*'  Send any and all mail with attachments to the hotmail address please.
  1282. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  1283.  
  1284. - -
  1285. - ------------------------------------------------------------
  1286. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1287. Post Message:   fractint@xmission.com
  1288. Get Commands:   majordomo@xmission.com "help"
  1289. Administrator:  twegner@phoenix.net
  1290. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1291.  
  1292. ------------------------------
  1293.  
  1294. Date: Thu, 19 Mar 1998 02:53:19 -0500 (EST)
  1295. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  1296. Subject: (fractint) BUG REPORT
  1297.  
  1298. The formula parser chokes on Nuclear_M_k if disk video 1024x768 or bigger
  1299. is set, but not with normal video or smaller disk video modes. Suspect a
  1300. bad interaction between disk video code and formula code, which would have
  1301. been avoided if Fractint had been written in C++ (shameless
  1302. C++/objects/encapsulation/information hiding plug here!). When the parser
  1303. chokes it displays a red error box and emits a buzz, then generates a
  1304. blank image. The precise error message resembles "Not enough memory for
  1305. 'formula'", and is useless, since it is clearly wrong. (I have enough
  1306. memory to run "formula" types; obviously, or I'd not have all these PARs
  1307. from hring and so forth...)
  1308.  
  1309. - --
  1310.     .*.  Friendship, companionship, love, and having fun are the reasons for
  1311.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  1312.     `*'  Send any and all mail with attachments to the hotmail address please.
  1313. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  1314.  
  1315. - -
  1316. - ------------------------------------------------------------
  1317. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1318. Post Message:   fractint@xmission.com
  1319. Get Commands:   majordomo@xmission.com "help"
  1320. Administrator:  twegner@phoenix.net
  1321. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1322.  
  1323. ------------------------------
  1324.  
  1325. Date: Thu, 19 Mar 1998 03:22:41 -0500 (EST)
  1326. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  1327. Subject: Re: (fractint) FRACTINT.ORG
  1328.  
  1329. >Yipes....I saw my name.  What do I have to do??
  1330.  
  1331. :)
  1332. Relax, I was just reminding everyone of the wonderful unlimited-flat-rate
  1333. internet access you found out there, as a possible host for fractint.org.
  1334.  
  1335. - --
  1336.     .*.  Friendship, companionship, love, and having fun are the reasons for
  1337.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  1338.     `*'  Send any and all mail with attachments to the hotmail address please.
  1339. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  1340.  
  1341. - -
  1342. - ------------------------------------------------------------
  1343. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1344. Post Message:   fractint@xmission.com
  1345. Get Commands:   majordomo@xmission.com "help"
  1346. Administrator:  twegner@phoenix.net
  1347. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1348.  
  1349. ------------------------------
  1350.  
  1351. Date: Thu, 19 Mar 1998 00:29:21 -0800
  1352. From: "Jay Hill" <ehill1@san.rr.com>
  1353. Subject: Re: (fractint) BUG REPORT
  1354.  
  1355. > From: Paul Derbyshire <ao950@freenet.carleton.ca>
  1356. > 
  1357. > The formula parser chokes on Nuclear_M_k if disk video 1024x768 or bigger
  1358. > is set, but not with normal video or smaller disk video modes. Suspect a
  1359. [...]
  1360. > blank image. The precise error message resembles "Not enough memory for
  1361. > 'formula'", and is useless, since it is clearly wrong. (I have enough
  1362.  
  1363. Reminds me of release 6 of the IBM/360 operating system years ago. No matter 
  1364. how simple my FORTRAN program was, I even had 3 line subroutine stubs like  
  1365.  
  1366. SUBROUTINE X
  1367. RETURN
  1368. END
  1369.  
  1370. the compiler emitted this message
  1371.  
  1372. SUGGEST SUBDIVIDING PROGRAM.
  1373.  
  1374. Care to explain your formula?
  1375.  
  1376. By the way, Paul, you should get a kick out of the last three issues of 
  1377. Fractal of the Night beginning with 
  1378. http://home.san.rr.com/jayrhill/FotN/FotN61.html
  1379.  
  1380. Peter Jakubowicz has taken a swing at the quiz questions posed there. 
  1381. He and I are wondering what you will make of them.  
  1382.  
  1383. Jay
  1384.  
  1385.  
  1386. - -
  1387. - ------------------------------------------------------------
  1388. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1389. Post Message:   fractint@xmission.com
  1390. Get Commands:   majordomo@xmission.com "help"
  1391. Administrator:  twegner@phoenix.net
  1392. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1393.  
  1394. ------------------------------
  1395.  
  1396. Date: Thu, 19 Mar 1998 04:06:56 -0500 (EST)
  1397. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  1398. Subject: Re: (fractint) BUG REPORT
  1399.  
  1400. >Care to explain your formula?
  1401.  
  1402. It colors in one of 4 ranges based on what happens to all 3 critical points.
  1403.  
  1404. All escape -> The largest of the three iteration counts chooses color from
  1405. range 0.
  1406.  
  1407. 2 escape, 1 does not -> The largest iteration for the escapees chooses
  1408. color from range n, n being the critical point that found a finite
  1409. attractor. So, for example, a mini Mandelbrot for critical point 1 in and near
  1410. which critical points 2 and 3 escape, will be colored from range 1, the
  1411. surroundings from range 0, and dendrites in the surroundings caused by
  1412. critical points 2-3 will be seen intersecting the mini Mandelbrot! The
  1413. mini's own dendrites will show up outside the baby, where they will
  1414. overlap other dendrites from 2 and 3.
  1415.  
  1416. 1 escapes, 2 stay but don't converge -> Escaping picks color range and
  1417. colors by its iteration. So if two minis intersect, the intersection will
  1418. "null out" to the third color range, and still the dendrites are visible
  1419. through it.
  1420.  
  1421. 1 escapes, 2 stay and hit same attracting cycle or point -> Whichever
  1422. critical point hit the finite attractor first (determined by rerunning the
  1423. iterations), the other picks the range, and the specific color by
  1424. convergence speed. So if you have a minibrot for critical point 2, and
  1425. in a region inside it critical point 3 converges to its attractor instead
  1426. of infinity, there will be a blob of color from range 3. It will in fact
  1427. typically look like a Julia set corresponding roughly to where in the
  1428. minibrot it is located! Picture a seahorsey connected Julia set embedded
  1429. in a mini Mandelbrot near its seahorse valley inside the cardioid.
  1430.  
  1431. None escape: If they all converge to separate attractors, the color is
  1432. color 0. If two meet the same attractor, the second one to do so picks the
  1433. range and color. If they all meet the same attractor, the last chooses the
  1434. index and the color comesfrom range 0.
  1435.  
  1436.  
  1437. >By the way, Paul, you should get a kick out of the last three issues of 
  1438. >Fractal of the Night beginning with 
  1439. >http://home.san.rr.com/jayrhill/FotN/FotN61.html
  1440.  
  1441. Gonna browse over there shortly. :-)
  1442.  
  1443. >Peter Jakubowicz has taken a swing at the quiz questions posed there. 
  1444. >He and I are wondering what you will make of them.  
  1445.  
  1446. OK...will do. Make something of them that is. No guarantees as to what, yet.
  1447.  
  1448.  
  1449. BTW I came up with the formula quite simply. I wanted a generic rational
  1450. function with critical points at -1, 0, and 1. So I supposed I had
  1451. r(z) = p(z)/q(z) and noted the zeros of the derivative would be zeros of
  1452. p'q-pq', so I set p(z) = az^3+bz^2+cz+d, q(z) = pz^3+qz^2+rz+s, and
  1453. [p'q-pq'](z) = z^3-z. This led to a collection of nonlinear constraints on
  1454. the 8 unknowns. I found these virtually intractable and arbitrarily chose
  1455. p = 0. Eventually I derived all the others in terms of a and c, and so the
  1456. formula was born, with a and c variable. A square root of 3 popped up,
  1457. interestingly in light of the earlier discussion of sqrt(3). I added a
  1458. constant to the formula to generalize it further (constants don't alter
  1459. the derivative). Since the rational evaluated to -ac at z=0, I chose the
  1460. constant at the end to be ack, so that k=1 would produce a
  1461. convenient superattracting fixed point at 0.
  1462.  
  1463. A quick check with w = 1/z and s(w) = 1/r(1/w) verified that infinity was
  1464. superattracting. (s had a zero at zero and also had a derivative a
  1465. multiple of w^3-w, so the critical points z=w=1, z=w=-1 showed up again as
  1466. a check on my math, and w=0 meaning z=infinity as well.)
  1467.  
  1468. Have you run the PAR file and/or explored?
  1469.  
  1470.  
  1471. - --
  1472.     .*.  Friendship, companionship, love, and having fun are the reasons for
  1473.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  1474.     `*'  Send any and all mail with attachments to the hotmail address please.
  1475. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  1476.  
  1477. - -
  1478. - ------------------------------------------------------------
  1479. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1480. Post Message:   fractint@xmission.com
  1481. Get Commands:   majordomo@xmission.com "help"
  1482. Administrator:  twegner@phoenix.net
  1483. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1484.  
  1485. ------------------------------
  1486.  
  1487. Date: Thu, 19 Mar 1998 03:56:41 PST
  1488. From: "Koppens,Ton" <Ton_Koppens.rxnl@eur.xerox.com>
  1489. Subject: (fractint) Thanks par, volume 1
  1490.  
  1491. Having been a lurker now for some months I finally found the time to 
  1492.  play around with fractint and to put some things learned from this 
  1493.  list into practice.
  1494. Perhaps I'm a  bit too enthusiast but I would like to share the results 
  1495.  with you.
  1496. Consider it as a big thank you to all contributors.
  1497. I had some trouble copying the whole par into one mailnote, so it comes 
  1498.  in 4 volumes.
  1499. Most of the FRM's come from the orgform collection.
  1500.  
  1501. Greetings to you all,
  1502.  
  1503.  
  1504. Ton Koppens
  1505.  
  1506.  
  1507. ========================================================================
  1508.  
  1509. tk-gj-01           { ; CalcTime   0:02:25.07 at1024x768 on a 486DX 100
  1510.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1511.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1512.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1513.   function=sin/sqr/sinh center-mag=6.783e-005/1.0165e-005/0.6666712
  1514.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265 decomp=256
  1515.   colors=000VZi<6>UhoX8W<42>7MXW8W<30>10EX8X<25>eLvX8W<44>GIfX9W<26>doUV9Y\
  1516.   <11>4PvX8W<24>XPUXCVXQU<17>WbS<6>z_C<3>k_E
  1517.   }
  1518.  
  1519. tk-gj-02           { ; CalcTime   0:02:25.07 at1024x768 on a 486DX 100
  1520.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1521.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1522.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1523.   function=sin/sqr/sinh center-mag=6.783e-005/1.0165e-005/0.6666712
  1524.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265 decomp=256
  1525.   colors=000AP0<28>mZ10N0<57>j7g0N0<62>g`B0N0<66>De10N0Ee1<7>Fg1Gh2Gh2Hh3I\
  1526.   h4<19>WhO
  1527.   }
  1528.  
  1529. tk-gj-03           { ; CalcTime   0:00:59.26 at1024x768 on a 486DX 100
  1530.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1531.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1532.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1533.   function=sin/sqr/sinh center-mag=5.5343e-005/1.055e-005/1.344096
  1534.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265 float=y
  1535.   maxiter=483 inside=bof60 decomp=128; colors=@phong1.map
  1536.   colors=000<59>00b00c00d00e01e<29>0ce0ee0ee<30>LzzLzzMzy<60>yzMzzLyyL<29>\
  1537.   22d00e00d<30>000
  1538.   }
  1539.  
  1540. tk-gj-04           { ; CalcTime   0:00:59.26 at1024x768 on a 486DX 100
  1541.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1542.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1543.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1544.   function=sin/sqr/sinh center-mag=5.5343e-005/1.055e-005/1.344096
  1545.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265 float=y
  1546.   maxiter=483 inside=bof60 decomp=128
  1547.   colors=000_2P<19>l3Y100<30>ZTP100<46>ojR000<46>eMS010fNT<19>xXdS0A<11>Id\
  1548.   j<70>f7n
  1549.   }
  1550.  
  1551. tk-gj-05           { ; CalcTime   0:00:59.26 at1024x768 on a 486DX 100
  1552.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1553.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1554.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1555.   function=sin/sqr/sinh center-mag=5.5343e-005/1.055e-005/1.344096
  1556.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265 float=y
  1557.   maxiter=483 inside=bof60 decomp=128
  1558.   colors=000MUZ<2>fyKd7_QRb<2>xlYlaMCaU9tJ0dNBJd7Ie2HgDsHNNf<2>lZrORnYYzES\
  1559.   UD_KCh9GHZIEUAV`5eY0qUCjEJHfOEiTBlJGUNCKS7AKUc<2>_zdKVZPfTEbKCv0TKegLgJI\
  1560.   V<2>V94FVgFfkGroETW<2>Bv6iYgGBgI2kbZFMNW<2>gY5CXV8iM4vDCOU9TJ6Y8EKcDJcj7\
  1561.   4EWfDgiCtmNLX<2>kPCNPh<2>mfyAVS4fFNPcWVdd`eUTcibcylbDpVGLV<2>MR1EOfCSiAX\
  1562.   mISf<2>SrrRFfb9iGNWIRNKVERKTbKHoL5QP_<2>xcOPZdZnfrW9BIY7GRJKc<2>XHcCNh<2\
  1563.   >1WxEId<2>ACiCZl9nuWxFg3rRFbbAan4`MLfTNj_PmfRqlRBCTb<2>0vYTYXgkQvzJGHh<2\
  1564.   >K7zkapGdNHz6GS_<2>LrNbyaeE9QFea9hm3kbASFUc<2>CwaKNeQQhWTkCNg<2>2YtHdRPK\
  1565.   c<2>sKdHRNJZ5PFXZAPi4HPUb<2>sx_oUNEMaDOZCRWaEOx87BHc7EbKL_<2>_RMKK_PLWVM\
  1566.   SKgDBSi6`p1iwLSOo7xuVV<2>5l4<3>zSe<2>wlUb`_<3>FB21mm<2>576FM3Qa0fzS<2>hA\
  1567.   G<3>PPD<2>mHh<2>KJeVZC
  1568.   }
  1569.  
  1570. tk-gj-06           { ; CalcTime   0:00:57.01 at1024x768 on a 486DX 100
  1571.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1572.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1573.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1574.   function=sin/sqr/sinh center-mag=0.191675/0.109528/13.33363
  1575.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265 float=y
  1576.   maxiter=483 decomp=256
  1577.   colors=CCCQCM<16>`76FJd<27>hpwMLd<4>z_`EId<58>E7kD6lEId<59>jISFKc<14>WvA\
  1578.   EId<42>iOOEIdjOO<11>sQJtRItRItRI<2>tRJ
  1579.   }
  1580.  
  1581. tk-gj-07           { ; CalcTime   0:00:38.72 at1024x768 on a 486DX 100
  1582.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1583.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1584.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1585.   function=sin/sqr/sinh center-mag=0.191682/0.109528/13.33363
  1586.   params=1.5468/1.231568/0.89889/0.02546848/1.878989/1.2265
  1587.   maxiter=147 inside=bof61 decomp=128
  1588.   colors=000_OG<4>bM4VRa<44>IyXWSa<7>icdVRa<27>sMJVRa<40>UR5TQ4VR`<30>Z_1V\
  1589.   Ra<9>`PSVR`<19>cP1VRa<44>c_xVRaVSaVTaVR_VTa<6>VYb
  1590.   }
  1591.  
  1592. tk-gj-08           { ; CalcTime   0:02:04.24 at1024x768 on a 486DX 100
  1593.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1594.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1595.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1596.   function=cosxx/recip/cosh
  1597.   center-mag=6.783e-005/1.0165e-005/0.6666712
  1598.   params=1.35465/1.9713/0.546/0.878989/1.78/1.0897 maxiter=483
  1599.   inside=zmag decomp=256 biomorph=1
  1600.   colors=000nDh<13>j6yj6zk7y<30>zYpzYpxXo<37>01F<20>BS8f6E<17>416<35>Qba<1\
  1601.   5>1MV<44>yU5<29>oEf
  1602.   }
  1603.  
  1604. tk-gj-09           { ; CalcTime   0:02:21.93 at1024x768 on a 486DX 100
  1605.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1606.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1607.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1608.   function=cosxx/recip/cosh center-mag=-0.617719/-0.606247/2.380953
  1609.   params=1.35465/1.9713/0.546/0.878989/1.78/1.0897 maxiter=483
  1610.   inside=zmag decomp=256 biomorph=1
  1611.   colors=000nDh<13>j6yj6zk7y<30>zYpzYpxXo<37>01F<20>BS8f6E<17>416<35>Qba<1\
  1612.   5>1MV<44>yU5<29>oEf
  1613.   }
  1614.  
  1615. tk-gj-10           { ; CalcTime   0:02:21.93 at1024x768 on a 486DX 100
  1616.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1617.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1618.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1619.   function=cosxx/recip/cosh center-mag=-0.617719/-0.606247/2.380953
  1620.   params=1.35465/1.9713/0.546/0.878989/1.78/1.0897 maxiter=483
  1621.   inside=zmag decomp=256 biomorph=1
  1622.   colors=0000fz<45>02z01z01z11y<92>kN2lO1lO1lP1<61>zz0zzQ<45>zzz
  1623.   }
  1624.  
  1625. tk-gj-11           { ; CalcTime   0:00:39.44 at640x350 on a 486DX 100
  1626.                      ; Image Copyright 14 Mar 1998 by Ton Koppens
  1627.                      ; e-mail:Ton_Koppens.RXNL@eur.xerox.com
  1628.   reset=1960 type=formula formulafile=_g.frm formulaname=gravijul
  1629.   function=tan/cotan/exp
  1630.   center-mag=-1.59531/-0.00234222/2.447421/1.0906
  1631.   params=1.0876/0.945435/1.878/1.1264/0.9878/0.2135 maxiter=483
  1632.   inside=zmag decomp=256 biomorph=1
  1633.   colors=000VLPhFBhHFjHDVLRhHDjHFjJFjHHTNRlJDjJHXNRVNRVNTlJFnJFjLHhLJhHDhL\
  1634.   LjLJlJHZPTlLHfNNnLFnJHlLJpLHpLJhNLjNJnLHjNLnLJlNLlNJpNHnNHlPNlPLpNJnNJnP\
  1635.   JrNJpPHpPLpPJlRNnPLrNHrPHpRJtPJjJFjHHTNRlJDjJHXNRVNRVNTpTNtRLnTNtRJpTLrT\
  1636.   LpVPtTJtTNrTJnVPpVNtTLnVNrVLrVPtVLrVNtVJtVNpZPnXPpXNpXPtZNrXNtZPpZRrXPtX\
  1637.   LnZRrZPpXRnXRtXPpZTtXNrZRrXRtZRp`Vt`Pp`Ttpttrt55793773553973793995773975\
  1638.   7559959759B3995BB5775B97BD5BD59B5BB59979F5DD79D7DH59B7BF5BF59H5BB79D7BJ5\
  1639.   BD9BH79F7BH7BJ59F79H7DD9DF7DH9BH9FF9FJ7BF9BH9DJ7DF9DH9HL7BJ9FJ9DN7BJ9BJB\
  1640.   FL9DJBDJ9HN9BL9FN9DN9FL9BJBJL9HLBFP9BNBFLBDJBHP9DR9BNBDNBHPBFPBDLBJNBJRB\
  1641.   DT99RBFLBHT9BX99V9BTBDPBHNDFX9BV99JDJLDJNDJNDHZ99LDHXBBZ9BPDFNDLPDHPDLPD\
  1642.   JNFJNFLRDJ`BBZBBRDHbBBNHNPFJRFJNHLRFLPFL`DBRHNPHLTFJRHLPHNdBBTFLPJNbDBTH\
  1643.   NRJPTHLRJNTJPfDBVHLTJNVHNdDBVJPTLPfFDXJNdFDfFBVJNhFDTLR
  1644.   }
  1645.  
  1646. frm:gravijul {; r^(-2) Mark Christenson 1/25/98
  1647.    ; defaults: p1 = (1,0) p2 = (0,0) p3 = (4,0)
  1648.   z = pixel:
  1649.   w = fn1(z)
  1650.   z = fn3(p1/fn2(w*w)) + p2
  1651.   |z| < p3
  1652.   ;SOURCE: 98msg.frm
  1653. }
  1654.  
  1655. frm:ManInTheOzone (XAXIS_NOPARM) {
  1656.   z=p1, x=1:
  1657.   (x<10)*(z=sqr(z)+pixel),
  1658.   (10<=x)*(x<20)*(z=cos(z)+pixel),
  1659.   (20<=x)*(z=sin(z)+pixel),
  1660.   x=x+1,
  1661.   |z|<=4
  1662.   ;SOURCE: form1.frm
  1663. }
  1664.  
  1665. frm:OblManPlusLow {; Jim Muth
  1666.   z=p1+pixel, c=p2+(p3*pixel):
  1667.   z=sqr(z)+c,
  1668.   |z| <=4
  1669.   ;SOURCE: 97msg.frm
  1670. }
  1671.  
  1672. frm:zmincoszb {; David Walter
  1673.   z =c= pixel:
  1674.   z10=z*z+c
  1675.   fz = z - cos(z10);
  1676.   fdashz = 1 + sin(z);
  1677.   z = z - fz/(fdashz + P1);
  1678.   0.0001 <= |fz|
  1679.   ;SOURCE: sg-bc-bj.frm
  1680. }
  1681.  
  1682. frm:IslandOfChaos (XAXIS_NOPARM) {
  1683.   z=p1, x=1:
  1684.   (x<10)*(z=sqr(z)+pixel),
  1685.   (10<=x)*(z=sin(z)/cosxx(z)+pixel),
  1686.   x=x+1,
  1687.   |z|<=4
  1688.   ;SOURCE: choice.frm
  1689. }
  1690.  
  1691. frm:au0 {
  1692.   z=pixel,y=fn1(z-1)^fn1(z),x=(z-1)*fn1(z+1),t=(z/2)*fn1(z-1):
  1693.   z=fn1(fn2(t^y)/fn3(x^t))^fn4(t^z)
  1694.   |z|<4
  1695.   ;SOURCE: ad1_miss.frm
  1696. }
  1697.  
  1698. frm:Olio_3 (XAXIS) {
  1699.   z = pixel, fpix = fn1(pixel) + p1:
  1700.   z = z*z + pixel
  1701.   z = z * fpix
  1702.   z = fn2(1/z)
  1703.   |z| < 4
  1704.   ;SOURCE: olio.frm
  1705. }
  1706.  
  1707. frm:Olio_Srand {
  1708.   z = pixel :
  1709.   z = z + p1
  1710.   z = z * z + srand(z)
  1711.   |z| < 4
  1712.   ;SOURCE: olio.frm
  1713. }
  1714.  
  1715. frm:BirdOfPrey (XAXIS_NOPARM) { ; Optimized by Sylvie Gallet
  1716.   z = p1 :
  1717.    z = cosxx(sqr(z) + pixel) + pixel
  1718.     |z| <= 4
  1719.   ;SOURCE: fract196.frm
  1720. }
  1721.  
  1722. frm:HorLineia (ORIGIN) {; Tom Schumm
  1723.                     ; Attempt to change the shape of the escape boundry
  1724.   z = Pixel, z = Sqr(z):  ; Just like a julia
  1725.   z = z + p1
  1726.   z = Sqr(z)
  1727.   imag(z) <= 4          ; Different escape boundry
  1728.   ;SOURCE: phong2.frm
  1729. }
  1730.  
  1731. frm:hypercomplex {; Chuck Ebbert -- must use periodicity=0
  1732.    ; P1 is (cj,ck), bailout is real(p2) (default 64)
  1733.   z = zi = 0,
  1734.   t = (64 * (real(p2)<=0) + real(p2) * (0<real(p2)) ):
  1735.   a = z - imag(zi) + flip(real(zi)),
  1736.   b = z + imag(zi) - flip(real(zi)),
  1737.   a = fn1(a),
  1738.   b = fn1(b),
  1739.   z = (a+b)/2 + pixel,
  1740.   zi = (imag(a)-imag(b)+flip(real(b))-flip(real(a)))/2 + p1,
  1741.   |z| + |zi| <= t
  1742.   ;SOURCE: msg1.frm
  1743. }
  1744.  
  1745. frm:F'Cetjoz {; fn1 added by Jon Horner
  1746.   z=pixel, c=p1:
  1747.   z=fn1(z)+c,
  1748.   c=c+p2/z,
  1749.   |z| <= 4
  1750.   ;SOURCE: explode.frm
  1751. }
  1752.  
  1753. frm:FlyingSquirrelC (XAXIS_NOPARM) {
  1754.   z=p1,x=|z|:
  1755.   (z=sin(z)/cosxx(z)+pixel)*(1<x)+(z=z)*(x<=1),
  1756.   z=sqr(z)+pixel,x=|z|,
  1757.   x<=4
  1758.   ;SOURCE: choice.frm
  1759. }
  1760.  
  1761. - -
  1762. - ------------------------------------------------------------
  1763. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1764. Post Message:   fractint@xmission.com
  1765. Get Commands:   majordomo@xmission.com "help"
  1766. Administrator:  twegner@phoenix.net
  1767. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1768.  
  1769. ------------------------------
  1770.  
  1771. End of fractint-digest V1 #138
  1772. ******************************
  1773.  
  1774.