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


Print["The Quadratic Map:"];
Print[StringForm["f[x] = `` + lambda", x^2]];

DynSys[x_] := N[x^2 + lambda];

x0 = 0.94;
lambda = -0.5;
its = 100;
xrange = {-2, 2};

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

critical = 0;
lrange = {0.25, -2};

