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

printf("The Tent Map: ");
printf("f(x) = lambda x,       for 0   <= x <= 0.5\n");
printf("              f(x) = lambda (1 - x), for 0.5 <= x <= 1\n");

DynSys := x -> if (x < 0.5) then evalf(lambda*x) 
			    else evalf(lambda*(1 - x)) fi:

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

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