(*
	file:   Tent.m
	author: Hinke Osinga, The Geometry Center
	data:   April 15, 1998
*)


Print["The Tent Map:"];
Print["f[x] = lambda x,       for 0   <= x <= 0.5"];
Print["f[x] = lambda (1 - x), for 0.5 <= x <= 1"];

DynSys[x_] := If[x > 0.5, N[lambda (1 - x)], N[lambda x]]

x0 = 0.94;
lambda = 1.15;
its = 100;
xrange = {0, 1};

Print["lambda = ", lambda, ", x0 = ", x0, ", its = ", its];
Print[""];

critical = 0.5;
lrange = {0, 2};