408 {
410
411#ifndef NDEBUG
414 << "Refinement for quad is not implemented";
415#endif
416
417 moab::Core core_ref;
418 moab::Interface &moab_ref = core_ref;
419
420 auto create_reference_element = [&moab_ref]() {
422 constexpr double base_coords[] = {
423
424 0, 0,
425 0,
426
427 1, 0,
428 0,
429
430 1, 1,
431 0,
432
433 0, 1,
434 0
435
436 };
438 for (int nn = 0; nn < 4; nn++)
439 CHKERR moab_ref.create_vertex(&base_coords[3 * nn], nodes[nn]);
441 CHKERR moab_ref.create_element(MBQUAD, nodes, 4, quad);
443 };
444
445 auto add_ho_nodes = [&]() {
448 CHKERR moab_ref.get_entities_by_type(0, MBQUAD, quads,
true);
450 CHKERR moab_ref.create_meshset(MESHSET_SET, meshset);
451 CHKERR moab_ref.add_entities(meshset, quads);
452 CHKERR moab_ref.convert_entities(meshset,
true,
true,
true);
453 CHKERR moab_ref.delete_entities(&meshset, 1);
455 };
456
457 auto set_gauss_pts = [&](std::map<EntityHandle, int> &little_map) {
460 CHKERR moab_ref.get_entities_by_type(0, MBQUAD, quads,
true);
462 CHKERR moab_ref.get_connectivity(quads, quads_nodes,
false);
464 gauss_pts.resize(quads_nodes.size(), 4, false);
465 size_t gg = 0;
466 for (auto node : quads_nodes) {
467 CHKERR moab_ref.get_coords(&node, 1, &gauss_pts(gg, 0));
468 little_map[node] = gg;
469 ++gg;
470 }
471 gauss_pts = trans(gauss_pts);
473 };
474
475 auto set_ref_quads = [&](std::map<EntityHandle, int> &little_map) {
478 CHKERR moab_ref.get_entities_by_type(0, MBQUAD, quads,
true);
479 size_t hh = 0;
481 for (auto quad : quads) {
483 int num_nodes;
484 CHKERR moab_ref.get_connectivity(quad, conn, num_nodes,
false);
485 if (ref_quads.size2() != num_nodes) {
486 ref_quads.resize(quads.size(), num_nodes);
487 }
488 for (int nn = 0; nn != num_nodes; ++nn) {
489 ref_quads(hh, nn) = little_map[conn[nn]];
490 }
491 ++hh;
492 }
494 };
495
496 auto set_shape_functions = [&]() {
500 const auto nb_gauss_pts = gauss_pts.size2();
501 shape_functions.resize(nb_gauss_pts, 4);
502 for (int gg = 0; gg != nb_gauss_pts; ++gg) {
503 const double ksi = gauss_pts(0, gg);
504 const double zeta = gauss_pts(1, gg);
509 }
511 };
512
516
517 CHKERR create_reference_element();
520 std::map<EntityHandle, int> little_map;
521 CHKERR set_gauss_pts(little_map);
522 CHKERR set_ref_quads(little_map);
523 CHKERR set_shape_functions();
524
526}
#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.
double zeta
Viscous hardening.
std::vector< ublas::matrix< int > > levelRef
std::vector< MatrixDouble > levelShapeFunctions
std::vector< MatrixDouble > levelGaussPtsOnRefMesh