home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / FRM / ROBKLEP1.FRM < prev    next >
Encoding:
Text File  |  1994-12-25  |  3.4 KB  |  185 lines
  1. ; this .FRM file by Robert Klep, (c)opyright 1994
  2.  
  3. comment {
  4.      These fractal-formulae were created (some probably already exist) by:
  5.  
  6.                 Robert Klep, robertk@stack.urc.tue.nl
  7.  
  8.      Please use them as you like, adjusting/rewriting them.
  9.      If you have some nice things yourself, please mail them to me, I'm
  10.      always looking for nice new formulae.
  11.      }
  12.  
  13. MandelVar1 (XAXIS) {; try p1=0.367879441 (= 1/e)
  14.    c = z = pixel:
  15.    z = sqr(z) + c + p1;
  16.     |z| <= 4
  17.   }
  18.  
  19. MandelVar2 (XAXIS) {;  
  20.    c = z = 1 / pixel:
  21.    z = sqr( sqr(z*c)) + c + p1;
  22.     |z| <= 4
  23.   }
  24.  
  25. MandelVar3 (XAXIS) {;   inverted MandelVar2
  26.    c = z = pixel:
  27.    z = sqr( sqr(z*c)) + c + p1;
  28.     |z| <= 4
  29.   }
  30.  
  31. Fn1 (XAXIS) {;  
  32.    c = z = pixel:
  33.    z = fn1(z) + c + p1;
  34.   }
  35.  
  36. MandelSin1 (XAXIS) {;  
  37.    c = z = pixel:
  38.    z = sqr(z * sin(z)) + c + p1;
  39.    |z| <= 4  
  40.   }
  41.  
  42. MandelLog1 (XAXIS) {;  
  43.    c = z = pixel:
  44.    z = sqr(log(z^z)) + c + p1;
  45.    |z| <= 4
  46.   }
  47.  
  48. SinCos1 (XAXIS) {;  
  49.    c = z = pixel:
  50.    z = sin (cos(z^c)) +c +p1;
  51.    |z| <= 4
  52.   }
  53.  
  54. Sin1 (XAXIS) {;  
  55.    c = z = pixel:
  56.    z = (1-(z^sin(1.1-z))) + c + p1;
  57.    |z| <= 4
  58.   }
  59.  
  60. Cos1 (XAXIS) {;  
  61.    c = z = pixel:
  62.    z = (1-(z^cos(1.1-z))) + c + p1;
  63.    |z| <= 4
  64.   }
  65.  
  66. MandelVar4 (XAXIS) {;  
  67.    c = z = pixel:
  68.    z = sqr(z) + (1/c) + p1;
  69.    |z| <= 4
  70.   }
  71.  
  72. MandelVar5 (XAXIS) {;  
  73.    c = z = pixel:
  74.    z = sqr(z*cos(tan(c))) + exp(c) + p1;
  75.    |z| <= 4
  76.   }
  77.  
  78. MandelVar6 (XAXIS) {;  
  79.         c = z = pixel:
  80.         z = (sqr(1/sin(1+z)+ c))*c + c + p1;
  81.         |z| <= 4
  82.         }
  83.  
  84. MandelVar7 (XAXIS) {;  
  85.         z = pixel:
  86.         c = log(1+z);
  87.         z = sqr(z) + c + p1;
  88.         |z| <= 4
  89.         }
  90.  
  91. Robert1 (XAXIS) {;  
  92.         c = z = pixel:
  93.         z = ((z+c)+(z*z+c*c)+(z*z*z+c*c*c)) + c; 
  94.         |z| <= 4
  95.         }
  96.  
  97. MandelVar8 (XAXIS) {;   
  98.         c = z = pixel:
  99.         z = ((z*c)/(z*c+2.718281828)+sin(z))^2 + c;
  100.         |z| <= 4
  101.         }
  102.  
  103. DivMandel1 (XAXIS) {;  
  104.         c = z = pixel:
  105.         z = (z^2+c)/(z^p1-c) + c;
  106.         |z| <= 4
  107.         }
  108.  
  109. DivMandel2 (XAXIS) {;   try real(p1)=1, imag(p1)=2
  110.         z = pixel:
  111.         c = z^p1
  112.         z = (z^4+c)/(z^3+c);
  113.         |z| <= 4
  114.         }
  115.  
  116. DivMandel3 (XAXIS) {;  
  117.         z = pixel:
  118.         c = z^p1 + srand(3)
  119.         z = (z^4+c)/(z^3+c) + srand(5)
  120.         |z| <= 4
  121.         }
  122.  
  123. Fn2 (XAXIS) {;  
  124.         c = z = pixel:
  125.         z = fn1(z)*fn2(z*z) + c
  126.         }
  127.  
  128. Fn3 (XAXIS) {;  
  129.         c = z = pixel:
  130.         z = fn2(z)*fn2(z) + c
  131.         }
  132.  
  133. Fn4 (XAXIS) {;  
  134.         c = z = pixel:
  135.         z = fn1(z)*fn1(z) + c
  136.         }
  137.  
  138. Fn4Inv (XAXIS) {;  
  139.         c = z = pixel:
  140.         z = 1/(fn1(z)*fn1(z)+c)
  141.         }
  142.  
  143. Fn5 (XAXIS) {;  
  144.         c = z = pixel:
  145.         z = fn2(z*z)*fn2(z) + c
  146.         }
  147.  
  148. Fn6 (XAXIS) {;  
  149.         c = z = pixel:
  150.         z = fn1(z*z)*fn2(z) + c
  151.         }
  152.  
  153. Fn7 (XAXIS) {;  
  154.         c = z = pixel:
  155.         z = fn2(z*z)*fn1(z*z) + c
  156.         }
  157.  
  158. Fn8 (XAXIS) {;  
  159.         c = z = pixel:
  160.         z = fn3(z)*fn2(z)*fn1(z) + c
  161.         }
  162.  
  163. MandelVar9 (XAXIS) {;  
  164.         z = pixel:
  165.         c = z/(z*z+1)
  166.         z = sin(z^4 + c) + real(c)
  167.         |z| <= 4
  168.         }
  169.  
  170. MandelVar10 (XAXIS) {;  
  171.         c = z = pixel:
  172.         value1 = 1 + p1
  173.         value2 = 1 + p2
  174.         z = (z^value2)^(value1) + c
  175.         |z| <= 4
  176.         }
  177.  
  178. Lyapunov1 (XAXIS) {;  
  179.         z = pixel:
  180.         value = 1 + p1
  181.         z = value*z*(1-z)
  182.         }
  183.  
  184.  
  185.