Connecting Time-Delay Systems
Connecting Time-Delay Systems
{tfm, ssm} = {TransferFunctionModel[Unevaluated[{{(E^-5 s/1 + 2 s)}}], s, SamplingPeriod -> None, SystemsModelLabels -> None], StateSpaceModel[{{{0, 1}, {-3, -(2/3)}}, {{0}, {Subscript[, (7/3)]}}, {{1, 0}}, {{0}}}, SamplingPeriod -> None, SystemsModelLabels -> None]};series = SystemsModelSeriesConnect[tfm, ssm]//SimplifyPlot[Evaluate[Table[OutputResponse[sys, UnitStep[t], {t, 0, 20}], {sys, {tfm, ssm, series}}]], {t, 0, 20}, PlotLegends -> {"tfm", "ssm", "series"}]feedback = SystemsModelFeedbackConnect[ssm, tfm]//SimplifyPlot[Evaluate[Table[OutputResponse[sys, UnitStep[t], {t, 0, 20}], {sys, {tfm, ssm, feedback}}]], {t, 0, 20}, PlotLegends -> {"tfm", "ssm", "feedback"}]