ssinpchk.m

来自「基于ＭＡＴＬＡＢ的辅助设计 简述了矩阵分析的重要性」· M 代码 · 共 25 行

%
% SSINPCHK is a m-file which check a state space system

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 10:06  07/02/94

Ssm=abcdchk(A,B,C,D);
if Ssm ~= [],
  set([g(14),g(2:5)],'Visible','off')
  x=200;y=200;
  Ssmlen=length(Ssm);
  Han_m(1)=uicontrol(gcf,'Style','frame','Position',[(x-5)/Scx (y-5)/Scy (250)/Scx (110)/Scy]);;
  Han_m(2)=uicontrol(gcf,'Style','text','String','Wrong input','Position',...
  [(x)/Scx (y+70)/Scy (230)/Scx (20)/Scy]);
  Han_m(3)=uicontrol(gcf,'Style','text','String',Ssm(1:30),'Position',...
  [(x)/Scx (y+45)/Scy (230)/Scx (20)/Scy]);
  Han_m(4)=uicontrol(gcf,'Style','text','String',Ssm(31:Ssmlen),'Position',...
  [(x)/Scx (y+25)/Scy (230)/Scx (20)/Scy]);
  set(Han_m(3:4),'HorizontalAlignment','left');
  Han_m(5)=uicontrol(gcf,'Style','push','String','Ok !','Position',...
  [(x+90)/Scx (y)/Scy (40)/Scx (15)/Scy],'Callback','delete(Han_m);clear Han_m;set([g(14),g(2:5)],''Visible'',''on'');');
  ssok=0;
end