fm_simsave.m

电力系统的psat

function fm_simsave(varargin)
% FM_SIMSAVE attempts to save the current Simulink model to
%            Simulink 3 (R11) or, if it is not possible, to the
%            oldest supported Simulink release.
%
%            This functions calls UIGETFILE to chose a Simulink
%            model. At the end of the procedure, the original file
%            will subsituted with the new one.
%
%Author:    Federico Milano
%Date:      07-Aug-2003
%Version:   1.0.0
%
%E-mail:    [e-mail]
%Web-site:  http://thunderbox.uwaterloo.ca/~fmilano
%
% Copyright (C) 2002-2005 Federico Milano
%
% This toolbox is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2.0 of the License, or
% (at your option) any later version.
%
% This toolbox is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANDABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
% General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this toolbox; if not, write to the Free Software
% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307,
% USA.

global Path Settings

if Settings.hostver < 6
  fm_choice('This function runs only under Matlab 6.x or newer',2)
  fm_disp('This function runs only under Matlab 6.x or newer')
  return
end

switch nargin
 case 0,
  [filename, pathname] = uigetfile('*.mdl', ...
                                   'Chose Simulink Model...');
 case 1,
  if ~strcmp(varargin{1},'all'), return, end
  foldername = uigetdir(Path.local)
  a = dir([foldername,filesep,'*.mdl']);
  names = {a.name}
  for i = 1:length(names)
    fm_simsave(names{i},foldername);
  end
  return
 otherwise,  
  filename = varargin{1};
  pathname = varargin{2};
end

if isequal(pathname,0), return, end

modelname = strrep(filename,'.mdl','');

currentpath = pwd;

cd(pathname)

if Settings.hostver >= 7

  fm_disp(['Model ', modelname,' will be saved in Simulink 4 (R12) format.'])
  load_system(modelname);
  save_system(modelname,modelname,'','R12');

else % Matlab version < 7
  
  fm_disp(['Model ', modelname,' will be saved in Simulink 3 (R11) format.'])
  
  if exist(filename) == 4
    fm_disp(['Create dummy file ',modelname,'_53.mdl ...'])
    if Settings.hostver == 6.5
      slsaveas(modelname,[modelname,'_53'],'SaveAsR11');
    else
      slsaveas(modelname,[modelname,'_53']);
    end
  else
    fm_disp('The selected file is not a Simulink model ...')
  end
  
  fm_disp(['Replacing ',modelname,'_53.mdl with ',modelname,'.mdl ...'])
  [s,m1,m2] = copyfile([modelname,'_53.mdl'],[modelname,'.mdl'],'f');
  if ~s
    fm_disp(m1)
    fm_disp(m2)
  else
    delete([modelname,'_53.mdl'])
    fm_disp([modelname,'.mdl converted.'])
  end
  
end

cd(currentpath)