Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

How do you make an animation with Mathematica?

  1. Mar 27, 2007 #1
    1. The problem statement, all variables and given/known data

    How do you make an animation with Mathematica?

    2. Relevant equations

    Table[Plot3D[3Sech[(1/2)*(-t+x)]+12Sech[(1/2)*(-8t+2x)]+27Sech[(1/2)*(-27t+3x)],{x,0,10},{t,0,14},Axes->False,PlotRange->{0,10}],{t,0,9}] // Short

    3. The attempt at a solution

    My attempt above spits out a whole column of the same image. Do you know what's wrong?
     
  2. jcsd
  3. Mar 28, 2007 #2

    FredGarvin

    User Avatar
    Science Advisor

    After you get the entire table of plots, you should be able to collapse the cell down so you see only one plot. Then select the plot and, I believe, hit CTRL-Y. It's been a while, but it does work.

    I don't have Mathematica on my work computer so I'll have to do it when I get home tonight.
     
  4. Mar 31, 2007 #3
    "collapse the cell down so you see only one plot."


    How do you do that?
     
  5. Mar 31, 2007 #4

    radou

    User Avatar
    Homework Helper

    Try double clicking an image, it should generate an animated sequence based on the rest of your plotted results.
     
  6. Mar 31, 2007 #5

    FredGarvin

    User Avatar
    Science Advisor

    On the far, right hand side of each cell there is a series of brackets that have a small triangle attached. If the triangle points down, the cell is expanded. If the triangle points up the cell is collapsed. For the table plot, you want to double click the farthest right bracket so that it looks like you have only one plot on the screen.

    Here's a picture that shows what I am talking about:
    http://www.atpm.com/10.02/images/atpo-28-mathematica.gif
     
  7. Mar 31, 2007 #6
    Okay good. I got what I wanted:

    \!\(Table[Plot3D[3\
    Sech[1\/2\ \((\(-t\) + x)\)] + 12\ Sech[1\/2\ \((\(-8\)\ t + 2\ x)\)] +
    27\ Sech[
    1\/2\ \((\(-27\)\ t + 3\ x)\)], {x,
    0, 60}, {t, 0, x}, PlotRange -> {{0, 60}, {0,
    60}, {0, 2}}], {x, 0, 60}]\ // Short\)

    However I'm not happy with the way it looks:

    \!\(Plot3D[3\ Sech[1\/2\ \((\(-t\) +
    x)\)] + 12\ Sech[1\/2\ \((\(-8\)\ t + 2\ x)\)] + 27\
    Sech[1\/2\ \((\(-27\)\ t + 3\ x)\)], {x, 0, 10}, {t, 0, 14}]\)

    Then

    Show[%, ViewPoint -> {1.2, 1.2, 1.2}]
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Have something to add?



Similar Discussions: How do you make an animation with Mathematica?
Loading...