Manipulate[
xt0=2Re[(E^(I 2 π t))];
x=-(((ω0)^2)/(((ω0)^2)+2 I ω γ-(ω^2)));
xt=Re[x (E^(I 2 π t))];
GraphicsGrid[{{
Graphics[{RGBColor[0,.5,0],Disk[{0,0},.3],Black,Thickness[.03],Arrowheads[.2],Arrow[{{-1.2,0},{-1.2,If[Abs[xt0]<0.5,0.5 Sign[xt0],xt0]}}],Text["E",{-1.7,0}],Text["+"],Text["-",{.6,xt}],RGBColor[0,0,.5,.5],Disk[{0,xt},1]},PlotRange->{{-2,2},{-5,5}}],Plot[Switch[component,"Magnitude",Abs[ #],"Phase",Arg[ #],"Real",Re[ #],"Imaginary",Im[ #]]&[(((ω0)^2)/(((ω0)^2)+2 I ω1 γ-((ω1)^2)))],{ω1,0,2},PlotStyle->{RGBColor[.7,0,0],Thickness[.01]},PlotRange->5,AxesLabel->{"ω","p"},Epilog->{PointSize[.03],Point[{ω,Switch[component,"Magnitude",Abs[ #],"Phase",Arg[ #],"Real",Re[ #],"Imaginary",Im[ #]]&[(((ω0)^2)/(((ω0)^2)+2 I ω γ-(ω^2)))]}]}]}},ImageSize->980],
{t,0,1 ,Appearance->"Open",AnimationRate->(0.4 ω)},{{ω,1.5},.05,2},{{ω0,1},0,2},{{γ,.2},.15,.5},{component,{"Magnitude","Phase","Real","Imaginary"}}
]

Manipulate[GraphicsGrid[{{
Graphics[{Switch[response,"Impulse",If[0<t<.7,{Thickness[.03],Arrowheads[.2],Arrow[{{-1.2,0},{-1.2,5}}]},{}],"Step",If[0<t,{Thickness[.03],Arrowheads[.2],Arrow[{{-1.2,0},{-1.2,1.5}}]},{}]],Text["E",{-1.7,0}],RGBColor[0,.5,0],Disk[{0,0},.3],Black,Text["+"],Text["-",{.6,-2.5 Switch[response,"Impulse",impulseResponse[t,ω0,γ],"Step",stepResponse[t,ω0,γ]]}],RGBColor[0,0,.5,.5],Disk[{0,-2.5 Switch[response,"Impulse",impulseResponse[t,ω0,γ],"Step",stepResponse[t,ω0,γ]]},1]},PlotRange->{{-2,2},{-5,5}}],Plot[Switch[response,"Impulse",impulseResponse[t,ω0,γ],"Step",stepResponse[t,ω0,γ]],{t,-2,20},PlotRange->{-2,2},PlotStyle->{RGBColor[.7,0,0],Thickness[.01]},Epilog->{PointSize[.03],Point[{t,Switch[response,"Impulse",impulseResponse[t,ω0,γ],"Step",stepResponse[t,ω0,γ]]}]},AxesLabel->{"t","p"}]}},ImageSize->980],{t,-2,20 ,Appearance->"Open"},{{ω0,1},0.01,2},{{γ,.2},.15,2},{response,{"Impulse","Step"}},Initialization :>(impulseResponse[t_,ω0_,γ_]:=((ω0)^2)(E^(-γ t))((Sin[(Sqrt[((ω0)^2)-(γ^2)])t])/(Sqrt[((ω0)^2)-(γ^2)]))UnitStep[t];stepResponse[t_,ω0_,γ_]:=(1+(E^(-t γ)) (-Cos[t (Sqrt[-(γ^2)+((ω0)^2)])]-((γ Sin[t (Sqrt[-(γ^2)+((ω0)^2)])])/(Sqrt[-(γ^2)+((ω0)^2)])))) UnitStep[t])]