1 function [RBext,dummy] = RB_extension_lin_stat_default(model, detailed_data)
2 %
function RBext = RB_extension_lin_stat_default(model, detailed_data)
5 %
function for basis extension in stationary cases.
6 % A detailed simulation is performed and the solution is orthogonalised to
10 % Markus Dihlmann 06.11.2012
14 sim_data = detailed_simulation(model, detailed_data);
15 vec = model.get_dofs_from_sim_data(sim_data);
18 A = model.get_inner_product_matrix(detailed_data);
19 ovec = vec - detailed_data.RB * (detailed_data.RB
'*A*vec);
21 n=sqrt(max(ovec'*A*ovec,0));
24 %
return orthonormal vector