#	file:   Logistic.mpl
#	author: Hinke Osinga, University of Bristol
#	date:   January 2001
#
# 

printf("The Logistic Map: ");
printf("f(x) = lambda x (1 - x)\n");

DynSys := x -> evalf(lambda * x * (1 - x));

x0 := 0.94:
lambda := 2:
xrange := 0..1:
lrange := [0, 4]:
critical := 0.5:

printf("lambda = %f, x0 = %f\n\n", lambda, x0);