1583 {
1585
1586 double time = OP::getFEMethod()->ts_t;
1589 }
1590
1591
1593
1595
1596 if (bc.faces.find(fe_ent) != bc.faces.end()) {
1597
1600 auto t_normal = OP::getFTensor1NormalsAtGaussPts();
1601 auto t_w = OP::getFTensor0IntegrationWeight();
1602
1605
1607
1611 } else {
1613 << "No scaling method found for " << bc.blockName;
1614 }
1615
1616
1617 double val =
scale * bc.val;
1618
1620 int nb_integration_pts = OP::getGaussPts().size2();
1621 int nb_base_functions = data.
getN().size2();
1623 for (int gg = 0; gg != nb_integration_pts; ++gg) {
1624
1626 t_N(
i) = t_normal(
i);
1628
1630 t_P(
i,
j) = t_N(
i) * t_N(
j);
1633
1635 t_tracton(
i) = t_approx_P(
i,
j) * t_N(
j);
1636
1638 t_res(
i) = t_Q(
i,
j) * t_tracton(
j) + t_P(
i,
j) * 2* t_u(
j) - t_N(
i) * val;
1639
1641 int bb = 0;
1642 for (; bb != nb_dofs /
SPACE_DIM; ++bb) {
1643 t_nf(
i) += (t_w * t_row_base) * t_res(
i);
1644 ++t_nf;
1645 ++t_row_base;
1646 }
1647 for (; bb != nb_base_functions; ++bb)
1648 ++t_row_base;
1649
1650 ++t_w;
1651 ++t_normal;
1652 ++t_u;
1653 ++t_approx_P;
1654 }
1655
1656 OP::locF *= OP::getMeasure();
1657 }
1658 }
1660}
#define FTENSOR_INDEX(DIM, I)
Tensor1< T, Tensor_Dim > normalize()
#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 MOFEM_LOG(channel, severity)
Log.
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'j', 3 > j
FTensor::Tensor1< FTensor::PackPtr< T *, S >, Tensor_Dim > getFTensor1FromMat(ublas::matrix< T, L, A > &data)
Get tensor rank 1 (vector) form data matrix.
FTensor::Tensor2< FTensor::PackPtr< double *, 1 >, Tensor_Dim1, Tensor_Dim2 > getFTensor2FromMat(MatrixDouble &data)
Get tensor rank 2 (matrix) form data matrix.
FTensor::Tensor1< FTensor::PackPtr< double *, S >, DIM > getFTensor1FromPtr(double *ptr)
Make Tensor1 from pointer.
static double dynamicTime
static PetscBool dynamicRelaxation
std::map< std::string, boost::shared_ptr< ScalingMethod > > scalingMethodsMap
boost::shared_ptr< NormalDisplacementBcVec > bcDispPtr
boost::shared_ptr< MatrixDouble > hybridDispPtr
boost::shared_ptr< MatrixDouble > piolaStressPtr
FTensor::Tensor0< FTensor::PackPtr< double *, 1 > > getFTensor0N(const FieldApproximationBase base)
Get base function as Tensor0.
MatrixDouble & getN(const FieldApproximationBase base)
get base functions this return matrix (nb. of rows is equal to nb. of Gauss pts, nb....
const VectorInt & getIndices() const
Get global indices of dofs on entity.