created.asv

来自「支持向量机工具箱」· ASV 代码 · 共 27 行

%case 'creatdata'
   % == Invoke data set creator ============================================
%%   createdata('finite',10,'demo_emgmm','created',hfigure);
% createdata('finite',5,'created',hfigure);

%case 'created'
   % == Load new created data set ===========================================

   % get handler and make this figure active
   figure(hfigure);
   h=get(hfigure,'UserData');

   % get file name
   path=varargin{1};
   name=varargin{2};
   pathname=strcat(path,name);

%   if checkdat(pathname,DATA_IDENT,2,0)==1,
   if check2ddata(pathname)==1,
      file.pathname=pathname;
      file.path=path;
      file.name=name;
      set(h.pushbutton1,'UserData',file);
      demo_emgmm('loadsets',hfigure);
   else
      errordlg('This file does not contain required data.','Bad file','modal');
   end