Table[
      Plot[Cos[3*x]*Cos[3*t], {x, 0, π}, 
        PlotRange -> {{0, π}, {-1, 1}}, 
        PlotStyle -> {RGBColor[1, 0.7, 0], Thickness[0.015]}], {t, 0, 
        10, 0.1}]