chandelay.m

来自「该程序仿真超宽带的脉冲位置调制。是在MATLAB下实现的。」· M 代码 · 共 69 行

function [sys,x0,str,ts] = chanDelay(t,x,u,flag,delay,Ts)

switch flag,

  %%%%%%%%%%%%%%%%%%
  % Initialization %
  %%%%%%%%%%%%%%%%%%
  case 0,
    sizes = simsizes;

    sizes.NumContStates  = 0;
    sizes.NumDiscStates  = floor(delay/Ts);
    sizes.NumOutputs     = 1;
    sizes.NumInputs      = 1;
    sizes.DirFeedthrough = 1;
    sizes.NumSampleTimes = 1;   % at least one sample time is needed

    sys = simsizes(sizes);
    
    x0  = zeros(1,floor(delay/Ts));
    str = []; ts  = [0 0];

  %%%%%%%%%%%%%%%
  % Derivatives %
  %%%%%%%%%%%%%%%
  case 1,
    sys=[];

  %%%%%%%%%%
  % Update %
  %%%%%%%%%%
  case 2,
      if floor(delay/Ts)==0
          sys=[];
      else
          l=length(x);
          x(2:l)=x(1:l-1);
          x(1)=u;
          sys=x;
      end
                
  %%%%%%%%%%%
  % Outputs %
  %%%%%%%%%%%
  case 3,
      if floor(delay/Ts)==0
          sys=u;
      else
          sys=x(length(x));
      end
      
  %%%%%%%%%%%%%%%%%%%%%%%
  % GetTimeOfNextVarHit %
  %%%%%%%%%%%%%%%%%%%%%%%
  case 4,
    sys=[];
  %%%%%%%%%%%%%
  % Terminate %
  %%%%%%%%%%%%%
  case 9,
     sys=[];
     
  %%%%%%%%%%%%%%%%%%%%
  % Unexpected flags %
  %%%%%%%%%%%%%%%%%%%%
  otherwise
    error(['Unhandled flag = ',num2str(flag)]);

end