home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / grafika / fraktaly / fractxtr / frm / crazynwt.frm < prev    next >
Text File  |  1994-06-04  |  5KB  |  180 lines
  1. hints {; All of these need float . Nearly all are distorted Newtons.
  2.        }
  3.  
  4. Komplexmatsch {
  5.      z=pixel+1/fn1(p2*pixel)+1/fn2(p2*pixel):
  6.      z=((p1-1)*z^p1+1)/(p1*z^(p1-1)); 
  7.      0.001<=|z^p1-1|
  8. }
  9.  
  10.  
  11. Matsch^-1 { ;davon ist der K-Matsch die Julia-Menge
  12.      Grund=pixel+1/(fn1(p2*pixel)-p1)+1/(fn2(p2*pixel)-p1),
  13.      z=Grund:
  14.             z=((Grund-1)*z^Grund+1)/(Grund*z^(Grund-1)); 
  15.             0.001<=|z^Grund-1|
  16. }
  17.  
  18.  
  19.  
  20. juli^-1 (XAXIS){ ;From this Newton is the Julia-Set
  21.     z=pixel:
  22.             z=((pixel-1)*z^pixel+1)/(pixel*z^(pixel-1)); 
  23.             0.001<=|z^pixel-1|
  24. }
  25.  
  26. Newton4fn12 {; 
  27.   z = pixel+1/(fn1(p2*pixel-p1))+1/(fn2(p2*pixel-p1)), Root = 1:
  28.    z3 = z*z*z;
  29.    z4 = z3 * z;
  30.    z = (3 * z4 + Root) / (4 * z3);
  31.     .004 <= |z4 - Root|
  32.   }
  33.  
  34. Newton5fn {; 
  35.   z = pixel+1/fn1(p2 * pixel-p1) :
  36.   z = (4*z^5+1)/(5*z^4); 
  37.   0.001<=|z^5-1|
  38.   }
  39. Newton5fn12 {; 
  40.   z = pixel+1/(2 * fn1(p2 * pixel-p1)) + 1/(2 * fn2(p2 * pixel-p1)) :
  41.   z = (4*z^5+1)/(5*z^4); 
  42.   0.001<=|z^5-1|
  43.   }
  44.  
  45. N5fn1[fn2] {; 
  46.   z = pixel+1/fn1(p2 * fn2(pixel-p1)) , Root = 1:
  47.   z = (4 * z^5 + Root) / (5 * z^4);
  48.   0.001 <= |z^5 - Root|
  49.   }
  50.  
  51. MtNwt5_1/fn12 {; 
  52.   z = 1/fn1(p1 * pixel) + 1/fn2(p2 * pixel), Root = 1:
  53.   z = (4 * z^5 + Root) / (5 * z^4);
  54.   0.001 <= |z^5 - Root|
  55.   }
  56. MtNwt5_fn12 {; 
  57.   z = fn1(p1 * pixel) + fn2(p2 * pixel), Root = 1:
  58.    z = (4 * z^5 + Root) / (5 * z^4);
  59.     .001 <= |z^5 - Root|
  60.   }
  61.  
  62. PixNwt {; 
  63.   z = pixel , Root = fn1(p2 * pixel):
  64.   z = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  65.     .001 <= |z^p1 - Root|
  66.   }
  67.  
  68. PixNwt1/ {; 
  69.   z = pixel , Root = 1/(2*fn1(p2 * pixel)) + 1/(2*fn2(p2 * pixel)):
  70.   z = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  71.     .001 <= |z^p1 - Root|
  72.   }
  73. PixNwtpwr {; 
  74.   z = pixel , Root = pixel^p2 :
  75.   z = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  76.     .001 <= |z^p1 - Root|
  77.   }
  78. MtNwtfn1[fn2] {; 
  79.   z = fn1(fn2(p2*pixel)) , Root = 1 :
  80.   z = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  81.     .001 <= |z^p1 - Root|
  82.   }
  83. Nwtp+fn123 {; 
  84.   z = pixel+fn1(fn2(fn3(p2*pixel)))+fn1(fn3(fn2(p2*pixel))) , Root = 1 :
  85.   z = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  86.     .001 <= |z^p1 - Root|
  87.   }
  88. Nwtfn123 {; 
  89.   z = fn1(fn2(fn3(p2*pixel)))+fn1(fn3(fn2(p2*pixel))) , Root = 1 :
  90.   z = ((p1-1) * z^p1 + Root) / (p1 * z^(p1-1));
  91.     .001 <= |z^p1 - Root|
  92.   }
  93.  
  94.  
  95.  
  96. Nwtfn12rot { ;The factor exp(p1*...) rotates the pixels
  97.   ;according to their distance from the origin if p1 is 
  98.   ;chosen complex.
  99.   z = pixel+1/fn1(p2*pixel*exp(p1*fn2(|pixel|))) , Root = 1 :
  100.   z = (4 * z^5 + Root) / (5 * z^4);
  101.     .001 <= |z^5 - Root|
  102.   }
  103.  
  104. Nwtsqzz { ; 
  105.   ;The factor exp(p1*...) rotates the pixels
  106.   ;according to their distance from the origin if p1 is 
  107.   ;chosen complex.
  108.   z = pixel*fn1(p2*exp(p1*fn2(|pixel|)*imag(pixel))) , Root = 1 :
  109.   z = (4 * z^5 + Root) / (5 * z^4);
  110.     .001 <= |z^5 - Root|
  111.   }
  112.  
  113. Nwtsqzz2 { ; 
  114.   z = pixel*fn1(p2*exp(p1*fn2(|pixel|*imag(pixel)))) , Root = 1 :
  115.   z = (4 * z^5 + Root) / (5 * z^4);
  116.     .001 <= |z^5 - Root|
  117.   }
  118.  
  119. Nwtwav { 
  120.   ;pix/|pix| is a complex number with length 1 and the direction of 
  121.   ;the pixel.The faktor fn1(..) allows you to scale it the way 
  122.   ;you want.  fn1=ident ,p2=1 should be the normal Newton.
  123.   z = pixel/|pixel|*fn1(p2*|pixel|) , Root = 1 :
  124.   z = ((p1-1)*z^p1+Root)/(p1*z^(p1-1));
  125.     .001 <= |z^p1-Root|
  126.   }
  127.  
  128. Nwtbumps { 
  129.   z = fn1(pixel/|pixel|)*fn2(p2*real(pixel)*imag(pixel)) , Root = 1 :
  130.   z = ((p1-1)*z^p1+Root)/(p1*z^(p1-1));
  131.     .001 <= |z^p1-Root|
  132.   }
  133.  
  134. Nwtbumps2 { 
  135.   z = fn1(pixel/|pixel|)*fn2(p2*real(pixel)/imag(pixel)) , Root = 1 :
  136.   z = ((p1-1)*z^p1+Root)/(p1*z^(p1-1));
  137.     .001 <= |z^p1-Root|
  138.   }
  139.  
  140. Nwtsimpl { 
  141.   z = fn1(p2*pixel)/|pixel| , Root = 1 :
  142.   z = ((p1-1)*z^p1+Root)/(p1*z^(p1-1));
  143.     .001 <= |z^p1-Root|
  144.   }
  145.  
  146. Nwttst { 
  147.   z=pixel
  148.   t = pixel*fn1(p2*|pixel|) , Root = 1 :
  149.   z = ((t-1)*z^t+Root)/(t*z^(t-1));
  150.     .001 <= |z^t-Root|
  151.   }
  152.  
  153. Nwtbumps3 { 
  154.   z = pixel + fn1( fn2( fn3( (pixel/|pixel|) * exp( p2 * |pixel|)))) , 
  155.   Root = 1 :
  156.   z = ((p1-1)*z^p1+Root)/(p1*z^(p1-1));
  157.     .001 <= |z^p1-Root|
  158.   }
  159.  
  160. Nwtvar1 { 
  161.   z = pixel , Root = 1 :
  162.   z = ((p2-1)*z^p1+Root)/(p2*z^(p1-1));
  163.     .001 <= |z^p1-Root|
  164.   }
  165. Nwtvar3 { 
  166.   z = pixel , Root = 1 :
  167.   z = (real(p1)*z^5+Root)/(5*z^4);
  168.     .001 <= |imag(p1)*z^p2-Root|
  169.   }
  170. Nwtvar4 {; there are real & imag just to have more params !
  171.   ; don't start whith this , it's a grown one.
  172.   ; To use it try to understand the basics it's made of.(var1 & p+fn123 &..)
  173.   f = pixel*fn3(exp(fn2(|pixel|)*imag(pixel)*0.1*(pixel-conj(pixel)))) , 
  174.   z = f+fn1(fn2(fn3(imag(p1)*f)))+fn1(fn3(fn2(imag(p1)*f)))  , 
  175.   Root = 1 :
  176.   z = ((p2-1)*z^real(p1)+Root)/(p2*z^(real(p1)-1));
  177.     .001 <= |z^real(p1)-Root|
  178.   }
  179.  
  180.