31 boost::shared_ptr<GenericElementInterface> mfront_interface =
nullptr,
39 using OpPPMap = OpPostProcMapInMoab<SPACE_DIM, SPACE_DIM>;
42 OpScale(boost::shared_ptr<MatrixDouble> m_ptr,
double s)
44 mPtr(m_ptr),
scale(s) {}
51 boost::shared_ptr<MatrixDouble> mPtr;
55 auto push_domain_ops = [&](
auto &pip) {
57 pip, {
H1,
HDIV},
"GEOMETRY")),
58 "Apply base transform");
59 auto henky_common_data_ptr =
60 commonDataFactory<SPACE_DIM, GAUSS, DomainEleOp>(
61 *m_field_ptr, pip,
"U",
"MAT_ELASTIC", Sev::inform,
scale);
62 auto contact_stress_ptr = boost::make_shared<MatrixDouble>();
63 pip.push_back(
new OpCalculateHVecTensorField<SPACE_DIM, SPACE_DIM>(
64 "SIGMA", contact_stress_ptr));
65 pip.push_back(
new OpScale(contact_stress_ptr,
scale));
66 return std::make_tuple(henky_common_data_ptr, contact_stress_ptr);
69 auto push_bdy_ops = [&](
auto &pip) {
71 auto common_data_ptr = boost::make_shared<ContactOps::CommonData>();
72 pip.push_back(
new OpCalculateVectorFieldValues<SPACE_DIM>(
73 "U", common_data_ptr->contactDispPtr()));
74 pip.push_back(
new OpCalculateHVecTensorTrace<SPACE_DIM, BoundaryEleOp>(
75 "SIGMA", common_data_ptr->contactTractionPtr()));
76 pip.push_back(
new OpScale(common_data_ptr->contactTractionPtr(),
scale));
78 pip.push_back(
new typename C::template OpEvaluateSDF<SPACE_DIM, GAUSS>(
80 return common_data_ptr;
83 auto get_domain_pip = [&](
auto &pip)
84 -> boost::ptr_deque<ForcesAndSourcesCore::UserDataOperator> & {
86 auto op_loop_side =
new OpLoopSide<SideEle>(
87 *m_field_ptr,
"dFE",
SPACE_DIM, Sev::noisy,
89 ForcesAndSourcesCore::UserDataOperator::AdjCache>());
90 pip.push_back(op_loop_side);
91 return op_loop_side->getOpPtrVector();
97 auto get_post_proc_domain_fe = [&]() {
99 boost::make_shared<PostProcEleDomain>(*m_field_ptr,
postProcMesh);
100 auto &pip = post_proc_fe->getOpPtrVector();
102 auto [henky_common_data_ptr, contact_stress_ptr] =
103 push_domain_ops(get_domain_pip(pip));
105 auto u_ptr = boost::make_shared<MatrixDouble>();
106 pip.push_back(
new OpCalculateVectorFieldValues<SPACE_DIM>(
"U", u_ptr));
107 auto X_ptr = boost::make_shared<MatrixDouble>();
109 new OpCalculateVectorFieldValues<SPACE_DIM>(
"GEOMETRY", X_ptr));
117 post_proc_fe->getPostProcMesh(), post_proc_fe->getMapGaussPts(),
122 {
"U", u_ptr}, {
"GEOMETRY", X_ptr}
127 {
"SIGMA", contact_stress_ptr},
129 {
"G", henky_common_data_ptr->matGradPtr},
131 {
"PK1", henky_common_data_ptr->getMatFirstPiolaStress()}
143 pip, {
HDIV},
"GEOMETRY")),
145 auto common_data_ptr = push_bdy_ops(pip);
151 post_proc_fe->getPostProcMesh(), post_proc_fe->getMapGaussPts(),
153 {{
"SDF", common_data_ptr->sdfPtr()},
154 {
"CONSTRAINT_CONTACT", common_data_ptr->constraintPtr()}},
158 {
"TRACTION_CONTACT", common_data_ptr->contactTractionPtr()},
159 {
"GRAD_SDF", common_data_ptr->gradSdfPtr()}
165 {{
"HESS_SDF", common_data_ptr->hessSdfPtr()}}
175 auto get_post_proc_bdy_fe = [&]() {
177 boost::make_shared<PostProcEleBdy>(*m_field_ptr, postProcMesh);
178 auto &pip = post_proc_fe->getOpPtrVector();
181 pip, {
HDIV},
"GEOMETRY")),
183 auto common_data_ptr = push_bdy_ops(pip);
186 auto op_loop_side =
new OpLoopSide<SideEle>(
187 *m_field_ptr,
"dFE",
SPACE_DIM, Sev::noisy,
189 ForcesAndSourcesCore::UserDataOperator::AdjCache>());
190 pip.push_back(op_loop_side);
192 auto [henky_common_data_ptr, contact_stress_ptr] =
193 push_domain_ops(op_loop_side->getOpPtrVector());
195 auto X_ptr = boost::make_shared<MatrixDouble>();
197 new OpCalculateVectorFieldValues<SPACE_DIM>(
"GEOMETRY", X_ptr));
203 post_proc_fe->getPostProcMesh(), post_proc_fe->getMapGaussPts(),
205 {{
"SDF", common_data_ptr->sdfPtr()},
206 {
"CONSTRAINT_CONTACT", common_data_ptr->constraintPtr()}},
208 {{
"U", common_data_ptr->contactDispPtr()},
210 {
"TRACTION_CONTACT", common_data_ptr->contactTractionPtr()},
211 {
"GRAD_SDF", common_data_ptr->gradSdfPtr()}
217 {{
"HESS_SDF", common_data_ptr->hessSdfPtr()}}
226 auto get_integrate_traction = [&]() {
227 auto integrate_traction = boost::make_shared<BoundaryEle>(*m_field_ptr);
228 auto common_data_ptr = boost::make_shared<ContactOps::CommonData>();
230 (AddHOOps<SPACE_DIM - 1, SPACE_DIM, SPACE_DIM>::add(
231 integrate_traction->getOpPtrVector(), {HDIV},
"GEOMETRY")),
235 integrate_traction->getOpPtrVector().push_back(
236 new OpSetHOWeightsOnSubDim<SPACE_DIM>());
242 (opFactoryCalculateTraction<SPACE_DIM, GAUSS, BoundaryEleOp>(
244 "push operators to calculate traction");
246 return integrate_traction;
249 postProcDomainFe = get_post_proc_domain_fe();
251 postProcBdyFe = get_post_proc_bdy_fe();
252 integrateTraction = get_integrate_traction();
255 m_field_ptr->get_comm(),
256 (m_field_ptr->get_comm_rank() == 0) ? LAST_NORM : 0, LAST_NORM);
267 auto post_proc = [&]() {
270 if (!mfrontInterface) {
271 auto post_proc_begin =
272 boost::make_shared<PostProcBrokenMeshInMoabBaseBegin>(*m_field_ptr,
275 boost::make_shared<PostProcBrokenMeshInMoabBaseEnd>(*m_field_ptr,
279 post_proc_begin->getFEMethod());
280 if (!postProcBdyFe) {
281 postProcDomainFe->copyTs(*
this);
284 postProcDomainFe->copyTs(*
this);
285 postProcBdyFe->copyTs(*
this);
290 post_proc_end->getFEMethod());
292 CHKERR post_proc_end->writeFile(
293 "out_contact_" + boost::lexical_cast<std::string>(sTEP) +
".h5m");
295 CHKERR mfrontInterface->postProcessElement(
297 m_field_ptr->
getInterface<Simple>()->getDomainFEName());
303 auto calculate_traction = [&] {
305 CHKERR VecZeroEntries(CommonData::totalTraction);
307 CHKERR VecAssemblyBegin(CommonData::totalTraction);
308 CHKERR VecAssemblyEnd(CommonData::totalTraction);
312 auto calculate_reactions = [&]() {
317 auto assemble_domain = [&]() {
319 auto fe_rhs = boost::make_shared<DomainEle>(*m_field_ptr);
320 auto &pip = fe_rhs->getOpPtrVector();
328 CHKERR AddHOOps<SPACE_DIM, SPACE_DIM, SPACE_DIM>::add(pip, {
H1},
331 ContactOps::opFactoryDomainRhs<SPACE_DIM, PETSC, IT, DomainEleOp>(
334 if (!mfrontInterface) {
336 HenckyOps::opFactoryDomainRhs<SPACE_DIM, PETSC, IT, DomainEleOp>(
337 *m_field_ptr, pip,
"U",
"MAT_ELASTIC", Sev::inform,
scale);
339 CHKERR mfrontInterface->opFactoryDomainRhs(pip);
343 CHKERR VecAssemblyBegin(res);
344 CHKERR VecAssemblyEnd(res);
345 CHKERR VecGhostUpdateBegin(res, ADD_VALUES, SCATTER_REVERSE);
346 CHKERR VecGhostUpdateEnd(res, ADD_VALUES, SCATTER_REVERSE);
351 auto assemble_boundary = [&]() {
353 auto fe_rhs = boost::make_shared<BoundaryEle>(*m_field_ptr);
354 auto &pip = fe_rhs->getOpPtrVector();
362 CHKERR AddHOOps<SPACE_DIM - 1, SPACE_DIM, SPACE_DIM>::add(pip, {},
366 pip.push_back(
new OpSetHOWeightsOnSubDim<SPACE_DIM>());
368 auto u_disp = boost::make_shared<MatrixDouble>();
369 pip.push_back(
new OpCalculateVectorFieldValues<SPACE_DIM>(
"U", u_disp));
371 new OpSpringRhs(
"U", u_disp, [
this](
double,
double,
double) {
381 CHKERR assemble_boundary();
383 auto fe_post_proc_ptr = boost::make_shared<FEMethod>();
384 auto get_post_proc_hook_rhs = [
this, fe_post_proc_ptr, res,
387 CHKERR EssentialPreProcReaction<DisplacementCubitBcData>(
388 *m_field_ptr, fe_post_proc_ptr, res)();
391 fe_post_proc_ptr->postProcessHook = get_post_proc_hook_rhs;
397 auto print_max_min = [&](
auto &tuple,
const std::string msg) {
399 CHKERR VecScatterBegin(std::get<1>(tuple), ts_u, std::get<0>(tuple),
400 INSERT_VALUES, SCATTER_FORWARD);
401 CHKERR VecScatterEnd(std::get<1>(tuple), ts_u, std::get<0>(tuple),
402 INSERT_VALUES, SCATTER_FORWARD);
404 CHKERR VecMax(std::get<0>(tuple), PETSC_NULL, &max);
405 CHKERR VecMin(std::get<0>(tuple), PETSC_NULL, &min);
406 MOFEM_LOG_C(
"CONTACT", Sev::inform,
"%s time %6.4e min %6.4e max %6.4e",
407 msg.c_str(), ts_t, min, max);
411 auto print_traction = [&](
const std::string msg) {
417 CHKERR VecGetArrayRead(CommonData::totalTraction, &t_ptr);
419 "%s time %6.4e %6.16e %6.16e %6.16e", msg.c_str(), ts_t,
420 t_ptr[0], t_ptr[1], t_ptr[2]);
421 CHKERR VecRestoreArrayRead(CommonData::totalTraction, &t_ptr);
426 if (mfrontInterface) {
427 CHKERR mfrontInterface->updateElementVariables(
428 dM, m_field_ptr->
getInterface<Simple>()->getDomainFEName());
434 OpCalcTractions(boost::shared_ptr<MatrixDouble> m_ptr,
435 boost::shared_ptr<VectorDouble> p_ptr,
436 boost::shared_ptr<VectorDouble> mag_ptr,
437 boost::shared_ptr<VectorDouble> traction_y_ptr,
438 boost::shared_ptr<MatrixDouble> t_ptr,
439 boost::shared_ptr<MatrixDouble> grad_sdf_ptr)
441 magPtr(mag_ptr), tyPtr(traction_y_ptr), tPtr(t_ptr),
442 gradSDFPtr(grad_sdf_ptr) {}
448 magPtr->resize(pPtr->size());
450 tyPtr->resize(pPtr->size());
453 auto t_traction = getFTensor1FromMat<SPACE_DIM>(*mPtr);
454 auto t_contact_traction = getFTensor1FromMat<SPACE_DIM>(*tPtr);
456 int nb_gauss_pts = pPtr->size();
457 auto t_normal = getFTensor1FromMat<SPACE_DIM>(*gradSDFPtr);
458 auto t_normal_at_gauss = getFTensor1NormalsAtGaussPts();
462 for (
int gg = 0; gg != nb_gauss_pts; gg++) {
464 t_traction(
i) = t_p * (-(t_normal(
i) / t_normal.l2()));
465 t_mag = t_contact_traction.l2();
466 t_ty = t_contact_traction(1);
472 ++t_contact_traction;
480 boost::shared_ptr<MatrixDouble> mPtr;
481 boost::shared_ptr<VectorDouble> pPtr;
482 boost::shared_ptr<VectorDouble> magPtr;
483 boost::shared_ptr<MatrixDouble> tPtr;
484 boost::shared_ptr<VectorDouble> tyPtr;
485 boost::shared_ptr<MatrixDouble> gradSDFPtr;
488 auto post_proc_norm_fe = boost::make_shared<BoundaryEle>(*m_field_ptr);
489 auto common_data_ptr = boost::make_shared<ContactOps::CommonData>();
493 m_field_ptr->
getInterface<MeshsetsManager>()->getCubitMeshsetPtr(
494 std::regex((boost::format(
"%s(.*)") %
"CONTACT").str()))) {
495 auto meshset =
m->getMeshset();
496 Range contact_meshset_range;
498 meshset,
SPACE_DIM - 1, contact_meshset_range,
true);
501 contact_meshset_range);
502 contact_range.merge(contact_meshset_range);
508 (AddHOOps<SPACE_DIM - 1, SPACE_DIM, SPACE_DIM>::add(
509 post_proc_norm_fe->getOpPtrVector(), {HDIV},
"GEOMETRY")),
513 post_proc_norm_fe->getOpPtrVector().push_back(
514 new OpSetHOWeightsOnSubDim<SPACE_DIM>());
519 post_proc_norm_fe->getOpPtrVector().push_back(
520 new OpCalculateVectorFieldValues<SPACE_DIM>(
521 "U", common_data_ptr->contactDispPtr()));
522 post_proc_norm_fe->getOpPtrVector().push_back(
523 new OpCalculateHVecTensorTrace<SPACE_DIM, BoundaryEleOp>(
524 "SIGMA", common_data_ptr->contactTractionPtr()));
526 post_proc_norm_fe->getOpPtrVector().push_back(
527 new typename C::template OpEvaluateSDF<SPACE_DIM, GAUSS>(
533 auto analytical_traction_ptr = boost::make_shared<MatrixDouble>();
534 auto analytical_pressure_ptr = boost::make_shared<VectorDouble>();
535 auto mag_traction_ptr = boost::make_shared<VectorDouble>();
536 auto traction_y_ptr = boost::make_shared<VectorDouble>();
537 auto contact_range_ptr = boost::make_shared<Range>(contact_range);
539 post_proc_norm_fe->getOpPtrVector().push_back(
540 new OpGetTensor0fromFunc(analytical_pressure_ptr,
fun));
542 post_proc_norm_fe->getOpPtrVector().push_back(
new OpCalcTractions(
543 analytical_traction_ptr, analytical_pressure_ptr, mag_traction_ptr,
544 traction_y_ptr, common_data_ptr->contactTractionPtr(),
545 common_data_ptr->gradSdfPtr()));
547 post_proc_norm_fe->getOpPtrVector().push_back(
548 new OpCalcNormL2Tensor1<SPACE_DIM>(
549 common_data_ptr->contactTractionPtr(), normsVec, TRACTION_NORM_L2,
550 analytical_traction_ptr, contact_range_ptr));
554 post_proc_norm_fe->getOpPtrVector().push_back(
new OpCalcNormL2Tensor0(
555 mag_traction_ptr, normsVec, MAG_TRACTION_NORM_L2,
556 analytical_pressure_ptr, contact_range_ptr));
558 post_proc_norm_fe->getOpPtrVector().push_back(
559 new OpCalcNormL2Tensor0(traction_y_ptr, normsVec, TRACTION_Y_NORM_L2,
560 analytical_pressure_ptr, contact_range_ptr));
562 CHKERR VecZeroEntries(normsVec);
563 post_proc_norm_fe->copyTs(*
this);
565 CHKERR VecAssemblyBegin(normsVec);
566 CHKERR VecAssemblyEnd(normsVec);
571 CHKERR VecGetArrayRead(normsVec, &norms);
573 <<
"norm_traction: " << std::scientific
574 << std::sqrt(norms[TRACTION_NORM_L2]);
576 <<
"norm_mag_traction: " << std::scientific
577 << std::sqrt(norms[MAG_TRACTION_NORM_L2]);
579 <<
"norm_traction_y: " << std::scientific
580 << std::sqrt(norms[TRACTION_Y_NORM_L2]);
581 CHKERR VecRestoreArrayRead(normsVec, &norms);
589 if (!(ts_step % se)) {
591 <<
"Write file at time " << ts_t <<
" write step " << sTEP;
594 CHKERR calculate_traction();
595 CHKERR calculate_reactions();
597 CHKERR calculate_error(analyticalHertzPressurePlaneStress);
599 CHKERR calculate_error(analyticalHertzPressurePlaneStrain);
601 CHKERR calculate_error(analyticalHertzPressureAxisymmetric);
603 CHKERR calculate_error(analyticalWavy2DPressure);
605 CHKERR print_max_min(uXScatter,
"Ux");
606 CHKERR print_max_min(uYScatter,
"Uy");
608 CHKERR print_max_min(uZScatter,
"Uz");
609 CHKERR print_traction(
"Contact force");
621 double delta = 0.0002;
628 return p_star + p_star * std::cos(2. * M_PI * x /
lambda);
640 double F = (4. / 3.) * E_star * std::sqrt(
R) * std::pow(
d, 1.5);
642 double a = std::pow((3. *
F *
R) / (4. * E_star), 1. / 3.);
644 double p_max = (3. *
F) / (2. * M_PI *
a *
a);
646 double r = std::sqrt((x * x) + (y * y));
652 return p_max * std::sqrt(1 - ((
r *
r) / (
a *
a)));
662 double d = 0.02745732273553991;
666 double r = std::sqrt((x * x) + (y * y));
672 return E_star / (2. *
R) * std::sqrt(
a *
a -
r *
r);
681 double d = 0.02745732273553991;
685 double r = std::sqrt((x * x) + (y * y));
691 return E_star / (2. *
R) * std::sqrt(
a *
a -
r *
r);
705 double p_0 = (2. * E_star *
a) / (M_PI *
R);
707 double r = std::sqrt((x * x) + (y * y));
709 std::vector<double> v_u;
717 ((2. * std::pow(
a, 2.) - std::pow(
r, 2.)) * asin(
a /
r) +
718 std::pow(
r, 2.) * (
a /
r) *
719 std::pow(1 - (std::pow(
a, 2.) / std::pow(
r, 2.)), 2.));
726 v_u = {u_r, u_z, u_r};
736 ((M_PI * p_0) / 4. *
a) * (2. * std::pow(
a, 2.) - std::pow(
r, 2.));
739 (1 - std::pow(1 - (std::pow(
r, 2.) / std::pow(
a, 2.)), 1.5));
744 v_u = {u_r, u_z, u_r};
753 std::tuple<SmartPetscObj<Vec>, SmartPetscObj<VecScatter>> ux_scatter,
754 std::tuple<SmartPetscObj<Vec>, SmartPetscObj<VecScatter>> uy_scatter,
755 std::tuple<SmartPetscObj<Vec>, SmartPetscObj<VecScatter>> uz_scatter) {
757 uXScatter = ux_scatter;
758 uYScatter = uy_scatter;
759 uZScatter = uz_scatter;
765 CHKERR VecGetArrayRead(normsVec, &norm);
766 double norm_val = std::sqrt(norm[normType]);
767 CHKERR VecRestoreArrayRead(normsVec, &norm);
772 SmartPetscObj<DM>
dM;
773 std::tuple<SmartPetscObj<Vec>, SmartPetscObj<VecScatter>>
uXScatter;
774 std::tuple<SmartPetscObj<Vec>, SmartPetscObj<VecScatter>>
uYScatter;
775 std::tuple<SmartPetscObj<Vec>, SmartPetscObj<VecScatter>>
uZScatter;
777 boost::shared_ptr<moab::Core> postProcMesh = boost::make_shared<moab::Core>();
785 TRACTION_NORM_L2 = 0,