home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / a / allfrm.zip / SELECT.FRM < prev    next >
Text File  |  1991-07-17  |  7KB  |  281 lines
  1.  
  2.  
  3.  
  4.               { Formulae created by:  Jon Osuch  [73277,1432] }
  5.  
  6.  
  7. {=========================================================================}
  8.  
  9. BirdOfPrey(XAXIS_NOPARM) {; Jon Osuch
  10.     ; Try p1=0, p2=4, fn1=sqr, fn2=cosxx
  11.     z   = p1,
  12.     x   = 1:
  13.    (x  <  10) * (z=fn1(z)+pixel),
  14.    (10 <= x)  * (z=fn2(z)+pixel),
  15.     x   = x+1,
  16.    |z| <=p2
  17.    }
  18.  
  19. {=========================================================================}
  20.  
  21. DeepSpaceProbe(XAXIS_NOPARM) {; Jon Osuch
  22.     ; Try p1=0, p2=4, fn1=sqr, fn2=sin, fn3=cosxx
  23.     z   = p1,
  24.     x   = 1:
  25.    (x  <  10) * (z=fn1(z) + pixel),
  26.    (10 <= x)  * (x<20)    * (z=fn2(z)+pixel),
  27.    (20 <= x)  * (z=fn3(z) + pixel),
  28.     x   = x+1,
  29.    |z| <= p2
  30.    }
  31.  
  32. DeepSpaceProbeC(XAXIS_NOPARM) {; Jon Osuch
  33.     ; Try p1=10, p2=20, fn1=sqr, fn2=sin, fn3=cosxx
  34.     ; Note:  use floating point
  35.     z  = p1,
  36.     x  = 1:
  37. (z=fn1(z)+pixel)*(x<10)+(z=fn2(z)+pixel)*(10<=x)*(x<20)+(z=fn3(z)+pixel)*(20<=x)
  38. ,
  39.     x  = x+1,
  40.    |z| <= 4
  41.    }
  42.  
  43. DpSpaceProbeTwoC(XAXIS_NOPARM) {; Jon Osuch
  44.    ; Try p1=0, p2=4, fn1=sqr, fn2=exp, fn3=cosxx
  45.     ; Note:  use floating point
  46.    z    = p1,
  47.    x    = 1:
  48. (z=fn1(z)+pixel)*(x<10)+(z=fn2(z)+pixel)*(10<=x)*(x<20)+(z=fn3(z)+pixel)*(20<=x)
  49. ,
  50.     x   = x+1,
  51.    |z| <= p2
  52.    }
  53.  
  54. {=========================================================================}
  55.  
  56. EvilEyeC(XAXIS_NOPARM) {; Jon Osuch
  57.     ; Try p1=1, p2=4, fn1=sin, fn2=cosxx
  58.     ; Note:  use floating point
  59.     z  =  p1,
  60.     x  = |z|:
  61.    (z  = fn1(z)+pixel) * (1<x)  +  (z=fn2(z) + pixel)*(x<=1),
  62.     x  = |z|,
  63.     x <= p2
  64.   }
  65.  
  66. {=========================================================================}
  67.  
  68. Eyeball(XAXIS_NOPARM) {; Jon Osuch
  69.     ; Try p1=0, p2=4, fn1=sqr, fn2=sinh
  70.     z    = p1,
  71.     x    = 1:
  72.     (x  <  10) * (z=fn1(z) + pixel),
  73.     (10 <= x)  * (z=fn2(z) + pixel),
  74.     x    = x+1,
  75.    |z|  <= p2
  76.    }
  77.  
  78. {=========================================================================}
  79.  
  80. FlyingSquirrel(XAXIS_NOPARM) {; Jon Osuch
  81.     ; Try p1=0, p2=4, fn1=sin, fn2=cosxx, fn3=sqr
  82.     z  = p1,
  83.     x  = |z|:  (1<x) * (z=fn1(z) / fn2(z) + pixel),
  84.     z  = fn3(z)+pixel,
  85.     x  = |z|,
  86.     x <= p2
  87.    }
  88.  
  89. {=========================================================================}
  90.  
  91. FractalFender(XAXIS_NOPARM) {; Jon Osuch
  92.     ; Try p1=0, p2=4, fn1=cosh, fn2=sqr
  93.     z  = p1,
  94.     x  = |z|:  (1<x) * (z=fn1(z)+pixel),
  95.     z  = fn2(z)+pixel,
  96.     x  = |z|,
  97.     x <= p2
  98.    }
  99.  
  100. FractalFenderC(XAXIS_NOPARM) {; Jon Osuch
  101.     ; Try p1=0, p2=4, fn1=cosh, fn2=sqr
  102.     ; Note:  use floating point
  103.     ; Spectacular!
  104.     z  = p1, 
  105.     x  = |z|:
  106.    (z  = fn1(z)+pixel) * (1<x)+(z=z) * (x<=1),
  107.     z  = fn2(z)+pixel,
  108.     x  = |z|,
  109.     x <= p2
  110.    }
  111.  
  112. FractalFender2(XAXIS_NOPARM) {; Jon Osuch
  113.     ; Try p1=0, p2=4, fn1=cosxx, fn2=sqr
  114.     z  = p1,
  115.     x  = |z|:  (1<x) * (z=fn1(z)+pixel),
  116.     z  = fn2(z)+pixel,
  117.     x  = |z|,
  118.     x <= p2
  119.    }
  120.  
  121. FractalFender2C(XAXIS_NOPARM) {; Jon Osuch
  122.     ; Try p1=0, p2=4, fn1=cosxx, fn2=sqr
  123.     ; Note:  use floating point
  124.     z  = p1,
  125.     x  = |z|:
  126.    (z  = fn1(z)+pixel) * (1<x) + (z=z) * (x<=1),
  127.     z  = fn2(z)+pixel,
  128.     x  = |z|,
  129.     x <= p2
  130.    }
  131.  
  132. {=========================================================================}
  133.  
  134. Frog(XAXIS_NOPARM) {; Jon Osuch
  135.     ; Try p1=0, p2=4, fn1=tanh, fn2=sqr
  136.     z  = p1,
  137.     x  = |z|:     (1<x) * (z=fn1(z) + pixel),
  138.     z  = fn2(z)+pixel,
  139.     x  = |z|,
  140.     x <= p2
  141.    }
  142.  
  143. FrogC(XAXIS_NOPARM) {; Jon Osuch
  144.     ; Try p1=0, p2=4, fn1=tanh, fn2=sqr
  145.     ; Note:  use floating point
  146.     z  = p1,
  147.     x  = |z|:
  148.    (z  = fn1(z)+pixel) * (1<x) + (z=z) * (x<=1),
  149.     z  = fn2(z)+pixel,
  150.     x  = |z|,
  151.     x <= p2
  152.    }
  153.  
  154. {=========================================================================}
  155.  
  156. Fly(XAXIS_NOPARM) {; Jon Osuch
  157.     ; Try p1=0, p2=4, fn1=sqr, fn2=sqr
  158.     z   = p1:
  159.     x   = real(z),
  160.    (x  <  0)  * (z=fn1(z) + pixel),
  161.    (0  <= x)  * (z=fn2(z) - pixel),
  162.    |z| <= p2
  163.    }
  164.  
  165. {=========================================================================}
  166.  
  167. IfThenfn1fn2(XAXIS_NOPARM) {; Jon Osuch
  168.     ; Try p1=0, p2=4, fn1=sin, fn2=cos
  169.     z  = p1,
  170.     x  = |z|:
  171.    (z  = fn1(z)) * (1<x)+(z=z)*(x<=1),
  172.    (z  = fn2(z)  + pixel),
  173.     x  = |z|,
  174.     x <= p2
  175.    }
  176.  
  177. IfThenElsefn1fn2(XAXIS_NOPARM) {; Jon Osuch
  178.     ; Try p1=0, p2=4, fn1=sqr, fn2=sin
  179.     z  = p1,
  180.     x  = |z|:
  181.    (z  = fn1(z)+pixel) * (1<x)+(z=fn2(z)+pixel) * (x<=1),
  182.     x  = |z|,
  183.     x <= p2
  184.    }
  185.  
  186. IfElsefn1fn2fn3(XAXIS_NOPARM) {; Jon Osuch
  187.     ; Try p1=0, p2=4, fn1,2,3=whatever
  188.     z   = p1,
  189.     x   = 1:
  190. (z=fn1(z)+pixel)*(x<10)+(z=fn2(z)+pixel)*(10<=x)*(x<20)+(z=fn3(z)+pixel)*(20<=x)
  191. ,
  192.     x   = x+1,
  193.    |z| <= p2
  194.     }
  195.  
  196. {=========================================================================}
  197.  
  198. IslandOfChaos(XAXIS_NOPARM) {; Jon Osuch
  199.     ; Try p1=0, p2=4, fn1=sqr, fn2=sin, fn3=cosxx
  200.     z   =  p1,
  201.     x   =  1:
  202.    (x  <  10)  * (z=fn1(z) + pixel),
  203.    (10 <=  x)  * (z=fn2(z) / fn3(z) + pixel),
  204.     x   = x+1,
  205.    |z| <= p2
  206.    }
  207.  
  208.  
  209. {=========================================================================}
  210.  
  211. ManInTheOzone(XAXIS_NOPARM) {; Jon Osuch
  212.     ; Try p1=0, p2=4, fn1=sqr, fn2=cosxx, fn3=sin
  213.     z    = p1,
  214.     x    = 1:
  215.     (x  < 10)  * (z=fn1(z) + pixel),
  216.     (10 <= x)  * (x<20)    * (z=fn2(z)+pixel),
  217.     (20 <= x)  * (z=fn3(z) + pixel),
  218.     x    =  x+1,
  219.    |z|  <= p2
  220.    }
  221.  
  222. {=========================================================================}
  223.  
  224. Moth(XAXIS_NOPARM) {; Jon Osuch
  225.     ; Try p1=0, p2=4, fn1=sqr, fn2=exp, fn3=log
  226.     z    = p1,
  227.     x    = 1:
  228.     (x  <  10) * (z=fn1(z)  +  pixel),
  229.     (10 <= x)  * (x<20)     *  (z=fn2(z)+pixel),
  230.     (20 <= x)  * (z=fn3(z)  +  pixel),
  231.     x    = x+1,
  232.    |z|  <= p2
  233.    }
  234.  
  235. {=========================================================================}
  236.  
  237. SinhEgg(XAXIS_NOPARM) {; Jon Osuch
  238.     ; Try p1=0, p2=4, fn1=sinh, fn2=sqr
  239.     z  = p1,
  240.     x  = |z|:
  241.     (1 < x) * (z=fn1(z) + pixel),
  242.     z  = fn2(z)+pixel,
  243.     x  = |z|,
  244.     x <= p2
  245.    }
  246.  
  247. {=========================================================================}
  248.  
  249. TestSinMandC(XAXIS_NOPARM) {;Jon Osuch
  250.      ; Try: p1=4, fn1=sin, fn2=sqr    
  251.      z  = p1,
  252.      x  = |z|:
  253.     (z  = fn1(z)) * (1<x)+(z=z) * (x<=1),
  254.     (z  = fn2(z)+pixel),
  255.      x  = |z|,
  256.      x <= p1
  257.   }
  258.  
  259. {=========================================================================}
  260.  
  261. TurtleC(XAXIS_NOPARM) {; Jon Osuch
  262.     ; Try p1=0, p2=4, fn1=sqr, fn2=sqr
  263.     ; Note:  use floating point
  264.     z   = p1:
  265.     x   = real(z),
  266.    (z   = fn1(z)+pixel) * (x<0) + (z=fn2(z)-pixel) * (0<=x),
  267.    |z| <= p2
  268.    }
  269.  
  270.  
  271. {=========================================================================}
  272.  
  273. WaldoTwinsC(XAXIS_NOPARM) {; Jon Osuch
  274.     ; Try p1=0, p2=4, fn1=cosxx, fn2=sin
  275.     ; Note:  use floating point
  276.     z   = p1:
  277.     z   = fn1(fn2(z+pixel)) + pixel,
  278.    |z| <= p2
  279.    }
  280.  
  281.