inizio:

tempoiniz = TIMER

' ******** 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

'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
x0 = .1: n = 100: x = x0

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

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

' ******** "plottiamo" il valore della popolazione
' ******** al variare delle generazioni da 1 ad n
'PRINT i; x
LINE -(i, x)
'INPUT pausa$
NEXT i


PRINT "a = "; a
INPUT pausa$
NEXT a
PRINT "tempo = "; TIMER - tempoiniz
INPUT pausa$
GOTO inizio