Tent Map

Author

Eric W. Weisstein
July 11, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/DynamicalSystems/TentMap.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/TentMap.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Iterations

Factor[Table[Nest[μ(1-2Abs[#-1/2])&,(Subscript[x, 0]),n],{n,3}]]//TableForm//TraditionalForm

Plots

<<Graphics`Colors`
<<Utilities`Typesetting`

Show[GraphicsArray[Partition[Table[
Plot[Evaluate[Table[Nest[r(1-2Abs[#-1/2])&,x,n],{n,5}]],{x,0,1},PlotRange->All,
PlotStyle->List/@{Red,Yellow,Green,Blue,Violet},AxesLabel->TraditionalForm/@{(Subscript[x, 0]),(Subscript[x, n])},PlotLabel->TraditionalForm[HoldForm[μ]==r],
DisplayFunction->Identity,PlotRange->All],
{r,.1,1,.1}],4,4,{1,1},{}]],
ImageSize->500]