advection_fv_output_model_hp.m

function model = advection_fv_output_model_hp(params)
%function model = advection_fv_output_model(params);
%
% model for the new advection model with functional output
% two overlapping velocity fields and boundary value modification
% are the parameters. Output functional is average concentration 
% in subdomain. Pure explicit discretization of convection with ldg
% discretization 
%
% example of a model not as class but as structure plus function pointers
% goal: library works with structure- or class-models
%
% possible fields of params:
%      coarse_factor: coarsening factor between 1 and 8 
%                     time-steps, gridsize are scaled down with this. 
%
% (To be used as base model for initial results of RBEvolOpt...)

% B. Haasdonk 26.8.2009

model = [];
if (nargin ==1) & (isfield(params,'coarse_factor'))
  coarse_factor = params.coarse_factor;
else
  coarse_factor = 1;
end;

% specification of the time information
model.T             = 1;
model.nt            = 2048/coarse_factor;
%model.save_time_indices = 0:16/coarse_factor:model.nt;
model.save_time_indices = 0:8/coarse_factor:model.nt;
disp('nt to be adjusted later!');
model.dt = model.T/model.nt;
model.verbose = 9;
model.debug = 0;
%model.debug = 1; %
%if model.debug
%  disp('model with debugging turned on.');
%end;
model.axis_equal = 1;
model.error_estimation = 1;

% grid information
%model.grid_initfile = 'rectangle_triagrid.mat';
model.gridtype = 'triagrid';
model.xnumintervals = 256/coarse_factor;
model.ynumintervals = 128/coarse_factor;
model.xrange = [0,2];
model.yrange = [0,1];
% set completely dirichlet boundary
model.bnd_rect_corner1 = [0,0]-eps;
model.bnd_rect_corner2 = [2,1]+eps;
%model.opts.bnd_rect_index   = [-1];
model.element_quadrature = @triaquadrature;
model.intersection_quadrature = @intervalquadrature;
model.dim_U = model.xnumintervals * model.ynumintervals * 2;

% Main global function pointers expected in every model
model.gen_model_data =      @lin_evol_gen_model_data;
model.gen_detailed_data =   @lin_evol_gen_detailed_data;
model.gen_reduced_data =     @lin_evol_gen_reduced_data;
model.detailed_simulation = @lin_evol_detailed_simulation;
model.rb_simulation =       @lin_evol_rb_simulation;
model.rb_reconstruction =   @rb_reconstruction_default;
model.plot_sim_data =       @lin_evol_plot_sim_data;

%hp-settings:
model.distance_function = @euclidean_distance;
model.RB_extension_algorithm_hp = @RB_extension_PCA_fixspace_flexible_hp;
model.PCA_fixspace_evalues = @PCA_fixspace_evalues;


% Dirichlet and Initial data
model.dirichlet_values_ptr = @dirichlet_values_affine_decomposed;
model.dirichlet_values_coefficients_ptr = @my_dirichlet_values_coefficients;
model.dirichlet_values_components_ptr = @my_dirichlet_values_components;
% dummy one dirichlet_values:
%model.dirichlet_values_coefficients_ptr = @(params) 1;
%model.dirichlet_values_components_ptr = @(glob,params) {ones(1, ...
%                                                 size(glob,2))};
model.rb_operators = @lin_evol_rb_operators;
model.error_norm      = 'l2';
model.L_I_inv_norm_bound = 1;
model.L_E_norm_bound     = 1;
model.rb_init_data_basis = @RB_init_data_basis;
model.rb_init_values = @rb_init_values_default;
model.init_values_ptr = @init_values_affine_decomposed;
model.init_values_coefficients_ptr = @my_dirichlet_values_coefficients_t0;
model.init_values_components_ptr = @my_dirichlet_values_components;
model.init_values_algorithm = @fv_init_values;
model.cone_number = 3; % number of components = cones 
model.cone_range = [0,1]; % x-range of cone-support 
model.cone_weight = 1; % leftmost cone with full weight
model.velocity_ptr = @velocity_affine_decomposed;
model.velocity_coefficients_ptr = @my_velocity_coefficients;
model.velocity_components_ptr = @my_velocity_components;
%model.vx_weight = 1.0;
model.vx_weight = 0.75;
%model.vy_weight = 1.0;
model.vy_weight = 0.75;
model.conv_flux_ptr = @conv_flux_linear;
model.set_rb_in_detailed_data = @(detailed_data,RB) ...
      setfield(detailed_data,'RB',RB);
model.get_rb_size = @(model,detailed_data)size(detailed_data.RB,2);
%  set parameter setting function
model.set_time = @set_time_default; % not set_time!!!
model.set_mu = @set_mu_default;
model.get_mu = @get_mu_default;

% perhaps these are redundant later...
model.divclean_mode = 0;
model.flux_quad_degree = 1;
model.flux_linear = 1;

%model.init_values_algorithm = @disc_init_values;
model.init_values_qdeg = 0;
model.pdeg = 0; % FV schemes with piecewise constant ansatz functions
model.evaluate_basis = @fv_evaluate_basis;
model.l2project = @l2project;
model.local_mass_matrix = @fv_local_mass_matrix_tria; % triangular grid
model.mass_matrix = @fv_mass_matrix; 
model.ndofs_per_element = 1;
model.plot = @fv_plot; % then also plot_sequence will work

% for use of old datafunctions, use the following:
%model.operators_ptr = @fv_operators_implicit_explicit;
%model.operators_conv_explicit = @fv_operators_conv_explicit;
%model.operators_conv_implicit = @fv_operators_conv_implicit;
%model.operators_diff_explicit = @fv_operators_diff_explicit;
%model.operators_diff_implicit = @fv_operators_diff_implicit;
%model.operators_neumann_explicit = @fv_operators_neumann_explicit_old;
%model.operators_neumann_implicit = @fv_operators_neumann_implicit;

model.operators_ptr = @fv_operators_implicit_explicit;
% for use of new data function access, use now
model.operators_conv_explicit = @fv_operators_conv_explicit_engquist_osher;
model.operators_conv_implicit = @fv_operators_zero;
model.operators_diff_explicit = @fv_operators_zero;
model.operators_diff_implicit = @fv_operators_zero;
model.operators_neumann_implicit = @fv_operators_zero;
model.operators_neumann_explicit = @fv_operators_zero;
model.operators_output = @fv_operators_output;
model.orthonormalize= @model_orthonormalize_gram_schmidt; %new
%model.operators_diff_implicit = @fv_operators_diff_implicit_gradient;
%model.operators_neumann_explicit = @fv_operators_neumann_explicit;

%model.flux_linear = 1;
model.data_const_in_time = 0; % time varying data...
%model.diffusivity_ptr = ...;
%model.neumann_value_ptr = @...
model.affinely_decomposed = 1; % data functions allow affine
                               % parameter decomposition

model.compute_output_functional = 1; % turn on computation of output
model.output_function_ptr = @output_function_box_mean;
%model.sbox_xmin = 1;
model.sbox_xmin = 1;
model.sbox_xmax = 2;
model.sbox_ymin = 0;
%model.sbox_ymax = 0.5;
model.sbox_ymax = 0.5;

%model.disc_element_mean_ptr = @fv_element_mean;

% RB information:
%model.mu_names           = {'cone_weight','vx_weight','vy_weight'};
model.mu_names           = {'vx_weight','vy_weight'};
%model.mu_ranges          = {[0 1],[0 1],[0,1]};
model.mu_ranges          = {[0 1],[0 1]};%,[0 1]};

%3d
%model.mu_names           = {'cone_weight','vx_weight','vy_weight'};
%model.mu_ranges          = {[0 1],[0 1],[0,1]};

model.random_seed=1234;
%model.RB_numintervals = [2,2,2];
%model.RB_numintervals = [2];
model.RB_generation_mode = 'greedy_refined';%'greedy_uniform_fixed'; %
model.RB_refinement_mode = 'adaptive';
model.RB_error_indicator = 'estimator';%'error';%'estimator';
model.RB_detailed_train_savepath = fullfile(rbmatlabtemp,'dump');
model.RB_extension_algorithm = @RB_extension_PCA_fixspace_flexible;
model.RB_stop_epsilon = 1e-2;%1e-1;
model.RB_stop_timeout = 24*60*60; % 1 minute
model.RB_stop_Nmax = 20;
model.nr_extension_modes = 1;
%fields for adaptive training set extension:
%model.RB_stop_max_val_train_ratio = 1;
%model.RB_refinement_theta = 0.2;
%model.RB_val_rand_seed = 543;
%model.RB_M_val_size = 10;
%model.RB_max_refinement_level = 5;
%model.RB_element_indicator_mode='nodes_cogs_skippedrefs';
%model.RB_element_indicator_s_max = 1;
%model.RB_mixed_sensitivity_basis_generation =0;

model.get_inner_product_matrix = @(model_data)model_data.W;
model.inner_product_matrix_algorithm = @(model,model_data)model_data.W;
model.get_estimator_from_sim_data = @(sim_data)sim_data.Delta(end);
model.get_dofs_from_sim_data      = @(sim_data) sim_data.U;
model.filecache_ignore_fields_in_model = {'N','Nmax','mu_ranges'}; 
model.filecache_ignore_fields_in_detailed_data = {'RB_info'};
model.get_rb_from_detailed_data = @(detailed_data) detailed_data.RB;
model.set_rb_in_detailed_data   = @(detailed_data,RB) ...
                                    setfield(detailed_data,'RB',RB);
model.PCA_fixspace                = @PCA_fixspace;
model.reduced_data_subset = @lin_evol_reduced_data_subset;%@(model, reduced_data)reduced_data; %evtl. replace?!?
%return; % temporary end

%model.L_I_inv_norm_bound = 1; % bounds for implicit/explicit operator
%model.L_E_norm_bound     = 1;

%model.neumann_values_ptr = 0;

%model.name_init_values = 'decomp_function_ptr';
% implement below!!
%model.init_values_coefficients_ptr = @my_init_values_coefficients;
%model.init_values_components_ptr = @my_init_values_components;

%model.name_diffusive_num_flux = 'none';


%name_diffusive_num_flux = 'gradient';
    % precomputed, divcleaned velocity field
%    name_flux               = 'gdl2';                
%
%    lambda = 2.0e-7;   % v = - lambda * grad p
%    name_convective_num_flux = 'lax-friedrichs';
%    inner_product_matrix_algorithm = @fv_inner_product_matrix;
%    verbose = 5;
%    
%model.rb_init_values        = @rb_init_values;
%    
%% further method pointers, which are specific to model:
model.orthonormalize             = @model_orthonormalize_gram_schmidt;
model.inner_product              = @fv_inner_product;
%model.PCA                        = @model_PCA_fixspace;
%model.cached_detailed_simulation = @cached_detailed_simulation;
%model.save_detailed_simulations  = @save_detailed_simulations;
%model.load_detailed_simulation   = @load_detailed_simulation;
%model.use_velocity_matrixfile = 1;
%model.divclean_mode = 'none'; % file is already cleaned by optimization

% set matrix-file name for optional generation or reading of file 
%model.velocity_matrixfile = ['vel_',    model.name_flux,'_',...
%                   num2str(    model.xnumintervals),'x',...
%                   num2str(    model.ynumintervals),...
%                   '_l',num2str(    model.lambda),'.mat'];%
%
%model.lxf_lambda = 1.0194e+003;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% auxiliary functions used as pointers above:
%%%%% check later, if they are of general interest to be exported
%%%%% as standalone functions
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% new function syntax: global coordinates as rows in glob_coord,
% time and parameter variables in params

% dirichlet-data: convex combination of equidistant cones, decaying
% in time
function res = my_dirichlet_values_coefficients_t0(params);
params.t = 0;
res = my_dirichlet_values_coefficients(params);

function res = my_dirichlet_values_coefficients(params);
% res is a vector of coefficients
Q_0 = params.cone_number;
res = zeros(1,Q_0);
max_pos = params.cone_weight * (Q_0-1)+1;
t = params.t;
for q = 1:Q_0  
  res(q) = (1-(max_pos-q))*(1-t) * ((max_pos>=q) && (max_pos < q+1)) ...
           + (1+(max_pos-q))*(1-t) * ((max_pos>=q-1) && (max_pos < q));
end;

function res = my_dirichlet_values_components(glob,params);
% res is a cell-array of row-vectors of global evaluations
Q_0 = params.cone_number;
res = cell(1,Q_0);
%delta_cone = 1/(Q_0+1);
delta_cone = (params.cone_range(2)-params.cone_range(1))/(Q_0+1);
cone_pos_x = delta_cone * (1:Q_0)+ params.cone_range(1);
for q = 1:Q_0  
  res{q} = 1-min(sqrt((glob(:,1)-cone_pos_x(q)).^2+...
            (glob(:,2)-1).^2)*(Q_0+1),1);
end;

% velocity field: overlap of y- and x parabolic profiles
function res = my_velocity_coefficients(params);
res = [params.vx_weight, params.vy_weight]*(1-params.t);

function res = my_velocity_components(glob,params);
resx = [5*(1-glob(:,2).^2),...
        zeros(size(glob,1),1)];
%resy = [zeros(1,size(glob,2));...
%        -2*((1-glob(1,:).^2 .*(glob(1,:)>=0) & (glob(1,:)<=1)...
%            ))];
resy = [zeros(size(glob,1),1),...
        -1*((4-glob(:,1).^2))];
res = {resx, resy};

%function res = my_velocity_coefficients2(params);
%res = 1;

%function res = my_velocity_components2(glob,params);
%res = {repmat([0;-1],1,size(glob,2))};

%| \docupdate