411 {
413
415#ifndef NDEBUG
418 << "Refinement for quad is not implemented";
419#endif
420
421 moab::Core core_ref;
422 moab::Interface &moab_ref = core_ref;
423
424 auto create_reference_element = [&moab_ref]() {
426 constexpr double base_coords[] = {
427
428 0, 0,
429 0,
430
431 1, 0,
432 0,
433
434 1, 1,
435 0,
436
437 0, 1,
438 0
439
440 };
442 for (int nn = 0; nn < 4; nn++)
443 CHKERR moab_ref.create_vertex(&base_coords[3 * nn], nodes[nn]);
445 CHKERR moab_ref.create_element(MBQUAD, nodes, 4, quad);
447 };
448
449 auto add_ho_nodes = [&]() {
452 CHKERR moab_ref.get_entities_by_type(0, MBQUAD, quads,
true);
454 CHKERR moab_ref.create_meshset(MESHSET_SET, meshset);
455 CHKERR moab_ref.add_entities(meshset, quads);
456 CHKERR moab_ref.convert_entities(meshset,
true,
true,
true);
457 CHKERR moab_ref.delete_entities(&meshset, 1);
459 };
460
461 auto set_gauss_pts = [&](std::map<EntityHandle, int> &little_map) {
464 CHKERR moab_ref.get_entities_by_type(0, MBQUAD, quads,
true);
466 CHKERR moab_ref.get_connectivity(quads, quads_nodes,
false);
468 gauss_pts.resize(quads_nodes.size(), 4, false);
469 size_t gg = 0;
470 for (auto node : quads_nodes) {
471 CHKERR moab_ref.get_coords(&node, 1, &gauss_pts(gg, 0));
472 little_map[node] = gg;
473 ++gg;
474 }
475 gauss_pts = trans(gauss_pts);
477 };
478
479 auto set_ref_quads = [&](std::map<EntityHandle, int> &little_map) {
482 CHKERR moab_ref.get_entities_by_type(0, MBQUAD, quads,
true);
483 size_t hh = 0;
485 for (auto quad : quads) {
487 int num_nodes;
488 CHKERR moab_ref.get_connectivity(quad, conn, num_nodes,
false);
489 if (ref_quads.size2() != num_nodes) {
490 ref_quads.resize(quads.size(), num_nodes);
491 }
492 for (int nn = 0; nn != num_nodes; ++nn) {
493 ref_quads(hh, nn) = little_map[conn[nn]];
494 }
495 ++hh;
496 }
498 };
499
500 auto set_shape_functions = [&]() {
504 const auto nb_gauss_pts = gauss_pts.size2();
505 shape_functions.resize(nb_gauss_pts, 4);
506 for (int gg = 0; gg != nb_gauss_pts; ++gg) {
507 const double ksi = gauss_pts(0, gg);
508 const double zeta = gauss_pts(1, gg);
513 }
515 };
516
520
521 CHKERR create_reference_element();
524 std::map<EntityHandle, int> little_map;
525 CHKERR set_gauss_pts(little_map);
526 CHKERR set_ref_quads(little_map);
527 CHKERR set_shape_functions();
528
530}
#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.
#define MOFEM_LOG(channel, severity)
Log.
std::vector< ublas::matrix< int > > levelRef
std::vector< MatrixDouble > levelShapeFunctions
std::vector< MatrixDouble > levelGaussPtsOnRefMesh
MoFEMErrorCode getOptions()