(*
file: Cosine.m
author: Hinke Osinga, The Geometry Center
data: April 15, 1998
*)
Print["The Cosine Map:"];
Print["f[x] = lambda Cos(x)"];
DynSys[x_] := N[lambda Cos[x]];
x0 = 2.5;
lambda = 1.88;
its = 100;
xrange = {-4, 4};
Print["lambda = ", lambda, ", x0 = ", x0, ", its = ", its];
Print[""];
critical = 0;
lrange = {0, 2Pi};