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


Print["The Sine Map:"];
Print["f[x] = lambda Sin(x)"];

DynSys[x_] := N[lambda Sin[x]];

x0 = 0.94;
lambda = 2.5;
its = 100;
xrange = {-4, 4};

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

critical = Pi/2;
lrange = {0, Pi};