1 function OK = test_ldgfunc
2 %
function testing ldgfunc abilities
5 % l2projection of vectorial
function
6 % extraction of scalar component
7 % local evaluation of vectorial
function
10 % Bernard Haasdonk 18.1.2010
17 %params.nelements = grid.nelements;
19 params.dimrange = 2; % vectorial
function
20 %params.ndofs = ldg_ndofs(params);
21 %params.ndofs_per_element = ldg_ndofs_per_element(params);
24 %
function constant [1.0, 1.0]
25 f = @(einds,loc,grid,params) ones(length(einds),1)*[1.0, 1.0];
27 %f = @(einds,loc,grid,params) f_global(...
28 % local2global(grid,einds,loc,params),params);
32 df.dofs = ldg_l2project(f,qdeg,df_info);
34 df_scalar = scalar_component(df,1);
35 %[dofs1, params1 ] = ldg_scalar_component(dofs,1,params);
36 %disp(
'local evaluation should be constant [1 1]');
39 if max(max(abs(res-ones(10,df.dimrange))))>1e-6
40 disp('test_ldgfunc: local evaluation result of projected dofs not [1,1]!!');
44 res = df_scalar(1:10,[0,0]);
45 if max(max(abs(res-ones(10,1))))>1e-6
46 disp('test_ldgfunc: local evaluation of scalar component not 1!!');
50 res = ldg_l2error(df,f,qdeg);
52 disp('test_ldgfunc: ldg_l2error not 0!!');
56 %disp(
'plot should be constant 1');