Demo 2: Exponential Signal and Exponentially Decaying Sinusoid

In this demo, we consider a s(t) = Αexp(-at)cos(2πft), with a>0 and draw its time domain plot. Note that with f=0, s(t) becomes just an exponential signal.

Manipulate[Plot[A Exp[-a t]Cos[2 Pi f t],{t,0,5},PlotStyle -> Thick, PlotRange -> 5, GridLines->Automatic, PerformanceGoal -> "Quality", AxesLabel->{"time (sec.)", "(Ae^(-at))cos(2πft)=" [A*Exp[-a t]*Cos[2 Pi f t]]},LabelStyle->Directive[Red,Bold],ImageSize -> Large,PlotLabel -> "Time Domain Representation of a Expontially Decaying Sinusoid"],{{A,1},0,5, ImageSize -> Large, Appearance -> "Labeled"}, {{f,1},0,10,ImageSize -> Large, Appearance -> "Labeled"},{{a,1},0,5,ImageSize -> Large, Appearance -> "Labeled"},SaveDefinitions-> True]