494 {
496 const int nb_integration_pts = getGaussPts().size2();
497 const double area = getMeasure();
498 auto t_w = getFTensor0IntegrationWeight();
500 auto t_val_grad = getFTensor1FromMat<2>(*(
commonDataPtr->approxValsGrad));
501 auto t_flux = getFTensor1FromMat<3>(*(
commonDataPtr->approxFlux));
502 auto t_coords = getFTensor1CoordsAtGaussPts();
505
506 double error_l2 = 0;
507 double error_h1 = 0;
508 double error_ind = 0;
509 for (int gg = 0; gg != nb_integration_pts; ++gg) {
510 const double alpha = t_w * area;
511
513 t_coords(0), t_coords(1), t_coords(2));
514 error_l2 += alpha *
sqr(diff);
515
517 t_coords(0), t_coords(1), t_coords(2));
518 auto t_fun_grad = getFTensor1FromArray<2, 2>(vec);
519 t_diff(
i) = t_val_grad(
i) - t_fun_grad(
i);
520 error_h1 += alpha * t_diff(
i) * t_diff(
i);
521
522 t_diff(
i) = t_val_grad(
i) - t_flux(
i);
523 error_ind += alpha * t_diff(
i) * t_diff(
i);
524
525 ++t_w;
526 ++t_val;
527 ++t_val_grad;
528 ++t_flux;
529 ++t_coords;
530 }
531
532 const EntityHandle ent = getFEEntityHandle();
533 Tag th_error_l2, th_error_h1, th_error_ind;
535 th_error_l2);
537 th_error_h1);
539 th_error_ind);
540
541 double error_l2_norm = sqrt(error_l2);
542 double error_h1_seminorm = sqrt(error_h1);
543 double error_ind_local = sqrt(error_ind);
546 &error_h1_seminorm);
548 &error_ind_local);
549
552
553 constexpr std::array<int, CommonData::LAST_ELEMENT> indices = {
556 std::array<double, CommonData::LAST_ELEMENT>
values;
561 indices.data(),
values.data(), ADD_VALUES);
563}
SmartPetscObj< Vec > values
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define CHKERR
Inline error check.
FTensor::Index< 'i', SPACE_DIM > i
static auto getFTensor0FromVec(V &data)
Get tensor rank 0 (scalar) form data vector.
MoFEMErrorCode VecSetValues(Vec V, const EntitiesFieldData::EntData &data, const double *ptr, InsertMode iora)
Assemble PETSc vector.
static VectorDouble analyticalFunctionGrad(const double x, const double y, const double z)
[Analytical function]
static double analyticalFunction(const double x, const double y, const double z)
[Analytical function]
static MoFEMErrorCode getTagHandle(MoFEM::Interface &m_field, const char *name, DataType type, Tag &tag_handle)
[Source function]
virtual moab::Interface & get_moab()=0