I am wondering why the following does not plot the way it's written and exactly how does the Do[]
function operate? I think I could be using it incorrectly.
In[1]:= u[x_, t_] := (1/2) (Exp[-(x + t)^2] + Exp[-(x - t)^2])
Do[
Plot[u[x, k], {x, -5, 5},
AxesLabel -> {x, u},
PlotRange -> {0, 1}],
{k, 0, 3}
]
EDIT
Clear["Global`*"]
a = 1;
b = 1;
ϕ[ξ_, ν_, t_] :=
Sum[(((5*(-1 + (-1)^j)*(-1 + (-1)^i))/(j*i*Pi^2))*
Cos[(1/Pi^4)*Sqrt[i^4*Pi^4 + j^4*Pi^4]*t])*Sin[i*Pi*ξ]*Sin[j*Pi*ν], {i, 1,
10}, {j, 1, 10}];
Do[Print[Plot3D[ϕ[ξ, ν, m], {ξ, 0, a}, {ν, 0, b}, Mesh :> Automatic,
PlotLabel :> StringJoin["Surface Plot of Solution at t = ", ToString[m]],
ColorFunction :> {"BlueGreenYellow"}]], {m, 0, 10, 2}]