Nested Logarithm

Author

Eric W. Weisstein
April 23, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SpecialFunctions/NestedLogarithm.nb.

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

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

Plot

<<Graphics`Colors`

Plot[Evaluate[Rest[NestList[Log,x,4]]],{x,.1,50},PlotStyle->{Red,Yellow,Green,Blue},AxesLabel->TraditionalForm/@{x,label}]

<<Utilities`Plot`
<<Utilities`Typesetting`

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
ComplexPlot3D[#,{z,-3,3},PlotPoints->150][[1]]&/@Rest[NestList[Log,z,3]]
]
],GraphicsSpacing->{-.05,.03}]

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
ComplexContourPlot[#,{z,-3,3}][[1]]&/@Rest[NestList[Log,z,3]]
]
],GraphicsSpacing->{-.05,.03}]