home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / grafika / fraktaly / fractxtr / frm / dons.frm < prev    next >
Text File  |  1994-02-07  |  2KB  |  84 lines
  1. ; formulas accessed from my PARS, lumped in here for convenience.
  2. ; Sources are noted ... thanks, folks 
  3. ; 
  4. ; >>don CIS:76704,41
  5.  
  6. ; from SKINNER.FRM - Lee Skinner
  7.  
  8.  
  9. CGNewtonSinExp (XAXIS) {
  10.         z=pixel:
  11.         z1=exp(z);
  12.         z2=sin(z)+z1-z;
  13.         z=z-p1*z2/(cos(z)+z1), .0001 < |z2|
  14.    }
  15.    
  16. Leeze (XAXIS) = {
  17.                        s = exp(1.,0.), z = Pixel, f = Pixel ^ s:
  18.                        z = cosxx (z) + f, |z| <= 50 }
  19.  
  20. FractalFenderC(XAXIS_NOPARM) {
  21.                        z=p1,x=|z|:
  22.                        (z=cosh(z)+pixel)*(1<x)+(z=z)*(x<=1),
  23.                        z=sqr(z)+pixel,x=|z|,
  24.                        x<=4 }
  25.  
  26. TSinh (XAXIS) = {
  27.         z = c = sinh(pixel):
  28.         z = c ^ z,
  29.         z <= (p1 + 3)
  30.         }
  31.  
  32. ScSkLMS(XAXIS) { z = pixel, TEST = (p1+3): z = log(z) - sin(z), |z|<TEST }
  33. ;
  34. ;
  35.  
  36. ;REB004.FRM - Ron Barnett
  37.  
  38. REB004A = {; Ron Barnett, 1993
  39.    z = pixel:
  40.    z =p1*fn1(z) + p1*p1*fn2(p2*z) + pixel, |z| <= 100
  41.    }
  42.  
  43. ;
  44. ;
  45.  
  46. ;LIAR.FRM - Chuck Ebbert
  47.  
  48. Liar3 { ; by Chuck Ebbert.
  49.         ; X: X is true to P1 times the extent that Y is true
  50.         ; Y: Y is true to the extent that X is false.
  51.         ; Sequential reasoning.  P1 usually 0 to 1.  P1=1 is Liar2 formula.
  52.         ; x(n+1) = 1 - abs(p1*y(n)-x(n) );
  53.         ; y(n+1) = 1 - abs((1-x(n+1) )-y(n) );
  54.    z = pixel:
  55.    x = 1 - abs(imag(z)*real(p1)-real(z) )
  56.    z = flip(1 - abs(1-real(x)-imag(z) ) ) + real(x)
  57.   |z| <= 1;
  58. }
  59.  
  60.  
  61. Liar4 { ; by Chuck Ebbert.
  62.         ; X: X is as true as (p1+1) times Y
  63.         ; Y: Y is as true as X is false
  64.         ; Calculate new x and y values simultaneously.
  65.         ; Real part of p1 changes probability.  Use floating point.
  66.         ; y(n+1)=abs((1-x(n) )-y(n) ), x(n+1)=1-abs(y(n)-x(n) )
  67.   z = pixel, p = p1 + 1:
  68.    z = 1-abs(imag(z)*p-real(z))+flip(1-abs(1-real(z)-imag(z)));
  69.     |z| <= 1
  70.     }
  71.  
  72. ;Tim Wegner - from a message on the board in GraphDev 1/10/94
  73.  
  74. Newton_poly2 { ; Tim Wegner - use float=yes
  75.    ; fractal generated by Newton formula z^3 + (c-1)z - c
  76.    ; p1 is c in above formula
  77.    z = pixel, z2 = z*z, z3 = z*z2:
  78.    z = (2*z3 + p1) / (3*z2 + (p1 - 1));
  79.    z2 = z*z;
  80.    z3 = z*z2,
  81.   .004 <= |z3 + (p1-1)*z - p1|
  82.   }
  83.  
  84.