SCREEN 12 DEFDBL A-Z dt = .001 RANDOMIZE TIMER LINE (40, 0)-(639, 459), , B LINE (40, 230)-(639, 230), , , &H4444 LOCATE 1, 3: PRINT "10" LOCATE 15, 1: PRINT "xmax" LOCATE 29, 2: PRINT "-10" LOCATE 30, 6: PRINT "0"; LOCATE 30, 43: PRINT "a"; LOCATE 30, 80: PRINT "4"; FOR i% = 0 TO 599 a = 4 * i% / 599 FOR j% = 1 TO 8 'try 8 different initial conditions x = 5 - 10 * RND: y = 5 - 10 * RND: z = 5 - 10 * RND xold = x FOR t& = 1 TO 100000 xnew = x - dt * (a * x + 4 * y + 4 * z + y * y) ynew = y - dt * (a * y + 4 * z + 4 * x + z * z) znew = z - dt * (a * z + 4 * x + 4 * y + x * x) IF t& > 90000 AND xnew < x AND x > xold THEN PSET (40 + i%, 230 - 23 * x) xold = x: x = xnew: y = ynew: z = znew IF ABS(x) > 20 THEN EXIT FOR NEXT t& NEXT j% NEXT i%