How do you make an animation with Mathematica?

  • Mathematica
  • Thread starter Nusc
  • Start date
  • #1
753
2

Main Question or Discussion Point

Homework Statement



How do you make an animation with Mathematica?

Homework 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

The Attempt at a Solution



My attempt above spits out a whole column of the same image. Do you know what's wrong?
 

Answers and Replies

  • #2
FredGarvin
Science Advisor
5,066
7
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.
 
  • #3
753
2
"collapse the cell down so you see only one plot."


How do you do that?
 
  • #4
radou
Homework Helper
3,115
6
Try double clicking an image, it should generate an animated sequence based on the rest of your plotted results.
 
  • #5
FredGarvin
Science Advisor
5,066
7
"collapse the cell down so you see only one plot."


How do you do that?
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
 
  • #6
753
2
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}]
 

Related Threads on How do you make an animation with Mathematica?

Replies
6
Views
4K
Replies
2
Views
3K
Replies
2
Views
3K
Replies
2
Views
2K
Replies
1
Views
2K
Replies
6
Views
6K
Replies
2
Views
2K
Replies
7
Views
9K
Replies
5
Views
3K
Replies
3
Views
3K
Top