PSAT软件及900页原版教程.rar

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-2009 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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1007  2008-04-28 00:09  PSAT资料psatpsat@ARclassARclass.m

     文件        262  2008-03-06 10:42  PSAT资料psatpsat@ARclassase.m

     文件       1269  2008-03-06 20:20  PSAT资料psatpsat@ARclasslock.m

     文件         37  2008-03-06 10:43  PSAT资料psatpsat@ARclassdisplay.m

     文件        162  2008-03-06 10:43  PSAT资料psatpsat@ARclassgetidx.m

     文件        519  2008-03-06 10:43  PSAT资料psatpsat@ARclassgrowth.m

     文件       1068  2008-03-06 20:19  PSAT资料psatpsat@ARclassidnum.m

     文件        109  2008-07-09 08:44  PSAT资料psatpsat@ARclassinit.m

     文件        155  2008-03-06 12:26  PSAT资料psatpsat@ARclassmask.m

     文件        104  2008-03-06 10:43  PSAT资料psatpsat@ARclass
estore.m

     文件       1789  2008-07-09 19:35  PSAT资料psatpsat@ARclasssetup.m

     文件        796  2008-03-06 10:43  PSAT资料psatpsat@ARclasssubsasgn.m

     文件       1111  2008-03-06 10:44  PSAT资料psatpsat@ARclasssubsref.m

     文件         94  2007-11-16 19:32  PSAT资料psatpsat@AVclassadd.m

     文件        633  2008-04-28 00:08  PSAT资料psatpsat@AVclassAVclass.m

     文件        309  2008-05-14 13:07  PSAT资料psatpsat@AVclassdmatrix.m

     文件       1041  2008-09-17 19:07  PSAT资料psatpsat@AVclasslock.m

     文件        198  2008-09-18 09:08  PSAT资料psatpsat@AVclassceiling.m

     文件         37  2007-11-16 19:32  PSAT资料psatpsat@AVclassdisplay.m

     文件        694  2007-11-16 19:32  PSAT资料psatpsat@AVclassdynidx.m

     文件       1178  2008-04-04 17:30  PSAT资料psatpsat@AVclassequiv.m

     文件       2347  2008-10-14 18:11  PSAT资料psatpsat@AVclassfcall.m

     文件       3839  2008-09-17 19:04  PSAT资料psatpsat@AVclassFxcall.m

     文件        175  2007-11-16 19:32  PSAT资料psatpsat@AVclassgcall.m

     文件        238  2007-11-16 19:32  PSAT资料psatpsat@AVclassgetxy.m

     文件        109  2007-11-16 19:32  PSAT资料psatpsat@AVclassGycall.m

     文件        188  2008-07-09 08:43  PSAT资料psatpsat@AVclassinit.m

     文件        500  2008-02-22 19:34  PSAT资料psatpsat@AVclassmask.m

     文件        327  2007-11-16 19:32  PSAT资料psatpsat@AVclass
emove.m

     文件        104  2007-11-16 19:32  PSAT资料psatpsat@AVclass
estore.m

............此处省略1650个文件信息