| Mathematica
Clear["Global`*"];
tf=TransferFunctionModel[25/(s^2+4s+25),s];
y = OutputResponse[tf, UnitStep[t], t];
Plot[Evaluate@y, {t, 0, 4},
PlotRange -> {{0, 4}, {0, 1.4}},
Frame -> True,
FrameLabel -> {{"y(t)", None},
{t, "step response"}},
GridLines -> Automatic,
GridLinesStyle -> Dashed,
ImageSize -> {300, 300},
PlotStyle -> Red,
AspectRatio -> 1]
|
|