Thanks so much. Ive gotten my graphs to display, using the following code, even with a Do loop, like this:
ClearAll[y,x,t,framelist,nextframe]
h=1; l=10; v=1;
y[x_,t_]=Sum[(8h/(n^2Pi^2))(2Sin[n Pi/4]-Sin[n Pi/2])Sin[n Pi x/l]Cos[n Pi v*t/l],{n,1,40,1}];
framelist={};
Do[nextframe= Plot[y[x,t],{x,0,10}, AxesLabel->{"x","y[x,t]"},PlotLegends->StringJoin["t=",ToString[t]]]; AppendTo[framelist,nextframe],{t,0,2l/v,.02l/v}];
framelist; ListAnimate[framelist]; Part[framelist,{1,16,26,36}]
I have a question. As you'll notice here, the above code is capable of displaying the full frame list, as the line in my code, which says, "framelist", will give as its output, if I remove the semicolon. Lets say I were to do that, and the output displays as the full list. My question is, is there a way to select the entire outputted list, like all the graphics at once, then click somewhere and get these graphics to produce an animation? I've read that there is a way to do this, but you have to click on something called Animate Graphics in the Cell menu, and I keep being unable to find the Cell menu in Wolfram. (As you'll notice here, I used another methodm ListAnimate, to animate my list, but would like to also practice the method of selecting the figures)
