home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / grafika / fraktaly / fractxtr / frm / fractmix.frm < prev    next >
Encoding:
Text File  |  1994-06-08  |  2.4 KB  |  83 lines
  1. hints { ;Don't even try without fpu , nwtnwt is the best one 
  2.        }
  3.  
  4. MandNwtX {
  5.   ; Note that floating-point is required to make this compute accurately
  6.   z = pixel , Root = 1:
  7.    f=z*z+pixel;
  8.    z = ((f-1) * z^f + Root) / (f * z^(f-1));
  9.     .001 <= |z^f - Root|
  10.   }
  11.  
  12. MandNwtM{; 
  13.   ; Note that floating-point is required to make this compute accurately
  14.   z = pixel , Root = 1:
  15.    f=z*z+pixel;
  16.    z = ((pixel-1) * f^pixel + Root) / (pixel * f^(pixel-1));
  17.     .001 <= |f^pixel - Root|
  18.   }
  19.  
  20. NwtMand2 {; 
  21.   ; Note that floating-point is required to make this compute accurately
  22.   z = pixel , Root = 1:
  23.    f = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  24.    z=z*z+f;
  25.     .001 <= |z^p1 - Root|
  26.   }
  27. NwtMand3 {; 
  28.   ; Note that floating-point is required to make this compute accurately
  29.    f=pixel ,z=pixel, Root = 1:
  30.    f = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  31.    z=f*f+pixel;
  32.     .001 <= |z^p1 - Root|
  33.   }
  34. NwtMandM {; 
  35.   ; Note that floating-point is required to make this compute accurately
  36.   z = pixel , Root = 1:
  37.    f = ((pixel-1) * z^pixel + Root) / (pixel * z^(pixel-1));
  38.    z=f*f+pixel;
  39.     .001 <= |z^pixel - Root|
  40.   }
  41.  
  42. MandMand {; 
  43.   ; Note that floating-point is required to make this compute accurately
  44.    f=pixel ,z=pixel:
  45.    f=z*z+pixel;
  46.    z=f*f+pixel;
  47.    |f|<=4}
  48.   }
  49. MandMnzpwr {;shit xept p1=2 
  50.   ; Note that floating-point is required to make this compute accurately
  51.    f=pixel ,z=pixel:
  52.    f=z^p1+pixel;
  53.    z=f*f+pixel;
  54.    |f|<=4}
  55.   }
  56.  
  57. ManzNwt {; 
  58.   ; Note that floating-point is required to make this compute accurately
  59.   z = pixel , Root = 1:
  60.    f=z^p2+pixel;
  61.    z = ((p1-1) * f^p1 + Root) / (p1 * f^(p1-1));
  62.     .001 <= |f^p1 - Root|
  63.   }
  64.  
  65. NwtNwt {;p1=k*p2 k=1,2,3,...   fn1,fn2=recip,ident  rest 4u to test
  66.   ; Note that floating-point is required to make this compute accurately
  67.   f=fn1(pixel) ,z = fn2(pixel) , Root = 1:
  68.    f = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  69.    z = ((p2-1) * f^p2 + Root) / (p2 * f^(p2-1));
  70.     .001 <= |f^p2 - Root|
  71.   }
  72.  
  73. NwtNwtNwt {;p1=k*p2 k=1,2,3,...   fn1,fn2=recip,ident  rest 4u to test
  74.   ; Note that floating-point is required to make this compute accurately
  75.   f=fn1(pixel) ,z = fn2(pixel) ,g = fn3(pixel) , 
  76.   u=real(p1) ,v=imag(p1) , Root = 1:
  77.    g = ((u-1) * z^u + Root) / (u * z^(u-1));
  78.    f = ((v-1) * g^v + Root) / (v * g^(v-1));
  79.    z = ((p2-1) * f^p2 + Root) / (p2 * f^(p2-1));
  80.     .001 <= |f^p2 - Root|
  81.   }
  82.  
  83.