bp_mat.m

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

function y = BP_mat( mode, m, n, x )
%        y = BP_mat( mode, m, n, x )
%    computes y = Ax (mode=1) or A'x (mode=2)
%    for some matrix A defined by global variables.
%    For use with BP_Interior2.m (which uses pdsco.m).

%-----------------------------------------------------------------------
% 20 Feb 2001: First version of BP_mat.m.  Same as BPDN_mat.m.
%              Michael Saunders, SOL, Stanford University.
%-----------------------------------------------------------------------

global            PDSn  PDSmat  PDSpar1  PDSpar2  PDSpar3

if mode == 1
   y = FastSS( x, PDSn, PDSmat, PDSpar1, PDSpar2, PDSpar3 );
else
   y = FastAA( x,       PDSmat, PDSpar1, PDSpar2, PDSpar3 );
end

y = y(:);

%-----------------------------------------------------------------------
% End function BP_mat
%-----------------------------------------------------------------------