Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

4
  • $\begingroup$ A picture is worth a thousand upvotes... $\endgroup$ Commented Apr 11, 2016 at 13:34
  • $\begingroup$ Excellent answer. Could I only suggest using these options in Plot3D to make the colouring look more similar to that in OP's animation? MeshFunctions -> {#3 &}, MeshShading -> Table[Hue[i/50], {i, 30}], Mesh -> 12 $\endgroup$ Commented Apr 11, 2016 at 14:04
  • $\begingroup$ @thedude It works using those with the following addition/change MeshStyle -> Opacity[2/3 q], MeshShading -> Table[Directive[Hue[i/50], Opacity[2/3 q]], {i, 30}]. Also i swapped the order of the curves relative to the gif in the question, which can be fixed by reversing the list in the definition of g[t]. $\endgroup$ Commented Apr 11, 2016 at 14:16
  • $\begingroup$ OMG ! A very interesting starting point for other similar projects. I love it... $\endgroup$ Commented Nov 8, 2016 at 20:12