1126 {
1128
1132
1133 const size_t nb_gauss_pts = AssemblyBoundaryEleOp::getGaussPts().size2();
1135
1136 auto t_traction = getFTensor1FromMat<DIM>(
commonDataPtr->contactTraction);
1137 auto t_coords = AssemblyBoundaryEleOp::getFTensor1CoordsAtGaussPts();
1138
1139 auto t_w = AssemblyBoundaryEleOp::getFTensor0IntegrationWeight();
1140 auto t_row_base = row_data.getFTensor1N<3>();
1141 size_t nb_face_functions = row_data.getN().size2() / 3;
1142
1144 BoundaryEleOp::getFTensor1CoordsAtGaussPts(),
1145 getFTensor1FromMat<DIM>(
commonDataPtr->contactDisp), nb_gauss_pts);
1147 BoundaryEleOp::getFTensor1NormalsAtGaussPts(), nb_gauss_pts);
1148
1149 auto t_normal = getFTensor1FromMat<3>(m_normals_at_pts);
1150
1151 auto ts_time = AssemblyBoundaryEleOp::getTStime();
1152 auto ts_time_step = AssemblyBoundaryEleOp::getTStimeStep();
1153
1154
1155 int block_id = 0;
1156
1157 auto v_sdf =
1159 m_spatial_coords, m_normals_at_pts, block_id);
1160
1161 auto m_grad_sdf =
1163 m_spatial_coords, m_normals_at_pts, block_id);
1164
1165 auto t_sdf = getFTensor0FromVec(v_sdf);
1166 auto t_grad_sdf = getFTensor1FromMat<3>(m_grad_sdf);
1167
1168 for (size_t gg = 0; gg != nb_gauss_pts; ++gg) {
1169
1172 jacobian = 2. * M_PI * t_coords(0);
1173 }
1174 const double alpha = t_w *
jacobian * AssemblyBoundaryEleOp::getMeasure();
1175
1176 auto tn = -t_traction(
i) * t_grad_sdf(
i);
1178
1180 t_cP(
i,
j) = (
c * t_grad_sdf(
i)) * t_grad_sdf(
j);
1183
1186
1187 size_t rr = 0;
1189
1190 auto t_mat = getFTensor2FromArray<DIM, DIM, DIM>(locMat, DIM * rr);
1191 const double row_base = t_row_base(
i) * t_normal(
i);
1192
1193 auto t_col_base = col_data.getFTensor1N<3>(gg, 0);
1195 const double col_base = t_col_base(
i) * t_normal(
i);
1196 const double beta = alpha * row_base * col_base;
1197
1198 t_mat(
i,
j) -= beta * t_res_dt(
i,
j);
1199
1200 ++t_col_base;
1201 ++t_mat;
1202 }
1203
1204 ++t_row_base;
1205 }
1206 for (; rr < nb_face_functions; ++rr)
1207 ++t_row_base;
1208
1209 ++t_traction;
1210 ++t_coords;
1211 ++t_w;
1212 ++t_normal;
1213 ++t_sdf;
1214 ++t_grad_sdf;
1215 }
1216
1218}
SmartPetscObj< Mat > jacobian
#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.
int nbRows
number of dofs on rows
MatrixDouble locMat
local entity block matrix
int nbCols
number if dof on column