unidelay.m

华东理工大学自动化系《控制系统分析、设计和应用》教材配套程序实例,有关说明： 1. 安装MATLAB软件。安装时

% unidelay
% 时间延时系统。
function [sys,x0,str,ts] = unidelay(t,x,u,flag)
switch flag,
  case 0,  
    [sys,x0,str,ts] = mdlInitializeSizes;  
  case 2,  
    sys = mdlUpdate(t,x,u);
  case 3,  
    sys = mdlOutputs(t,x,u);    
  case 9,  
    sys = [];
  otherwise
    error(['unhandled flag = ',num2str(flag)]);
end
function [sys,x0,str,ts]=mdlInitializeSizes
sizes = simsizes;
sizes.NumContStates  = 0;
sizes.NumDiscStates  = 1;
sizes.NumOutputs     = 1;
sizes.NumInputs      = 1;
sizes.DirFeedthrough = 0;
sizes.NumSampleTimes = 1;
sys = simsizes(sizes);
x0  = 0;
str = [];
ts  = [.1 0]; % Sample period of 0.1 seconds (10Hz)
function sys = mdlUpdate(t,x,u)
sys = u;    
function sys = mdlOutputs(t,x,u)
sys = x;