home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / fractal / iterat31 / kaleido.frm < prev    next >
Encoding:
Text File  |  1993-09-12  |  488 b   |  23 lines
  1. ;Iterate function file
  2. ;by Brent Hugh
  3.  
  4. ;Window defaults 
  5. xmin=-3
  6. xmax=3 
  7. ymin=-3 
  8. ymax=3 
  9.  
  10. ;Parameter defaults
  11. a=2.718281828 
  12. b=2.718281828 
  13. c=1.01
  14. d=1.01
  15.  
  16. ;the function
  17. x=sinh(c*y*(2*intran(1)-1)) | a                    
  18. y=sinh(d*x) | b               
  19.  
  20. ;A kaleidoscope. Try a large number of iterations on this one--say 10000.
  21. ;The formula 2*intran(1)-1 simply changes the sign of y randomly.
  22. ;Try other values for a and b.  Anything less than 10 is interesting.
  23.