REM mandel.bas REM by Eric R. Weeks weeks@physics.emory.edu REM see my web page: REM http://www.physics.emory.edu/~weeks/ REM REM public domain, but please leave my REM name, email address, & web page info intact REM REM last updated: 10-28-97 SCREEN 2 wid = 4: REM width of picture xcenter = -1: ycenter = 0: REM center of picture FOR xcoord = 100 TO 639 FOR ycoord = 0 TO 199 ca = (xcoord - 320) / 640 * wid + xcenter cb = (ycoord - 100) / 640 * 2 * wid + ycenter x = 0: y = 0 PSET (xcoord, ycoord), 1 FOR t = 1 TO 50 xnew = x * x - y * y + ca ynew = 2 * x * y + cb x = xnew: y = ynew magnitudesquared = x * x + y * y IF magnitudesquared > 100 THEN t = 999 NEXT t IF t > 100 THEN PSET (xcoord, ycoord), 0 NEXT ycoord NEXT xcoord END