Skip to main content
replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/
Source Link

This is, I think, a dupe of Plotting several functionsPlotting several functions, except that that thread displayed only the contours.

An approach simpler than the other posted answers proceeds like so:

Plot3D[Nest[Sin, x, Round[k]], {x, -π, π}, {k, 1, 10},
       MeshFunctions -> {#2 &}, Mesh -> 10]

iterated sine surface

This is, I think, a dupe of Plotting several functions, except that that thread displayed only the contours.

An approach simpler than the other posted answers proceeds like so:

Plot3D[Nest[Sin, x, Round[k]], {x, -π, π}, {k, 1, 10},
       MeshFunctions -> {#2 &}, Mesh -> 10]

iterated sine surface

This is, I think, a dupe of Plotting several functions, except that that thread displayed only the contours.

An approach simpler than the other posted answers proceeds like so:

Plot3D[Nest[Sin, x, Round[k]], {x, -π, π}, {k, 1, 10},
       MeshFunctions -> {#2 &}, Mesh -> 10]

iterated sine surface

Source Link

This is, I think, a dupe of Plotting several functions, except that that thread displayed only the contours.

An approach simpler than the other posted answers proceeds like so:

Plot3D[Nest[Sin, x, Round[k]], {x, -π, π}, {k, 1, 10},
       MeshFunctions -> {#2 &}, Mesh -> 10]

iterated sine surface