0
ClearAll[w, z];
tf[w_, z_] := TransferFunctionModel[w^2/(s^2 + 2 z w s + w^2), s]
f[t, w, z] = OutputResponse[tf[w, z], UnitStep[t], t];
Panel[DynamicModule[
{z = 1/2, w = 5, TimeInit = 50, TimeEnd = 75},
Column[{Grid[
{{"z", Slider[Dynamic[z], {0, 2.0}], Dynamic[z]},
{"w[rad/s]", ...