I created my graphs using the following code,
ClearAll[x,y,t]
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}];
y2=Table[Plot[y[x,t],{x,0,10}, AxesLabel->{"x","y[x,t]"},PlotLegends->StringJoin["t=", ToString[t]]],{t,0,2l/v,.02l/v}];
ListAnimate[y2]
Was wondering how I'd print separately (from the table), the graphs of, for example, t=0, t=3, t=5, t=7. I tried this, but no luck:
If[t=(0||3||5||7), Print[y2]]
