软件安装包psat2.1.6

这是2.1.6 还有2.1.7 以及最新的2.1.8

function check = autorun（msgtype）
% AUTORUN properly launch PSAT routine checking for data
%         files and previous power flow solutions
%
% CHECK = AUTORUN（MSG）
%         MSG   message to be displayed
%         TYPE  0 for static analysis 1 for dynamic analysis
%         CHECK 1 if everything goes fine 0 otherwise
%
%Author:    Federico Milano
%Date:      29-Oct-2003
%Version:   1.0.0
%
%E-mail:    Federico.Milano@uclm.es
%Web-site:  http://www.uclm.es/area/gsee/Web/Federico
%
% Copyright （C） 2002-2010 Federico Milano

global Settings File Bus
global DAE LIB SNB OPF CPF clpsat Comp

check = 0;

% check for data file
if isempty（File.data）
  fm_disp（[‘Set a data file before running ‘msg‘.‘]2）
  return
end

% check for initial power flow solution
if ~Settings.init
  solvepf
  if ~Settings.init return end
end

% check for dynamic components if running a static analysis
if ~type & DAE.n & ~clpsat.init
  dynlf = sum（prod（Comp.prop（:[3 6 9]）2））;
  iscpf = strcmp（msg‘Continuation Power Flow‘）;
  if ~Settings.static & ~dynlf
    Settings.ok = 0;
    uiwait（fm_choice（‘Dynamic components will be discarded. Continue?‘））
    if Settings.ok
      Settings.static = 1;
      solvepf
      Settings.static = 0; % reset initial condition
    else
      return
    end
  elseif ~Settings.static & ~dynlf & iscpf
    Settings.ok = 0;
    uiwait（fm_choice（[‘Dynamic components can lead to numerical ‘ ...
                      ‘problems discard?‘]））
    if Settings.ok
      Settings.static = 1;
      solvepf
      Settings.static = 0; % reset initial condition
    end
  elseif iscpf
    Settings.ok = 1;
    %uiwait（fm_choice（[‘Dynamic components can lead to numerical ‘ ...
    %                  ‘problems continue?‘]））
    %if ~Settings.ok return end
  else
    uiwait（fm_choice（[‘Dynamic components are not supported for ‘ ...
                      ‘static analysis‘]2））
    return
  end
end

% check for previous CPF & ATC solutions
if strcmp（msg‘SNB Direct Method‘）
  one = 1;
else
  one = 0;
end

if CPF.init & ~（one & CPF.init == 1）
  switch CPF.init
   case 1 met = ‘CPF‘;
   case 2 met = ‘ATC‘;
   case 3 met = ‘N-1 Cont. An.‘;
   case 4 met = ‘Continuation OPF （PSAT-GAMS）‘;
  end
  Settings.ok = 0;
  if clpsat.init
    Settings.ok = clpsat.refresh;
  else
    uiwait（fm_choice（[met‘ has been run last. Do you want to‘ ...
                      ‘ restore initial PF solution?‘]））
  end
  if Settings.ok
    solvepf
    fm_disp（[‘Initial PF solution will be used as ‘ ...
	     ‘base case solution.‘]）
  else
    fm_disp（[‘Last ‘met‘ solution will be used as ‘ ...
	     ‘base case solution.‘]）
  end
  CPF.init = 0;
end

% check for previous time domain simulations
if Settings.init == 2
  Settings.ok = 0;
  if clpsat.init
    Settings.ok = clpsat.refresh;
  else
    uiwait（fm_choice（[‘TD has been run last. Do you want to‘ ...
                      ‘ restore initial PF solution?‘]））
  end
  if Settings.ok
    solvepf
    fm_disp（[‘Initial PF solution

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2010-05-14 08:59  psat\
     目录           0  2010-04-07 11:44  psat\@ARclass\
     文件        1007  2008-04-27 22:09  psat\@ARclass\ARclass.m
     文件         262  2008-03-06 09:42  psat\@ARclass\base.m
     文件        1269  2008-03-06 19:20  psat\@ARclass\block.m
     文件          37  2008-03-06 09:43  psat\@ARclass\display.m
     文件         162  2008-03-06 09:43  psat\@ARclass\getidx.m
     文件         519  2008-03-06 09:43  psat\@ARclass\growth.m
     文件        1068  2008-03-06 19:19  psat\@ARclass\idnum.m
     文件         109  2008-07-09 06:44  psat\@ARclass\init.m
     文件         155  2008-03-06 11:26  psat\@ARclass\mask.m
     文件         104  2008-03-06 09:43  psat\@ARclass\restore.m
     文件        1796  2010-01-29 11:19  psat\@ARclass\setup.m
     文件         796  2008-03-06 09:43  psat\@ARclass\subsasgn.m
     文件        1111  2008-03-06 09:44  psat\@ARclass\subsref.m
     目录           0  2010-05-14 08:42  psat\@AVclass\
     文件       12292  2009-12-04 17:06  psat\@AVclass\.DS_Store
     文件          94  2007-11-16 18:32  psat\@AVclass\add.m
     文件         633  2008-04-27 22:08  psat\@AVclass\AVclass.m
     文件         309  2008-05-14 11:07  psat\@AVclass\bdmatrix.m
     文件        1041  2008-09-17 17:07  psat\@AVclass\block.m
     文件         198  2008-09-18 07:08  psat\@AVclass\ceiling.m
     文件          37  2007-11-16 18:32  psat\@AVclass\display.m
     文件         694  2007-11-16 18:32  psat\@AVclass\dynidx.m
     文件        1178  2008-04-04 15:30  psat\@AVclass\equiv.m
     文件        2347  2008-10-14 16:11  psat\@AVclass\fcall.m
     文件        3839  2008-09-17 17:04  psat\@AVclass\Fxcall.m
     文件         175  2007-11-16 18:32  psat\@AVclass\gcall.m
     文件         238  2007-11-16 18:32  psat\@AVclass\getxy.m
     文件         109  2007-11-16 18:32  psat\@AVclass\Gycall.m
     文件         188  2008-07-09 06:43  psat\@AVclass\init.m
............此处省略1646个文件信息