Animate[ Grid[{ {Row[{"time ", NumberForm[t, {2, 3}]}]}, {ListLinePlot[{{0, 0}, {0.5, 2 Sin[t]}, {1, 2.5 Cos[t]}, {1.5, 0}}, PlotRange -> {{0, 1.5}, {-3, 3}}, Mesh -> All]} } ], {t, 0, 5, .05}]
