# Manipulating a damped oscillator plot - plot does not show

I was trying to make an oscillation plot that could be manipulated depending on the value of $\beta$. The differential equation is below, and when I just plot the solution, it turns out to be the correct plot. However, when I insert the manipulate function, the plot returns a blank graph. Can anyone see what I am doing incorrectly?

    s = DSolve[{x''[t] + 2 β x'[t] + 4 x[t] == 0, x' == 0, x == 1}, x[t], t];

Manipulate[Plot[Evaluate[x[t] /. s], {t, 0, 5}], {β, 0, 4, 0.1}]

• possible duplicate of Manipulate not showing anything – xzczd May 13 '15 at 2:24
• It's the same essential problem, @xzczd, but I decided not to close it because there was another issue that I wanted to alert the OP to - see my answer. Happy to be overruled by the community if it comes to it. – Verbeia May 13 '15 at 3:40

There are two issues going on here, though only one of them is preventing your plot from working in the Manipulate.

The first is, as noted by xzczd in comments, that you need to get Mathematica to see that the \[Beta] in the expression for x[t]/. s is the same one you are using as the variable to be manipulated. You can see this is an issue with a slight variant to your Manipulate:

Manipulate[
Grid[Table[Evaluate[x[t] /. s], {t, 0, 4, 2}]], {\[Beta], 0, 4, 0.1}] You can ensure this using a second replacement rule, like this:

Manipulate[Grid[Table[
Simplify[Evaluate[x[t] /. s] /. \[Beta] -> b], {t, 0, 4, 2}]], {b, 0, 4, 0.1}] The second is that there are trivial imaginary parts here, though in this case they don't seem to matter for the plot. If you ever hit this in a more material way, you can use Chop to get rid of them.

Here's the code that gets you the plot.

Manipulate[
Plot[Evaluate[x[t] /. s /. \[Beta] -> b], {t, 0, 4}], {b, 0, 4, 0.1}] • Thank you for the explanation! :) – John May 13 '15 at 5:11

Manipulate[Plot[