2
using namespace rheolef;
4
#include "sinusrad.icc"
5
int main(int argc, char**argv) {
6
environment rheolef(argc, argv);
9
Float error_linf_expected = (argc > 1) ? atof(argv[1]) : 1e+38;
10
space Xh = uh.get_space();
11
size_t d = Xh.get_geo().dimension();
12
field pi_h_u = interpolate(Xh, u(d));
13
field eh = pi_h_u - uh;
14
form m(Xh, Xh, "mass");
15
form a(Xh, Xh, "grad_grad");
16
dout << "error_l2 " << sqrt(m(eh,eh)) << endl
17
<< "error_h1 " << sqrt(a(eh,eh)) << endl
18
<< "error_linf " << eh.max_abs() << endl;
19
return (eh.max_abs() <= error_linf_expected) ? 0 : 1;