DIM x(1000): DIM z(1000)


inizio:

' ******** parte di grafica
SCREEN 9: CLS 0
WINDOW (-1, 0)-(101, 4)
LINE (0, 4)-(0, 0): LINE (0, 0)-(100, 0)



' ******** a e' la costante di accrescimento
' ******** (vedi sotto l'equazione della logistica).
' ******** Facciamo aumentare questa costante da 0
' ******** in avanti, con "passo" .002
'FOR a = 0 TO 5 STEP .002

' ******** per vedere la "buona posizione":
FOR a = 1.5 TO 3.5 STEP .002

' ******** per vedere rapidamente il caos:
'FOR a = 2 TO 5 STEP .05

' ******** per vedere in dettaglio il caos:
'FOR a = 2.4 TO 5 STEP .01

'PRINT "scrivi a,x0,numero passi "; : INPUT a, x0, n
' ******** x0 e' la popolazione al tempo 0:
' ******** n e' il numero di "generazioni" che
' ******** consideriamo
' ******** la prima "assegnazione" per x, cioe' per la
' ******** popolazione, e' ovviamente x0
n = 300
x0 = .1: x(0) = x0


' ******** calcoliamo la popolazione  per n generazioni
FOR i = 1 TO n
' ******** facciamo le iterazioni
x(i) = x(i - 1) + a * x(i - 1) * (1 - x(i - 1))
z(i) = 2 * x(i)
' ******** se la popolazione diventa "troppo negativa",
' ******** tronchiamo
IF x(i) < -3 THEN x(i) = -3
NEXT i

b = 40 * a - 50

FOR ii = 200 TO 299
PSET (b, z(ii))
NEXT ii

NEXT a


INPUT pausa$
GOTO inizio