v0.14.0
eigen_elastic.cpp
Go to the documentation of this file.
1 /**
2  * \file eigen_elastic.cpp
3  * \example eigen_elastic.cpp
4  *
5  * Calculate natural frequencies in 2d and 3d problems.
6  *
7  */
8 
9 #include <MoFEM.hpp>
10 #undef EPS
11 #include <slepceps.h>
12 
13 using namespace MoFEM;
14 
15 template <int DIM> struct ElementsAndOps {};
16 
17 template <> struct ElementsAndOps<2> {
18  using DomainEle = FaceElementForcesAndSourcesCore;
19 };
20 
21 template <> struct ElementsAndOps<3> {
22  using DomainEle = VolumeElementForcesAndSourcesCore;
23 };
24 
25 constexpr int SPACE_DIM =
26  EXECUTABLE_DIMENSION; //< Space dimension of problem, mesh
27 
28 using EntData = EntitiesFieldData::EntData;
29 using DomainEle = ElementsAndOps<SPACE_DIM>::DomainEle;
30 using DomainEleOp = DomainEle::UserDataOperator;
31 using PostProcEle = PostProcBrokenMeshInMoab<DomainEle>;
32 
33 using OpK = FormsIntegrators<DomainEleOp>::Assembly<PETSC>::BiLinearForm<
34  GAUSS>::OpGradSymTensorGrad<1, SPACE_DIM, SPACE_DIM, 0>;
35 using OpMass = FormsIntegrators<DomainEleOp>::Assembly<PETSC>::BiLinearForm<
36  GAUSS>::OpMass<1, SPACE_DIM>;
37 
38 double rho = 7829e-12;
39 double young_modulus = 207e3;
40 double poisson_ratio = 0.33;
41 
42 double bulk_modulus_K = young_modulus / (3 * (1 - 2 * poisson_ratio));
43 double shear_modulus_G = young_modulus / (2 * (1 + poisson_ratio));
44 
45 int order = 1;
46 
47 struct Example {
48 
49  Example(MoFEM::Interface &m_field) : mField(m_field) {}
50 
51  MoFEMErrorCode runProblem();
52 
53 private:
54  MoFEM::Interface &mField;
55 
56  MoFEMErrorCode readMesh();
57  MoFEMErrorCode setupProblem();
58  MoFEMErrorCode createCommonData();
59  MoFEMErrorCode boundaryCondition();
60  MoFEMErrorCode assembleSystem();
61  MoFEMErrorCode solveSystem();
62  MoFEMErrorCode outputResults();
63  MoFEMErrorCode checkResults();
64 
65  boost::shared_ptr<MatrixDouble> matDPtr;
66 
67  SmartPetscObj<Mat> M;
68  SmartPetscObj<Mat> K;
69  SmartPetscObj<EPS> ePS;
70 
71  std::array<SmartPetscObj<Vec>, 6> rigidBodyMotion;
72 };
73 
74 //! [Create common data]
75 MoFEMErrorCode Example::createCommonData() {
76  MoFEMFunctionBegin;
77 
78  CHKERR PetscOptionsGetScalar(PETSC_NULL, "", "-rho", &rho, PETSC_NULL);
79  CHKERR PetscOptionsGetScalar(PETSC_NULL, "", "-young_modulus", &young_modulus,
80  PETSC_NULL);
81  CHKERR PetscOptionsGetScalar(PETSC_NULL, "", "-poisson_ratio", &poisson_ratio,
82  PETSC_NULL);
83 
84  auto set_matrial_stiffens = [&]() {
85  FTensor::Index<'i', SPACE_DIM> i;
86  FTensor::Index<'j', SPACE_DIM> j;
87  FTensor::Index<'k', SPACE_DIM> k;
88  FTensor::Index<'l', SPACE_DIM> l;
89  constexpr auto t_kd = FTensor::Kronecker_Delta_symmetric<int>();
90  MoFEMFunctionBegin;
91  auto t_D = getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM, 0>(*matDPtr);
92 
93  const double A = (SPACE_DIM == 2)
94  ? 2 * shear_modulus_G /
95  (bulk_modulus_K + (4. / 3.) * shear_modulus_G)
96  : 1;
97  t_D(i, j, k, l) = 2 * shear_modulus_G * ((t_kd(i, k) ^ t_kd(j, l)) / 4.) +
98  A * (bulk_modulus_K - (2. / 3.) * shear_modulus_G) *
99  t_kd(i, j) * t_kd(k, l);
100 
101  MoFEMFunctionReturn(0);
102  };
103 
104  matDPtr = boost::make_shared<MatrixDouble>();
105 
106  constexpr auto size_symm = (SPACE_DIM * (SPACE_DIM + 1)) / 2;
107  matDPtr->resize(size_symm * size_symm, 1);
108 
109  CHKERR set_matrial_stiffens();
110 
111  MoFEMFunctionReturn(0);
112 }
113 //! [Create common data]
114 
115 //! [Run problem]
116 MoFEMErrorCode Example::runProblem() {
117  MoFEMFunctionBegin;
118  CHKERR readMesh();
119  CHKERR setupProblem();
120  CHKERR createCommonData();
121  CHKERR boundaryCondition();
122  CHKERR assembleSystem();
123  CHKERR solveSystem();
124  CHKERR outputResults();
125  CHKERR checkResults();
126  MoFEMFunctionReturn(0);
127 }
128 //! [Run problem]
129 
130 //! [Read mesh]
131 MoFEMErrorCode Example::readMesh() {
132  MoFEMFunctionBegin;
133  auto simple = mField.getInterface<Simple>();
134 
135  MOFEM_LOG("EXAMPLE", Sev::inform)
136  << "Read mesh for problem in " << EXECUTABLE_DIMENSION;
137  CHKERR simple->getOptions();
138  CHKERR simple->loadFile();
139  MoFEMFunctionReturn(0);
140 }
141 //! [Read mesh]
142 
143 //! [Set up problem]
144 MoFEMErrorCode Example::setupProblem() {
145  auto *simple = mField.getInterface<Simple>();
146  MoFEMFunctionBegin;
147  // Add field
148  CHKERR simple->addDomainField("U", H1, AINSWORTH_BERNSTEIN_BEZIER_BASE,
149  SPACE_DIM);
150  CHKERR PetscOptionsGetInt(PETSC_NULL, "", "-order", &order, PETSC_NULL);
151  CHKERR simple->setFieldOrder("U", order);
152  CHKERR simple->setUp();
153  MoFEMFunctionReturn(0);
154 }
155 //! [Set up problem]
156 
157 //! [Boundary condition]
158 MoFEMErrorCode Example::boundaryCondition() {
159  auto *simple = mField.getInterface<Simple>();
160  MoFEMFunctionBegin;
161 
162  rigidBodyMotion[0] = createDMVector(simple->getDM());
163  for (int n = 1; n != 6; ++n)
164  rigidBodyMotion[n] = vectorDuplicate(rigidBodyMotion[0]);
165 
166  // Create space of vectors or rigid motion
167  auto problem_ptr = mField.get_problem(simple->getProblemName());
168  auto dofs = problem_ptr->getNumeredRowDofsPtr();
169 
170  // Get all vertices
171  auto lo_uid =
172  DofEntity::getUniqueIdCalculate(0, get_id_for_min_type<MBVERTEX>());
173 
174  auto hi = dofs->upper_bound(lo_uid);
175  std::array<double, 3> coords;
176 
177  for (auto lo = dofs->lower_bound(lo_uid); lo != hi; ++lo) {
178 
179  if ((*lo)->getPart() == mField.get_comm_rank()) {
180 
181  auto ent = (*lo)->getEnt();
182  CHKERR mField.get_moab().get_coords(&ent, 1, coords.data());
183 
184  if ((*lo)->getDofCoeffIdx() == 0) {
185  CHKERR VecSetValue(rigidBodyMotion[0], (*lo)->getPetscGlobalDofIdx(), 1,
186  INSERT_VALUES);
187  CHKERR VecSetValue(rigidBodyMotion[3], (*lo)->getPetscGlobalDofIdx(),
188  -coords[1], INSERT_VALUES);
189  if (SPACE_DIM == 3)
190  CHKERR VecSetValue(rigidBodyMotion[4], (*lo)->getPetscGlobalDofIdx(),
191  -coords[2], INSERT_VALUES);
192 
193  } else if ((*lo)->getDofCoeffIdx() == 1) {
194  CHKERR VecSetValue(rigidBodyMotion[1], (*lo)->getPetscGlobalDofIdx(), 1,
195  INSERT_VALUES);
196  CHKERR VecSetValue(rigidBodyMotion[3], (*lo)->getPetscGlobalDofIdx(),
197  coords[0], INSERT_VALUES);
198  if (SPACE_DIM == 3)
199  CHKERR VecSetValue(rigidBodyMotion[5], (*lo)->getPetscGlobalDofIdx(),
200  -coords[2], INSERT_VALUES);
201 
202  } else if ((*lo)->getDofCoeffIdx() == 2) {
203  if (SPACE_DIM == 3) {
204  CHKERR VecSetValue(rigidBodyMotion[2], (*lo)->getPetscGlobalDofIdx(),
205  1, INSERT_VALUES);
206  CHKERR VecSetValue(rigidBodyMotion[4], (*lo)->getPetscGlobalDofIdx(),
207  coords[0], INSERT_VALUES);
208  CHKERR VecSetValue(rigidBodyMotion[5], (*lo)->getPetscGlobalDofIdx(),
209  coords[1], INSERT_VALUES);
210  }
211  }
212  }
213  }
214 
215  for (int n = 0; n != rigidBodyMotion.size(); ++n) {
216  CHKERR VecAssemblyBegin(rigidBodyMotion[n]);
217  CHKERR VecAssemblyEnd(rigidBodyMotion[n]);
218  CHKERR VecGhostUpdateBegin(rigidBodyMotion[n], INSERT_VALUES,
219  SCATTER_FORWARD);
220  CHKERR VecGhostUpdateEnd(rigidBodyMotion[n], INSERT_VALUES,
221  SCATTER_FORWARD);
222  }
223 
224  MoFEMFunctionReturn(0);
225 }
226 //! [Boundary condition]
227 
228 //! [Push operators to pipeline]
229 MoFEMErrorCode Example::assembleSystem() {
230  MoFEMFunctionBegin;
231  auto *simple = mField.getInterface<Simple>();
232  auto *pipeline_mng = mField.getInterface<PipelineManager>();
233 
234  auto dm = simple->getDM();
235  CHKERR DMCreateMatrix_MoFEM(dm, K);
236  M = matDuplicate(K, MAT_SHARE_NONZERO_PATTERN);
237 
238  auto calculate_stiffness_matrix = [&]() {
239  MoFEMFunctionBegin;
240  pipeline_mng->getDomainLhsFE().reset();
241 
242  auto det_ptr = boost::make_shared<VectorDouble>();
243  auto jac_ptr = boost::make_shared<MatrixDouble>();
244  auto inv_jac_ptr = boost::make_shared<MatrixDouble>();
245  pipeline_mng->getOpDomainLhsPipeline().push_back(
246  new OpCalculateHOJac<SPACE_DIM>(jac_ptr));
247  pipeline_mng->getOpDomainLhsPipeline().push_back(
248  new OpInvertMatrix<SPACE_DIM>(jac_ptr, det_ptr, inv_jac_ptr));
249  pipeline_mng->getOpDomainLhsPipeline().push_back(
250  new OpSetHOInvJacToScalarBases<SPACE_DIM>(H1, inv_jac_ptr));
251  pipeline_mng->getOpDomainLhsPipeline().push_back(
252  new OpSetHOWeights(det_ptr));
253 
254  pipeline_mng->getOpDomainLhsPipeline().push_back(
255  new OpK("U", "U", matDPtr));
256  auto integration_rule = [](int, int, int approx_order) {
257  return 2 * (approx_order - 1);
258  };
259 
260  CHKERR pipeline_mng->setDomainLhsIntegrationRule(integration_rule);
261  pipeline_mng->getDomainLhsFE()->B = K;
262  CHKERR MatZeroEntries(K);
263  CHKERR pipeline_mng->loopFiniteElements();
264  CHKERR MatAssemblyBegin(K, MAT_FINAL_ASSEMBLY);
265  CHKERR MatAssemblyEnd(K, MAT_FINAL_ASSEMBLY);
266  MoFEMFunctionReturn(0);
267  };
268 
269  auto calculate_mass_matrix = [&]() {
270  MoFEMFunctionBegin;
271  pipeline_mng->getDomainLhsFE().reset();
272 
273  auto det_ptr = boost::make_shared<VectorDouble>();
274  auto jac_ptr = boost::make_shared<MatrixDouble>();
275  auto inv_jac_ptr = boost::make_shared<MatrixDouble>();
276  pipeline_mng->getOpDomainLhsPipeline().push_back(
277  new OpCalculateHOJac<SPACE_DIM>(jac_ptr));
278  pipeline_mng->getOpDomainLhsPipeline().push_back(
279  new OpInvertMatrix<SPACE_DIM>(jac_ptr, det_ptr, inv_jac_ptr));
280  pipeline_mng->getOpDomainLhsPipeline().push_back(
281  new OpSetHOWeights(det_ptr));
282 
283  auto get_rho = [](const double, const double, const double) { return rho; };
284  pipeline_mng->getOpDomainLhsPipeline().push_back(
285  new OpMass("U", "U", get_rho));
286  auto integration_rule = [](int, int, int approx_order) {
287  return 2 * approx_order;
288  };
289  CHKERR pipeline_mng->setDomainLhsIntegrationRule(integration_rule);
290  CHKERR MatZeroEntries(M);
291  pipeline_mng->getDomainLhsFE()->B = M;
292  CHKERR pipeline_mng->loopFiniteElements();
293  CHKERR MatAssemblyBegin(M, MAT_FINAL_ASSEMBLY);
294  CHKERR MatAssemblyEnd(M, MAT_FINAL_ASSEMBLY);
295  MoFEMFunctionReturn(0);
296  };
297 
298  CHKERR calculate_stiffness_matrix();
299  CHKERR calculate_mass_matrix();
300 
301  MoFEMFunctionReturn(0);
302 }
303 //! [Push operators to pipeline]
304 
305 //! [Solve]
306 MoFEMErrorCode Example::solveSystem() {
307  MoFEMFunctionBegin;
308 
309  auto create_eps = [](MPI_Comm comm) {
310  EPS eps;
311  CHKERR EPSCreate(comm, &eps);
312  return SmartPetscObj<EPS>(eps);
313  };
314 
315  auto deflate_vectors = [&]() {
316  MoFEMFunctionBegin;
317  // Deflate vectors
318  std::array<Vec, 6> deflate_vectors;
319  for (int n = 0; n != 6; ++n) {
320  deflate_vectors[n] = rigidBodyMotion[n];
321  }
322  CHKERR EPSSetDeflationSpace(ePS, 6, &deflate_vectors[0]);
323  MoFEMFunctionReturn(0);
324  };
325 
326  auto print_info = [&]() {
327  MoFEMFunctionBegin;
328  ST st;
329  EPSType type;
330  PetscReal tol;
331  PetscInt nev, maxit, its;
332  // Optional: Get some information from the solver and display it
333  CHKERR EPSGetIterationNumber(ePS, &its);
334  MOFEM_LOG_C("EXAMPLE", Sev::inform,
335  " Number of iterations of the method: %d", its);
336  CHKERR EPSGetST(ePS, &st);
337  CHKERR EPSGetType(ePS, &type);
338  MOFEM_LOG_C("EXAMPLE", Sev::inform, " Solution method: %s", type);
339  CHKERR EPSGetDimensions(ePS, &nev, NULL, NULL);
340  MOFEM_LOG_C("EXAMPLE", Sev::inform, " Number of requested eigenvalues: %d",
341  nev);
342  CHKERR EPSGetTolerances(ePS, &tol, &maxit);
343  MOFEM_LOG_C("EXAMPLE", Sev::inform,
344  " Stopping condition: tol=%.4g, maxit=%d", (double)tol, maxit);
345 
346  PetscScalar eigr, eigi;
347  for (int nn = 0; nn < nev; nn++) {
348  CHKERR EPSGetEigenpair(ePS, nn, &eigr, &eigi, PETSC_NULL, PETSC_NULL);
349  MOFEM_LOG_C("EXAMPLE", Sev::inform,
350  " ncov = %d eigr = %.4g eigi = %.4g (inv eigr = %.4g)", nn,
351  eigr, eigi, 1. / eigr);
352  }
353 
354  MoFEMFunctionReturn(0);
355  };
356 
357  auto setup_eps = [&]() {
358  MoFEMFunctionBegin;
359  CHKERR EPSSetProblemType(ePS, EPS_GHEP);
360  CHKERR EPSSetWhichEigenpairs(ePS, EPS_SMALLEST_MAGNITUDE);
361  CHKERR EPSSetFromOptions(ePS);
362  MoFEMFunctionReturn(0);
363  };
364 
365  // Create eigensolver context
366  ePS = create_eps(mField.get_comm());
367  CHKERR EPSSetOperators(ePS, K, M);
368 
369  // Setup eps
370  CHKERR setup_eps();
371 
372  // Deflate vectors
373  CHKERR deflate_vectors();
374 
375  // Solve problem
376  CHKERR EPSSolve(ePS);
377 
378  // Print info
379  CHKERR print_info();
380 
381  MoFEMFunctionReturn(0);
382 }
383 //! [Solve]
384 
385 //! [Postprocess results]
386 MoFEMErrorCode Example::outputResults() {
387  MoFEMFunctionBegin;
388  auto *pipeline_mng = mField.getInterface<PipelineManager>();
389  auto *simple = mField.getInterface<Simple>();
390 
391  pipeline_mng->getDomainLhsFE().reset();
392  auto post_proc_fe = boost::make_shared<PostProcEle>(mField);
393 
394  auto det_ptr = boost::make_shared<VectorDouble>();
395  auto jac_ptr = boost::make_shared<MatrixDouble>();
396  auto inv_jac_ptr = boost::make_shared<MatrixDouble>();
397  post_proc_fe->getOpPtrVector().push_back(
398  new OpCalculateHOJac<SPACE_DIM>(jac_ptr));
399  post_proc_fe->getOpPtrVector().push_back(
400  new OpInvertMatrix<SPACE_DIM>(jac_ptr, det_ptr, inv_jac_ptr));
401  post_proc_fe->getOpPtrVector().push_back(
402  new OpSetHOInvJacToScalarBases<SPACE_DIM>(H1, inv_jac_ptr));
403 
404  auto u_ptr = boost::make_shared<MatrixDouble>();
405  auto grad_ptr = boost::make_shared<MatrixDouble>();
406  auto strain_ptr = boost::make_shared<MatrixDouble>();
407  auto stress_ptr = boost::make_shared<MatrixDouble>();
408 
409  post_proc_fe->getOpPtrVector().push_back(
410  new OpCalculateVectorFieldValues<SPACE_DIM>("U", u_ptr));
411  post_proc_fe->getOpPtrVector().push_back(
412  new OpCalculateVectorFieldGradient<SPACE_DIM, SPACE_DIM>("U", grad_ptr));
413  post_proc_fe->getOpPtrVector().push_back(
414  new OpSymmetrizeTensor<SPACE_DIM>(grad_ptr, strain_ptr));
415  post_proc_fe->getOpPtrVector().push_back(
416  new OpTensorTimesSymmetricTensor<SPACE_DIM, SPACE_DIM>(
417  strain_ptr, stress_ptr, matDPtr));
418 
419  using OpPPMap = OpPostProcMapInMoab<SPACE_DIM, SPACE_DIM>;
420 
421  post_proc_fe->getOpPtrVector().push_back(
422 
423  new OpPPMap(
424  post_proc_fe->getPostProcMesh(), post_proc_fe->getMapGaussPts(),
425 
426  OpPPMap::DataMapVec{},
427 
428  OpPPMap::DataMapMat{{"U", u_ptr}},
429 
430  OpPPMap::DataMapMat{},
431 
432  OpPPMap::DataMapMat{{"STRAIN", strain_ptr}, {"STRESS", stress_ptr}}
433 
434  )
435 
436  );
437 
438  pipeline_mng->getDomainRhsFE() = post_proc_fe;
439 
440  auto dm = simple->getDM();
441  auto D = createDMVector(dm);
442 
443  PetscInt nev;
444  CHKERR EPSGetDimensions(ePS, &nev, NULL, NULL);
445  PetscScalar eigr, eigi, nrm2r;
446  for (int nn = 0; nn < nev; nn++) {
447  CHKERR EPSGetEigenpair(ePS, nn, &eigr, &eigi, D, PETSC_NULL);
448  CHKERR VecGhostUpdateBegin(D, INSERT_VALUES, SCATTER_FORWARD);
449  CHKERR VecGhostUpdateEnd(D, INSERT_VALUES, SCATTER_FORWARD);
450  CHKERR VecNorm(D, NORM_2, &nrm2r);
451  MOFEM_LOG_C("EXAMPLE", Sev::inform,
452  " ncov = %d omega2 = %.8g omega = %.8g frequency = %.8g", nn,
453  eigr, std::sqrt(std::abs(eigr)),
454  std::sqrt(std::abs(eigr)) / (2 * M_PI));
455  CHKERR DMoFEMMeshToLocalVector(dm, D, INSERT_VALUES, SCATTER_REVERSE);
456  CHKERR pipeline_mng->loopFiniteElements();
457  post_proc_fe->writeFile("out_eig_" + boost::lexical_cast<std::string>(nn) +
458  ".h5m");
459  }
460 
461  MoFEMFunctionReturn(0);
462 }
463 //! [Postprocess results]
464 
465 //! [Check]
466 MoFEMErrorCode Example::checkResults() {
467  MoFEMFunctionBegin;
468  PetscBool test_flg = PETSC_FALSE;
469  CHKERR PetscOptionsGetBool(PETSC_NULL, "", "-test", &test_flg, PETSC_NULL);
470  if (test_flg) {
471  PetscScalar eigr, eigi;
472  CHKERR EPSGetEigenpair(ePS, 0, &eigr, &eigi, PETSC_NULL, PETSC_NULL);
473  constexpr double regression_value = 12579658;
474  if (fabs(eigr - regression_value) > 1)
475  SETERRQ(PETSC_COMM_WORLD, MOFEM_ATOM_TEST_INVALID,
476  "Regression test faileed; wrong eigen value.");
477  }
478  MoFEMFunctionReturn(0);
479 }
480 //! [Check]
481 
482 static char help[] = "...\n\n";
483 
484 int main(int argc, char *argv[]) {
485 
486  // Initialisation of MoFEM/PETSc and MOAB data structures
487  const char param_file[] = "param_file.petsc";
488  SlepcInitialize(&argc, &argv, param_file, help);
489  MoFEM::Core::Initialize(&argc, &argv, param_file, help);
490 
491  // Add logging channel for example
492  auto core_log = logging::core::get();
493  core_log->add_sink(
494  LogManager::createSink(LogManager::getStrmWorld(), "EXAMPLE"));
495  LogManager::setLog("EXAMPLE");
496  MOFEM_LOG_TAG("EXAMPLE", "example");
497 
498  try {
499 
500  //! [Register MoFEM discrete manager in PETSc]
501  DMType dm_name = "DMMOFEM";
502  CHKERR DMRegister_MoFEM(dm_name);
503  //! [Register MoFEM discrete manager in PETSc
504 
505  //! [Create MoAB]
506  moab::Core mb_instance; ///< mesh database
507  moab::Interface &moab = mb_instance; ///< mesh database interface
508  //! [Create MoAB]
509 
510  //! [Create MoFEM]
511  MoFEM::Core core(moab); ///< finite element database
512  MoFEM::Interface &m_field = core; ///< finite element database insterface
513  //! [Create MoFEM]
514 
515  //! [Example]
516  Example ex(m_field);
517  CHKERR ex.runProblem();
518  //! [Example]
519  }
520  CATCH_ERRORS;
521 
522  SlepcFinalize();
523  CHKERR MoFEM::Core::Finalize();
524 }
MoFEM::UnknownInterface::getInterface
MoFEMErrorCode getInterface(IFACE *&iface) const
Get interface reference to pointer of interface.
Definition: UnknownInterface.hpp:93
MoFEM::K
VectorDouble K
Definition: Projection10NodeCoordsOnField.cpp:125
MoFEM::OpPostProcMapInMoab::DataMapMat
std::map< std::string, boost::shared_ptr< MatrixDouble > > DataMapMat
Definition: PostProcBrokenMeshInMoabBase.hpp:712
MoFEM::EntitiesFieldData::EntData
Data on single entity (This is passed as argument to DataOperator::doWork)
Definition: EntitiesFieldData.hpp:128
Example::checkResults
MoFEMErrorCode checkResults()
[Postprocess results]
Definition: dynamic_first_order_con_law.cpp:1194
EXECUTABLE_DIMENSION
#define EXECUTABLE_DIMENSION
Definition: plastic.cpp:13
Example::assembleSystem
MoFEMErrorCode assembleSystem()
[Push operators to pipeline]
Definition: dynamic_first_order_con_law.cpp:640
MoFEM::CoreTmp< 0 >
Core (interface) class.
Definition: Core.hpp:82
H1
@ H1
continuous field
Definition: definitions.h:85
OpK
Definition: simple_elasticity.cpp:16
Example::Example
Example(MoFEM::Interface &m_field)
Definition: eigen_elastic.cpp:49
shear_modulus_G
double shear_modulus_G
Definition: eigen_elastic.cpp:43
MoFEM::DofEntity::getUniqueIdCalculate
static UId getUniqueIdCalculate(const DofIdx dof, UId ent_uid)
Definition: DofsMultiIndices.hpp:54
MoFEM::Exceptions::MoFEMErrorCode
PetscErrorCode MoFEMErrorCode
MoFEM/PETSc error code.
Definition: Exceptions.hpp:56
MoFEM::OpCalculateVectorFieldValues
Get values at integration pts for tensor filed rank 1, i.e. vector field.
Definition: UserDataOperators.hpp:468
order
int order
Definition: eigen_elastic.cpp:45
MoFEM::PETSC
@ PETSC
Definition: FormsIntegrators.hpp:105
MoFEM::PipelineManager
PipelineManager interface.
Definition: PipelineManager.hpp:24
MoFEM.hpp
A
constexpr AssemblyType A
Definition: operators_tests.cpp:30
MoFEM::DMoFEMMeshToLocalVector
PetscErrorCode DMoFEMMeshToLocalVector(DM dm, Vec l, InsertMode mode, ScatterMode scatter_mode)
set local (or ghosted) vector values on mesh for partition only
Definition: DMMoFEM.cpp:523
MoFEM::CoreTmp< 0 >::Finalize
static MoFEMErrorCode Finalize()
Checks for options to be called at the conclusion of the program.
Definition: Core.cpp:112
Example::M
SmartPetscObj< Mat > M
Definition: eigen_elastic.cpp:67
MoFEM::Simple
Simple interface for fast problem set-up.
Definition: Simple.hpp:27
MoFEM::DeprecatedCoreInterface
Deprecated interface functions.
Definition: DeprecatedCoreInterface.hpp:16
MoFEM::OpCalculateHOJac
Definition: HODataOperators.hpp:267
MoFEM::Interface
DeprecatedCoreInterface Interface
Definition: Interface.hpp:2010
Example::readMesh
MoFEMErrorCode readMesh()
[Run problem]
Definition: dynamic_first_order_con_law.cpp:462
MoFEM::PostProcBrokenMeshInMoab
Definition: PostProcBrokenMeshInMoabBase.hpp:677
PlasticOps::M
FTensor::Index< 'M', 3 > M
Definition: PlasticOps.hpp:117
MoFEM::DMCreateMatrix_MoFEM
PetscErrorCode DMCreateMatrix_MoFEM(DM dm, Mat *M)
Definition: DMMoFEM.cpp:1197
CHKERR
#define CHKERR
Inline error check.
Definition: definitions.h:548
MoFEM::createDMVector
auto createDMVector(DM dm)
Get smart vector from DM.
Definition: DMMoFEM.hpp:1099
bulk_modulus_K
double bulk_modulus_K
Definition: eigen_elastic.cpp:42
MoFEM
implementation of Data Operators for Forces and Sources
Definition: Common.hpp:10
OpMass
FormsIntegrators< DomainEleOp >::Assembly< PETSC >::BiLinearForm< GAUSS >::OpMass< 1, SPACE_DIM > OpMass
[Only used with Hooke equation (linear material model)]
Definition: seepage.cpp:57
help
static char help[]
[Check]
Definition: eigen_elastic.cpp:482
MOFEM_LOG_C
#define MOFEM_LOG_C(channel, severity, format,...)
Definition: LogManager.hpp:311
simple
void simple(double P1[], double P2[], double P3[], double c[], const int N)
Definition: acoustic.cpp:69
MoFEM::OpSetHOInvJacToScalarBases
Set inverse jacobian to base functions.
Definition: HODataOperators.hpp:73
Example
[Example]
Definition: plastic.cpp:216
double
convert.type
type
Definition: convert.py:64
MoFEM::FormsIntegrators::Assembly
Assembly methods.
Definition: FormsIntegrators.hpp:317
OpPPMap
OpPostProcMapInMoab< SPACE_DIM, SPACE_DIM > OpPPMap
Definition: photon_diffusion.cpp:29
Example::K
SmartPetscObj< Mat > K
Definition: eigen_elastic.cpp:68
Example::solveSystem
MoFEMErrorCode solveSystem()
[Solve]
Definition: dynamic_first_order_con_law.cpp:884
MoFEM::DMRegister_MoFEM
PetscErrorCode DMRegister_MoFEM(const char sname[])
Register MoFEM problem.
Definition: DMMoFEM.cpp:43
MoFEM::GAUSS
@ GAUSS
Definition: FormsIntegrators.hpp:136
rho
double rho
Definition: eigen_elastic.cpp:38
MoFEM::FaceElementForcesAndSourcesCore
Face finite element.
Definition: FaceElementForcesAndSourcesCore.hpp:23
EntData
EntitiesFieldData::EntData EntData
Definition: eigen_elastic.cpp:28
main
int main(int argc, char *argv[])
Definition: eigen_elastic.cpp:484
OpMass
FormsIntegrators< DomainEleOp >::Assembly< PETSC >::BiLinearForm< GAUSS >::OpMass< 1, SPACE_DIM > OpMass
Definition: eigen_elastic.cpp:36
Example::ePS
SmartPetscObj< EPS > ePS
Definition: eigen_elastic.cpp:69
MOFEM_LOG_TAG
#define MOFEM_LOG_TAG(channel, tag)
Tag channel.
Definition: LogManager.hpp:339
size_symm
constexpr auto size_symm
Definition: plastic.cpp:42
MoFEM::matDuplicate
SmartPetscObj< Mat > matDuplicate(Mat mat, MatDuplicateOption op)
Definition: PetscSmartObj.hpp:234
MoFEM::VolumeElementForcesAndSourcesCore
Volume finite element base.
Definition: VolumeElementForcesAndSourcesCore.hpp:26
i
FTensor::Index< 'i', SPACE_DIM > i
Definition: hcurl_divergence_operator_2d.cpp:27
MoFEM::OpTensorTimesSymmetricTensor
Calculate .
Definition: UserDataOperators.hpp:1909
t_kd
constexpr auto t_kd
Definition: free_surface.cpp:139
BiLinearForm
FTensor::Index< 'i', SPACE_DIM >
AINSWORTH_BERNSTEIN_BEZIER_BASE
@ AINSWORTH_BERNSTEIN_BEZIER_BASE
Definition: definitions.h:64
MoFEM::OpCalculateVectorFieldGradient
Get field gradients at integration pts for scalar filed rank 0, i.e. vector field.
Definition: UserDataOperators.hpp:1561
convert.n
n
Definition: convert.py:82
integration_rule
auto integration_rule
Definition: free_surface.cpp:187
ElementsAndOps
Definition: child_and_parent.cpp:18
DomainEleOp
MoFEM::CoreTmp< 0 >::Initialize
static MoFEMErrorCode Initialize(int *argc, char ***args, const char file[], const char help[])
Initializes the MoFEM database PETSc, MOAB and MPI.
Definition: Core.cpp:72
MOFEM_LOG
#define MOFEM_LOG(channel, severity)
Log.
Definition: LogManager.hpp:308
MoFEM::vectorDuplicate
SmartPetscObj< Vec > vectorDuplicate(Vec vec)
Create duplicate vector of smart vector.
Definition: PetscSmartObj.hpp:221
CATCH_ERRORS
#define CATCH_ERRORS
Catch errors.
Definition: definitions.h:385
Example::matDPtr
boost::shared_ptr< MatrixDouble > matDPtr
Definition: eigen_elastic.cpp:65
MoFEM::OpSymmetrizeTensor
Definition: UserDataOperators.hpp:1974
MoFEM::Core
CoreTmp< 0 > Core
Definition: Core.hpp:1148
OpK
FormsIntegrators< DomainEleOp >::Assembly< PETSC >::BiLinearForm< GAUSS >::OpGradSymTensorGrad< 1, SPACE_DIM, SPACE_DIM, 0 > OpK
Definition: eigen_elastic.cpp:34
Example::setupProblem
MoFEMErrorCode setupProblem()
[Run problem]
Definition: plastic.cpp:275
UserDataOperator
ForcesAndSourcesCore::UserDataOperator UserDataOperator
Definition: HookeElement.hpp:75
Example::boundaryCondition
MoFEMErrorCode boundaryCondition()
[Set up problem]
Definition: dynamic_first_order_con_law.cpp:535
j
FTensor::Index< 'j', 3 > j
Definition: matrix_function.cpp:19
eps
static const double eps
Definition: check_base_functions_derivatives_on_tet.cpp:11
approx_order
int approx_order
Definition: test_broken_space.cpp:54
MoFEM::OpSetHOWeights
Set inverse jacobian to base functions.
Definition: HODataOperators.hpp:159
MoFEM::OpInvertMatrix
Definition: UserDataOperators.hpp:3684
Example::runProblem
MoFEMErrorCode runProblem()
[Run problem]
Definition: plastic.cpp:256
Example::rigidBodyMotion
std::array< SmartPetscObj< Vec >, 6 > rigidBodyMotion
Definition: eigen_elastic.cpp:71
ReactionDiffusionEquation::D
const double D
diffusivity
Definition: reaction_diffusion.cpp:20
young_modulus
double young_modulus
Definition: eigen_elastic.cpp:39
FTensor::Kronecker_Delta_symmetric
Kronecker Delta class symmetric.
Definition: Kronecker_Delta.hpp:49
MOFEM_ATOM_TEST_INVALID
@ MOFEM_ATOM_TEST_INVALID
Definition: definitions.h:40
MoFEM::PetscOptionsGetScalar
PetscErrorCode PetscOptionsGetScalar(PetscOptions *, const char pre[], const char name[], PetscScalar *dval, PetscBool *set)
Definition: DeprecatedPetsc.hpp:162
Example::createCommonData
MoFEMErrorCode createCommonData()
[Set up problem]
Definition: plastic.cpp:480
DomainEle
ElementsAndOps< SPACE_DIM >::DomainEle DomainEle
Definition: child_and_parent.cpp:34
MoFEM::SmartPetscObj< Mat >
k
FTensor::Index< 'k', 3 > k
Definition: matrix_function.cpp:20
Example::outputResults
MoFEMErrorCode outputResults()
[Solve]
Definition: dynamic_first_order_con_law.cpp:1172
convert.int
int
Definition: convert.py:64
MoFEM::PetscOptionsGetInt
PetscErrorCode PetscOptionsGetInt(PetscOptions *, const char pre[], const char name[], PetscInt *ivalue, PetscBool *set)
Definition: DeprecatedPetsc.hpp:142
MoFEMFunctionReturn
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
Definition: definitions.h:429
poisson_ratio
double poisson_ratio
Definition: eigen_elastic.cpp:40
SPACE_DIM
constexpr int SPACE_DIM
Definition: eigen_elastic.cpp:25
MoFEMFunctionBegin
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
Definition: definitions.h:359
l
FTensor::Index< 'l', 3 > l
Definition: matrix_function.cpp:21
MoFEM::OpPostProcMapInMoab::DataMapVec
std::map< std::string, boost::shared_ptr< VectorDouble > > DataMapVec
Definition: PostProcBrokenMeshInMoabBase.hpp:711
tol
double tol
Definition: mesh_smoothing.cpp:26
MoFEM::PetscOptionsGetBool
PetscErrorCode PetscOptionsGetBool(PetscOptions *, const char pre[], const char name[], PetscBool *bval, PetscBool *set)
Definition: DeprecatedPetsc.hpp:182
MoFEM::OpPostProcMapInMoab
Post post-proc data at points from hash maps.
Definition: PostProcBrokenMeshInMoabBase.hpp:709
Generated by Doxygen 1.8.17 and hosted at University of Glasgow