home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / fracxtr4.zip / ELI.FRM < prev    next >
Text File  |  1992-02-19  |  852b  |  64 lines
  1. a---mand {
  2.   z = c = pixel:
  3.    z = z^c + sin(c)
  4.     |z|<p1
  5. }
  6.  
  7. dots {
  8.   z = c = pixel:
  9.    z = z^c + c
  10.     |z|<p1
  11. }
  12.  
  13. a--mand {
  14.   z = c = pixel:
  15.    z = (sqr(z)+c) / |c|
  16.     |z|<p1
  17. }
  18.  
  19. aaa-deals {
  20.   z = pixel, a=real(z), b=imag(z), i=((0-1)^0.5):
  21.    x = real(z)
  22.    y = imag(z)
  23.    u = x*x + y*y + a
  24.    v = (0-2)*x*y + b
  25.    z = u + v*i;
  26.     |z|<p1
  27. }
  28.  
  29. aa-mand-re(XAXIS) {
  30.   z = c = pixel:
  31.    z = sqr(z)+c;
  32.     real(z)<p1
  33. }
  34.  
  35. aa-mand-im(XAXIS) {
  36.   z = c = pixel:
  37.    z = sqr(z)+c;
  38.     imag(z)<p1
  39. }
  40.  
  41. aa-diamand {
  42.   z = c = pixel:
  43.    z = sqr(z)+c;
  44.     (real(z)+imag(z))<p1
  45. }
  46.  
  47. aa-c-to-z(XAXIS)  {
  48.   z = pixel, c = z:
  49.    z = c^z;
  50.     |z| <= p1
  51. }
  52.  
  53. aa-z-to-c(XAXIS)  {
  54.   z = pixel, c = z:
  55.    z = exp(c*log(z));
  56.     |z| <= p1
  57. }
  58.  
  59. aa-z-to-z(XAXIS)  {
  60.   z = pixel, c = z:
  61.    z = exp(z*log(z));
  62.     |z| <= p1
  63. }
  64.