bpengine.m

来自「％ Atomizer Main Directory, Version .802 」· M 代码 · 共 53 行

% bpengine -- set and check ATOMIZER_ENGINE
%----------------------------------------------------------------------
% bpengine is used by the Basis Pursuit scripts to ensure that a
% global variable exists with the following valid values:
%    ATOMIZER_ENGINE = 1998 or 2001.
%
% If ATOMIZER_ENGINE already exists as a local or global variable
% with valid value, that value is preserved and made global.
% Otherwise bpengine sets the default value: ATOMIZER_ENGINE = 2001;
%
% bpengine also sets a local variable to the following values:
%    FIGURE = 1998 or 2001 (respectively).
% The BP scripts create the specified figure.
% This allows comparison of the original and new solvers,
% BP_Interior*.m and BPDN_Interior*.m.
%
% Type bpengine to see what values will be used by the next BP script.
%----------------------------------------------------------------------

%----------------------------------------------------------------------
% 09 Apr 2001: (M. Saunders) First version of bpengine.
%----------------------------------------------------------------------

  if exist('ATOMIZER_ENGINE','var')
    if ~isglobal(ATOMIZER_ENGINE)
      temp = ATOMIZER_ENGINE;        % It exists but isn't yet global.
      clear  ATOMIZER_ENGINE;
      clear global ATOMIZER_ENGINE;  % Shouldn't be needed!
      global ATOMIZER_ENGINE;
      ATOMIZER_ENGINE = temp;        % Make existing value global.
    end
  else
    global ATOMIZER_ENGINE;
  end

  if isempty(ATOMIZER_ENGINE) | length(ATOMIZER_ENGINE)~=1
    ATOMIZER_ENGINE = 0;             % Replace bad value by dummy.
  end

  switch ATOMIZER_ENGINE
    case       1998
      FIGURE = 1998;
    case       2001
      FIGURE = 2001;
    otherwise
      ATOMIZER_ENGINE = 2001;        % Default values.
      FIGURE = 2001;
  end

  fprintf('Using ATOMIZER_ENGINE =%5g;   FIGURE =%5g;\n', ...
	         ATOMIZER_ENGINE,        FIGURE)