batch_plsgui.m

来自「绝对经典,老外制作的功能强大的matlab实现PLS_TOOBOX」· M 代码 · 共 44 行

function batch_plsgui(varargin)

   if nargin < 1
      error('Usage: batch_plsgui(batch_text_file_name(s))');
   end

   for i = 1:nargin
      batch_file = varargin{i};
      fid = fopen(batch_file);

      tmp = fgetl(fid);

      if ischar(tmp) & ~isempty(tmp)
         tmp = strrep(tmp, char(9), ' ');
         tmp = deblank(fliplr(deblank(fliplr(tmp))));
      end

      while ~feof(fid) & (isempty(tmp) | isnumeric(tmp) | strcmpi(tmp(1), '%'))
         tmp = fgetl(fid);

         if ischar(tmp) & ~isempty(tmp)
            tmp = strrep(tmp, char(9), ' ');
            tmp = deblank(fliplr(deblank(fliplr(tmp))));
         end
      end

      fseek(fid, 0, 'bof');

      if ischar(tmp) & ~isempty(tmp)
         tok = strtok(tmp);
      else
         tok = '';
      end

      if strcmpi(tok, 'result_file')
         batch_pls_analysis(fid);
      else
         batch_create_datamat(fid);
      end
   end

   return;					% batch_plsgui