996 {
998
1002
1003 const size_t nb_gauss_pts = AssemblyBoundaryEleOp::getGaussPts().size2();
1004 auto &locMat = AssemblyBoundaryEleOp::locMat;
1005
1006 auto t_normal_at_pts = AssemblyBoundaryEleOp::getFTensor1NormalsAtGaussPts();
1007 auto t_traction = getFTensor1FromMat<DIM>(
commonDataPtr->contactTraction);
1008 auto t_coords = AssemblyBoundaryEleOp::getFTensor1CoordsAtGaussPts();
1009
1010 auto t_w = AssemblyBoundaryEleOp::getFTensor0IntegrationWeight();
1011 auto t_row_base = row_data.getFTensor1N<3>();
1012 size_t nb_face_functions = row_data.getN().size2() / 3;
1013
1015 BoundaryEleOp::getFTensor1CoordsAtGaussPts(),
1016 getFTensor1FromMat<DIM>(
commonDataPtr->contactDisp), nb_gauss_pts);
1018 BoundaryEleOp::getFTensor1NormalsAtGaussPts(), nb_gauss_pts);
1019
1020 auto t_normal = getFTensor1FromMat<3>(m_normals_at_pts);
1021
1022 auto ts_time = AssemblyBoundaryEleOp::getTStime();
1023 auto ts_time_step = AssemblyBoundaryEleOp::getTStimeStep();
1024
1025
1026 int block_id = 0;
1027
1028 auto v_sdf =
1030 m_spatial_coords, m_normals_at_pts, block_id);
1031
1032 auto m_grad_sdf =
1034 m_spatial_coords, m_normals_at_pts, block_id);
1035
1036 auto m_hess_sdf =
1038 m_spatial_coords, m_normals_at_pts, block_id);
1039
1040 auto t_sdf = getFTensor0FromVec(v_sdf);
1041 auto t_grad_sdf = getFTensor1FromMat<3>(m_grad_sdf);
1042 auto t_hess_sdf = getFTensor2SymmetricFromMat<3>(m_hess_sdf);
1043
1044 for (size_t gg = 0; gg != nb_gauss_pts; ++gg) {
1045
1046 double jacobian = 1.;
1048 jacobian = 2. * M_PI * t_coords(0);
1049 }
1050 const double alpha = t_w * jacobian * AssemblyBoundaryEleOp::getMeasure();
1051
1052 auto tn = -t_traction(
i) * t_grad_sdf(
i);
1054
1056 t_cP(
i,
j) = (
c * t_grad_sdf(
i)) * t_grad_sdf(
j);
1059
1062
1066 (t_hess_sdf(
i,
j) * (t_grad_sdf(
k) * t_traction(
k)) +
1067 t_grad_sdf(
i) * t_hess_sdf(
k,
j) * t_traction(
k)) +
1068 c * t_sdf * t_hess_sdf(
i,
j);
1069 }
1070
1071 size_t rr = 0;
1072 for (; rr != AssemblyBoundaryEleOp::nbRows / DIM; ++rr) {
1073
1074 auto t_mat = getFTensor2FromArray<DIM, DIM, DIM>(locMat, DIM * rr);
1075
1076 const double row_base = t_row_base(
i) * t_normal(
i);
1077
1078 auto t_col_base = col_data.getFTensor0N(gg, 0);
1079 for (size_t cc = 0; cc != AssemblyBoundaryEleOp::nbCols / DIM; ++cc) {
1080 const double beta = alpha * row_base * t_col_base;
1081
1082 t_mat(
i,
j) -= beta * t_res_dU(
i,
j);
1083
1084 ++t_col_base;
1085 ++t_mat;
1086 }
1087
1088 ++t_row_base;
1089 }
1090 for (; rr < nb_face_functions; ++rr)
1091 ++t_row_base;
1092
1093 ++t_traction;
1094 ++t_coords;
1095 ++t_w;
1096 ++t_normal;
1097 ++t_sdf;
1098 ++t_grad_sdf;
1099 ++t_hess_sdf;
1100 }
1101
1103}
#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()
FTensor::Index< 'i', SPACE_DIM > i
const double c
speed of light (cm/ns)
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k
Tensor2_Expr< Kronecker_Delta< T >, T, Dim0, Dim1, i, j > kronecker_delta(const Index< i, Dim0 > &, const Index< j, Dim1 > &)
Rank 2.