bpeng.m

％ Atomizer Main Directory, Version .802 里面信号含有分解去噪合成过程的代码 ％---------------------------------------

function bpeng( engine )

% bpeng( engine ) -- sets ATOMIZER_ENGINE for BPDemo
%----------------------------------------------------------------------
% bpeng(1) sets global variable ATOMIZER_ENGINE = 1998;
% bpeng(2) sets global variable ATOMIZER_ENGINE = 2001;
%----------------------------------------------------------------------

%----------------------------------------------------------------------
% 12 Apr 2001: (M. Saunders) First version of bpeng.
%              For use with BPDemo.
%----------------------------------------------------------------------

  global ATOMIZER_ENGINE

% For some reason, BPDemo creates an unwanted Figure 1.
% We could remove it here if only we knew how!




% Set the engine for the BP scripts.

  switch engine
    case 1
      ATOMIZER_ENGINE = 1998;
    case 2
      ATOMIZER_ENGINE = 2001;
    otherwise
      ATOMIZER_ENGINE = 2001;
  end