REM ***** MAD TEDDY'S MANDELBROT SET SERIES: REGION #5, variation B ***** REM x limits: -1.802, -1.738 REM y limits: -.024, .024 REM ***** Largest mini-Mandelbrot on x-axis ***** SCREEN 12 iterationlimit = 1000 black = 0 blue = 1 green = 2 cyan = 3 red = 4 magenta = 5 brown = 6 lightgrey = 7 darkgrey = 8 lightblue = 9 lightgreen = 10 lightcyan = 11 lightred = 12 lightmagenta = 13 yellow = 14 white = 15 ylow = 0 - .024 yhigh = 0 + .024 xlow = -1.77 - .032 xhigh = -1.77 + .032 FOR i = 0 TO 479 FOR j = 0 TO 639 x = xlow + j * (xhigh - xlow) / 639 y = yhigh - i * (yhigh - ylow) / 479 xc = x: yc = y iterations = 0 rsquared = 0 DO UNTIL rsquared >= 4 OR iterations > iterationlimit u = x * x - y * y + xc v = 2 * x * y + yc rsquared = u * u + v * v x = u: y = v iterations = iterations + 1 LOOP IF rsquared >= 4 THEN IF iterations > 65 THEN colour = yellow ELSEIF iterations > 40 THEN colour = red ELSEIF iterations > 30 THEN colour = lightgreen ELSEIF iterations > 25 THEN colour = blue ELSEIF iterations > 21 THEN colour = white ELSEIF iterations > 18 THEN colour = magenta ELSEIF iterations > 16 THEN colour = lightcyan ELSEIF iterations > 14 THEN colour = brown ELSE colour = darkgrey END IF ELSE colour = black END IF PSET (j, i), colour NEXT j NEXT i a$ = "" DO: a$ = INKEY$: LOOP UNTIL a$ = CHR$(27)