home *** CD-ROM | disk | FTP | other *** search
RISC OS BBC BASIC V Source | 1990-04-12 | 397 b | 14 lines |
- >1LineManM2
- MODE2 Mandelbrot Set in one line of BASIC
- If you type in the line you will have to use the abbreviations for BASIC keywords.
- John Greening, Edinburgh
- 29,800;512;:
- y=1.3
- -.02:r=0:i=0:C=0:
- :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:
- C>99:
- 0,6+(C>99)+(C>25)+(C>12)+(C>8)+(C>5)+(C>3):X=400*x:Y=400*y:
- Z=Y-4
- 69,X,Z:
- 69,X,-Z:
-