eval_affine_decomp_general.m

function R = eval_affine_decomp_general(R_comp_ptr,R_coeff_ptr,varargin)
%function R = eval_affine_decomp_general(R_comp_ptr,R_coeff_ptr,varargin)
%
% function returning either the components, coefficients or their
% linear combination depending on params.decomp_mode, where
% params.decomp_mode is assumed to be the last argument in
% varargin. Both function pointers are assumed to have the
% identical command line syntax R_comp_ptr(varargin(:));

params = varargin{end};
if params.decomp_mode == 2 
  R = R_coeff_ptr(varargin{:});
else
  if params.decomp_mode == 1
    R = R_comp_ptr(varargin{:});    
  else % decomp_mode = 0;
    params.decomp_mode = 1;
    alist = varargin;
    alist{end} = params;
%    Rcomp = R_comp_ptr(varargin{:}); 
    Rcomp = R_comp_ptr(alist{:}); 
    params.decomp_mode = 2;
    alist{end} = params;    
    Rcoeff = R_coeff_ptr(alist{:});
    R = lincomb_sequence(Rcomp,Rcoeff);
    params.decomp_mode = 0;
  end;
end;

%| \docupdate