cosinusprod_error_dg.cc
Go to the documentation of this file.
#include "rheolef.h"
using namespace rheolef;
using namespace std;
#include "cosinusprod.h"
int main(int argc, char**argv) {
environment rheolef(argc, argv);
Float err_linf_expected = (argc > 1) ? atof(argv[1]) : 1e+38;
bool dump = (argc > 2);
field uh; din >> uh;
space Xh = uh.get_space();
geo omega = Xh.get_geo();
size_t k = Xh.degree();
size_t d = omega.dimension();
integrate_option iopt;
iopt.set_family(integrate_option::gauss);
iopt.set_order(2*k+1);
Float err_l2 = sqrt(integrate (omega, sqr(uh-u_exact(d)), iopt));
basis b1 = Xh.get_basis();
b1.reset_family_index (k+1);
space Xh1 (omega, b1);
field eh = interpolate (Xh1, uh-u_exact(d));
Float err_linf = eh.max_abs();
Float err_h1 = sqrt(integrate (omega, norm2(grad_h(eh)), iopt)
+ integrate (omega.sides(), (1/h_local())*sqr(jump(eh)), iopt));
derr << "err_l2 = " << err_l2 << endl
<< "err_linf = " << err_linf << endl
<< "err_h1 = " << err_h1 << endl;
if (dump) {
dout << catchmark("uh") << uh
<< catchmark("u") << interpolate (Xh, u_exact(d));
}
return (err_linf <= err_linf_expected) ? 0 : 1;
}
Float
see the Float page for the full documentation
basis
see the basis page for the full documentation
field
see the field page for the full documentation
geo
see the geo page for the full documentation
rheolef::catchmark
see the catchmark page for the full documentation
Definition: catchmark.h:67
rheolef::environment
see the environment page for the full documentation
Definition: environment.h:115
rheolef::field_basic::max_abs
T max_abs() const
Definition: field.h:731
rheolef::integrate_option
see the integrate_option page for the full documentation
Definition: integrate_option.h:125
rheolef::integrate_option::gauss
@ gauss
Definition: integrate_option.h:132
rheolef::integrate_option::set_family
void set_family(family_type type)
Definition: integrate_option.h:260
rheolef::integrate_option::set_order
void set_order(size_t r)
Definition: integrate_option.h:254
rheolef::std
Definition: vec_expr_v2.h:402
rheolef::din
idiststream din
see the diststream page for the full documentation
Definition: diststream.h:427
rheolef::dout
odiststream dout(cout)
see the diststream page for the full documentation
Definition: diststream.h:430
rheolef::derr
odiststream derr(cerr)
see the diststream page for the full documentation
Definition: diststream.h:436
space
see the space page for the full documentation
cosinusprod.h
The cosinus product function.
main
int main(int argc, char **argv)
Definition: cosinusprod_error_dg.cc:29
Xh1
space_basic< T, M > Xh1
Definition: field_expr.h:263
eh
field_basic< T, M > eh
Definition: form_field_expr.h:58
dump
verbose clean transpose logscale grid shrink ball stereo iso volume skipvtk deformation fastfieldload lattice reader_on_stdin color format format format format format format format format format format format format format format format format format format dump
Definition: iorheo-members.h:119
mkgeo_ball.d
int d
Definition: mkgeo_ball.sh:154
rheolef
This file is part of Rheolef.
Definition: compiler_eigen.h:37
rheolef::h_local
details::field_expr_v2_nonlinear_terminal_function< details::h_local_pseudo_function< Float > > h_local()
h_local: see the expression page for the full documentation
Definition: field_expr_terminal.h:527
rheolef::grad_h
std::enable_if< details::is_field_convertible< Expr >::value,details::field_expr_v2_nonlinear_terminal_field< typename Expr::scalar_type,typename Expr::memory_type,details::differentiate_option::gradient >>::type grad_h(const Expr &expr)
grad_h(uh): see the expression page for the full documentation
Definition: field_expr_terminal.h:949
rheolef::integrate
std::enable_if< details::is_field_expr_v2_nonlinear_arg< Expr >::value &&! is_undeterminated< Result >::value, Result >::type integrate(const geo_basic< T, M > &omega, const Expr &expr, const integrate_option &iopt, Result dummy=Result())
see the integrate page for the full documentation
Definition: integrate.h:202
rheolef::interpolate
field_basic< T, M > interpolate(const space_basic< T, M > &V2h, const field_basic< T, M > &u1h)
see the interpolate page for the full documentation
Definition: interpolate.cc:233
rheolef::norm2
T norm2(const vec< T, M > &x)
norm2(x): see the expression page for the full documentation
Definition: vec.h:379
rheolef.h
rheolef - reference manual
u_exact
g u_exact
Definition: taylor_exact.h:26