dirichlet_values_affine_decomposed.m

function U = dirichlet_values_affine_decomposed(glob, params)
%function U = init_values_affine_decomposed(glob, params)
%
% function evaluating a function in the list of global coordinates
% specified in the columns of glob. Result is a matrix of dirichlet
% value results as columns of U.
%
% The function is given by function pointer to components and coefficients:
% required fields of params:
%    dirichlet_values_coefficients_ptr: Function must allow call
%            'U =f(params)' Return is a vector of length 'Q' with (parameter
%            dependent) coefficients in 'U'.
%    dirichlet_values_components_ptr: Functions must
%                  allow call 'U = f(glob,params)' Return of components is a
%                  cell array of matrices of the same size as 'glob' with the
%                  point values of the components.
%
% Linear combination of components by coefficients yields the complete
% evaluation.

% Bernard Haasdonk 27.8.2009

% determine affine_decomposition_mode as integer  
% glob column check
if params.debug
  if ~isempty(glob) && size(glob,1) < size(glob,2)
    warning('coordinates in variable glob are given row-wise, but expected them to be column-wise');
    if params.debug > 2
      keyboard;
    end
  end
end
decomp_mode = params.decomp_mode;

if decomp_mode == 2
  U = params.dirichlet_values_coefficients_ptr(params);
elseif decomp_mode == 1; % components
  U = params.dirichlet_values_components_ptr(glob,params);
else % decomp_mode = 0, complete
  Ucoefficients = params.dirichlet_values_coefficients_ptr(params);
  Ucomponents = params.dirichlet_values_components_ptr(glob,params); 
  U = lincomb_sequence(Ucomponents,Ucoefficients);        
end;    
%| \docupdate