f[[Theta]_, [Phi]_, t_] =
  Cos[[Theta]]^2 Sin[t] +
   Exp[-I [Phi]] Sin[[Theta]] Exp[-t] Sin[3 t]^2;
Plot[f[[Pi]/2, 0, t], {t, 0, 10}, PlotRange -> All]