home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / afg_1 / minimandel / 1LineManM2 (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1990-04-12  |  397 b   |  14 lines

  1.  >1LineManM2
  2.  MODE2 Mandelbrot Set in one line of BASIC
  3.  If you type in the line you will have to use the abbreviations for BASIC keywords.
  4.  John Greening, Edinburgh
  5. 29,800;512;:
  6. y=1.3
  7. -.02:r=0:i=0:C=0:
  8. :a=r*r:b=i*i:n=a-b+x:m=2*r*i+y:C=C+1:s=a+b:r=n:i=m:
  9. C>99:
  10. 0,6+(C>99)+(C>25)+(C>12)+(C>8)+(C>5)+(C>3):X=400*x:Y=400*y:
  11. Z=Y-4
  12. 69,X,Z:
  13. 69,X,-Z:
  14.