home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / CPMFILES / MANDEL.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-12-16  |  680 b   |  26 lines  |  [04] ASCII Text (0x0000)
  1. 5 HOME
  2. 10 REM EXPLORING THE MANDELBROT SET
  3. 20 PRINT"THE MANDELBROT SET      BY ERIC RANGELL
  4. 30 PRINT:PRINT
  5. 40 INPUT "ENTER SOUTHWEST CORNER OF REGION TO BE VIEWED (X+Yi): ";XCORNER#,YCORNER#
  6. 50 INPUT "ENTER THE LENGTH OF EACH SIDE OF THE SQUARE REGION :";SIDE#
  7. 60 ROWS%=100:R%=100:SIZE#=0
  8. 70 GAP#=SIDE#/ROWS%
  9. 90 HGR
  10. 100 FOR Y%=1 TO 100
  11. 110 FOR X%=1 TO 100
  12. 120 CR#=XCORNER#+X%*GAP#
  13. 130 CI#=YCORNER#+Y%*GAP#
  14. 140 COUNT%=0
  15. 150 ZR#=0:ZI#=0
  16. 160 WHILE SIZE#<2 OR COUNT%<R
  17. 170 ZR#=ZR#^2-ZI#^2+CR#
  18. 180 ZI#=2*ZR#*ZI#+CI#
  19. 190 COUNT%=COUNT%+1
  20. 200 SIZE#=SQR(ZR#^2+ZI#^2)
  21. 210 WEND
  22. 220 IF COUNT>R THEN HCOLOR=0 ELSE HCOLOR=3
  23. 230 HPLOT X%,100-Y%
  24. 240 NEXT X%
  25. 250 NEXT Y%
  26.  
  27.