mergefcn.m

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

function [sys,x0,str,ts] = mergefcn(t,x,u,flag)
switch flag,
    case 0,
      [sys,x0,str,ts]=mdlInitializeSizes;
    case 2,
      sys=mdlUpdate(t,x,u);
    case 9,
      sys = mdlTerminate;
    case { 1, 3, 4 }
      sys=[];
    otherwise
      error(['Unhandled flag = ',num2str(flag)]);
end
function [sys,x0,str,ts] = mdlInitializeSizes()
sizes = simsizes;
sizes.NumContStates  = 0;
sizes.NumDiscStates  = 0;
sizes.NumOutputs     = 0;
sizes.NumInputs      = 0;
sizes.DirFeedthrough = 1;
sizes.NumSampleTimes = 1;
sys = simsizes(sizes);
str = [];x0  = [];ts  = [-1 0];   
function sys = mdlUpdate(t,x,u)
root = get_param(bdroot,'Handle');
subs = find_system(root,'Tag','MergeExample');
parent = get_param(get_param(gcbh,'Parent'),'Handle');
notme = subs(find(subs ~= parent));
me = subs(find(subs == parent));
if ~strcmp(get_param(me,'BackgroundColor'),'green')
      set_param(me,'BackgroundColor','red');
      drawnow
      set_param(notme,'backgroundcolor','white')
end
shortpause
sys = [];
function sys = mdlTerminate
root = get_param(bdroot,'Handle');
subs = find_system(root,'Tag','MergeExample');
set_param(subs,'Backgroundcolor','white')
sys = [];
function shortpause
pause(0.1)