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

printf("The Cosine Map: ");
printf("f(x) = lambda cos(x)\n");

DynSys := x -> evalf(lambda * cos(x)):

x0 := 2.5:
lambda := 1.88:
xrange := -4..4:
lrange := [0, 2*evalf(Pi)]:
critical := 0:

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