13#ifndef dealii_integrators_laplace_h
14#define dealii_integrators_laplace_h
51 const double factor = 1.)
58 const double dx = fe.
JxW(k) * factor;
59 for (
unsigned int i = 0; i < n_dofs; ++i)
62 for (
unsigned int d = 0; d < n_components; ++d)
68 for (
unsigned int j = i + 1; j < n_dofs; ++j)
71 for (
unsigned int d = 0; d < n_components; ++d)
100 for (
unsigned int k = 0; k < nq; ++k)
102 const double dx = factor * fe.
JxW(k);
103 for (
unsigned int i = 0; i < n_dofs; ++i)
104 result(i) += dx * (input[k] * fe.
shape_grad(i, k));
129 for (
unsigned int k = 0; k < nq; ++k)
131 const double dx = factor * fe.
JxW(k);
132 for (
unsigned int i = 0; i < n_dofs; ++i)
133 for (
unsigned int d = 0; d < n_comp; ++d)
167 const double dx = fe.
JxW(k) * factor;
169 for (
unsigned int i = 0; i < n_dofs; ++i)
170 for (
unsigned int j = 0; j < n_dofs; ++j)
171 for (
unsigned int d = 0; d < n_comp; ++d)
207 const double dx = fe.
JxW(k) * factor;
209 for (
unsigned int i = 0; i < n_dofs; ++i)
210 for (
unsigned int j = 0; j < n_dofs; ++j)
217 for (
unsigned int d = 0; d < dim; ++d)
225 for (
unsigned int d = 0; d < dim; ++d)
236 M(i, j) += dx * (2. * penalty * u_t * v_t - dnu_t * v_t -
260 const std::vector<double> &input,
262 const std::vector<double> &
data,
273 const double dx = factor * fe.
JxW(k);
275 for (
unsigned int i = 0; i < n_dofs; ++i)
278 const double dnu = Dinput[k] * n;
280 const double u = input[k];
281 const double g =
data[k];
284 dx * (2. * penalty * (u - g) * v - dnv * (u - g) - dnu * v);
307 const ArrayView<
const std::vector<double>> &input,
321 const double dx = factor * fe.
JxW(k);
323 for (
unsigned int i = 0; i < n_dofs; ++i)
324 for (
unsigned int d = 0; d < n_comp; ++d)
327 const double dnu = Dinput[d][k] * n;
329 const double u = input[d][k];
330 const double g =
data[d][k];
333 dx * (2. * penalty * (u - g) * v - dnv * (u - g) - dnu * v);
364 double factor2 = -1.)
376 const double nui = factor1;
377 const double nue = (factor2 < 0) ? factor1 : factor2;
378 const double nu = .5 * (nui + nue);
382 const double dx = fe1.
JxW(k);
386 for (
unsigned int i = 0; i < n_dofs; ++i)
388 for (
unsigned int j = 0; j < n_dofs; ++j)
399 dx * (-.5 * nui * dnvi * ui - .5 * nui * dnui * vi +
400 nu * penalty * ui * vi);
402 dx * (.5 * nui * dnvi * ue - .5 * nue * dnue * vi -
403 nu * penalty * vi * ue);
405 dx * (-.5 * nue * dnve * ui + .5 * nui * dnui * ve -
406 nu * penalty * ui * ve);
408 dx * (.5 * nue * dnve * ue + .5 * nue * dnue * ve +
409 nu * penalty * ue * ve);
437 double factor2 = -1.)
451 const double nui = factor1;
452 const double nue = (factor2 < 0) ? factor1 : factor2;
453 const double nu = .5 * (nui + nue);
457 const double dx = fe1.
JxW(k);
459 for (
unsigned int i = 0; i < n_dofs; ++i)
464 for (
unsigned int j = 0; j < n_dofs; ++j)
471 double ngradu1n = 0.;
472 double ngradv1n = 0.;
473 double ngradu2n = 0.;
474 double ngradv2n = 0.;
476 for (
unsigned int d = 0; d < dim; ++d)
492 for (
unsigned int d = 0; d < dim; ++d)
515 dx * (-.5 * nui * dnvi * ui - .5 * nui * dnui * vi +
516 nu * penalty * ui * vi);
518 dx * (.5 * nui * dnvi * ue - .5 * nue * dnue * vi -
519 nu * penalty * vi * ue);
521 dx * (-.5 * nue * dnve * ui + .5 * nui * dnui * ve -
522 nu * penalty * ui * ve);
524 dx * (.5 * nue * dnve * ue + .5 * nue * dnue * ve +
525 nu * penalty * ue * ve);
545 const std::vector<double> &input1,
547 const std::vector<double> &input2,
550 double int_factor = 1.,
551 double ext_factor = -1.)
558 const double nui = int_factor;
559 const double nue = (ext_factor < 0) ? int_factor : ext_factor;
560 const double penalty = .5 * pen * (nui + nue);
566 const double dx = fe1.
JxW(k);
569 for (
unsigned int i = 0; i < n_dofs; ++i)
573 const double dnvi = Dvi * n;
576 const double dnve = Dve * n;
578 const double ui = input1[k];
580 const double dnui = Dui * n;
581 const double ue = input2[k];
583 const double dnue = Due * n;
585 result1(i) += dx * (-.5 * nui * dnvi * ui - .5 * nui * dnui * vi +
587 result1(i) += dx * (.5 * nui * dnvi * ue - .5 * nue * dnue * vi -
589 result2(i) += dx * (-.5 * nue * dnve * ui + .5 * nui * dnui * ve -
591 result2(i) += dx * (.5 * nue * dnve * ue + .5 * nue * dnue * ve +
612 const ArrayView<
const std::vector<double>> &input1,
614 const ArrayView<
const std::vector<double>> &input2,
617 double int_factor = 1.,
618 double ext_factor = -1.)
628 const double nui = int_factor;
629 const double nue = (ext_factor < 0) ? int_factor : ext_factor;
630 const double penalty = .5 * pen * (nui + nue);
635 const double dx = fe1.
JxW(k);
638 for (
unsigned int i = 0; i < n1; ++i)
639 for (
unsigned int d = 0; d < n_comp; ++d)
643 const double dnvi = Dvi * n;
646 const double dnve = Dve * n;
648 const double ui = input1[d][k];
650 const double dnui = Dui * n;
651 const double ue = input2[d][k];
653 const double dnue = Due * n;
655 result1(i) += dx * (-.5 * nui * dnvi * ui -
656 .5 * nui * dnui * vi + penalty * ui * vi);
657 result1(i) += dx * (.5 * nui * dnvi * ue -
658 .5 * nue * dnue * vi - penalty * vi * ue);
659 result2(i) += dx * (-.5 * nue * dnve * ui +
660 .5 * nui * dnui * ve - penalty * ui * ve);
661 result2(i) += dx * (.5 * nue * dnve * ue +
662 .5 * nue * dnue * ve + penalty * ue * ve);
680 template <
int dim,
int spacedim,
typename number>
687 const unsigned int normal1 =
689 const unsigned int normal2 =
691 const unsigned int deg1sq = (deg1 == 0) ? 1 : deg1 * (deg1 + 1);
692 const unsigned int deg2sq = (deg2 == 0) ? 1 : deg2 * (deg2 + 1);
694 double penalty1 = deg1sq / dinfo1.
cell->extent_in_direction(normal1);
695 double penalty2 = deg2sq / dinfo2.
cell->extent_in_direction(normal2);
696 if (dinfo1.
cell->has_children() ^ dinfo2.
cell->has_children())
702 const double penalty = 0.5 * (penalty1 + penalty2);
const unsigned int dofs_per_cell
const Tensor< 1, spacedim > & normal_vector(const unsigned int q_point) const
double shape_value_component(const unsigned int i, const unsigned int q_point, const unsigned int component) const
const unsigned int n_quadrature_points
Tensor< 1, spacedim > shape_grad_component(const unsigned int i, const unsigned int q_point, const unsigned int component) const
const Tensor< 1, spacedim > & shape_grad(const unsigned int i, const unsigned int q_point) const
const FiniteElement< dim, spacedim > & get_fe() const
double JxW(const unsigned int q_point) const
const double & shape_value(const unsigned int i, const unsigned int q_point) const
unsigned int n_components() const
Triangulation< dim, spacedim >::face_iterator face
The current face.
Triangulation< dim, spacedim >::cell_iterator cell
The current cell.
virtual size_type size() const override
#define DEAL_II_DEPRECATED
#define DEAL_II_NAMESPACE_OPEN
#define DEAL_II_NAMESPACE_CLOSE
#define Assert(cond, exc)
#define AssertVectorVectorDimension(VEC, DIM1, DIM2)
#define AssertDimension(dim1, dim2)
static ::ExceptionBase & ExcInternalError()
static ::ExceptionBase & ExcDimensionMismatch(std::size_t arg1, std::size_t arg2)
std::vector< index_type > data
void ip_tangential_matrix(FullMatrix< double > &M11, FullMatrix< double > &M12, FullMatrix< double > &M21, FullMatrix< double > &M22, const FEValuesBase< dim > &fe1, const FEValuesBase< dim > &fe2, double penalty, double factor1=1., double factor2=-1.)
void cell_residual(Vector< double > &result, const FEValuesBase< dim > &fe, const std::vector< Tensor< 1, dim > > &input, double factor=1.)
void cell_matrix(FullMatrix< double > &M, const FEValuesBase< dim > &fe, const double factor=1.)
double compute_penalty(const MeshWorker::DoFInfo< dim, spacedim, number > &dinfo1, const MeshWorker::DoFInfo< dim, spacedim, number > &dinfo2, unsigned int deg1, unsigned int deg2)
void nitsche_residual(Vector< double > &result, const FEValuesBase< dim > &fe, const std::vector< double > &input, const std::vector< Tensor< 1, dim > > &Dinput, const std::vector< double > &data, double penalty, double factor=1.)
void ip_matrix(FullMatrix< double > &M11, FullMatrix< double > &M12, FullMatrix< double > &M21, FullMatrix< double > &M22, const FEValuesBase< dim > &fe1, const FEValuesBase< dim > &fe2, double penalty, double factor1=1., double factor2=-1.)
void nitsche_tangential_matrix(FullMatrix< double > &M, const FEValuesBase< dim > &fe, double penalty, double factor=1.)
void ip_residual(Vector< double > &result1, Vector< double > &result2, const FEValuesBase< dim > &fe1, const FEValuesBase< dim > &fe2, const std::vector< double > &input1, const std::vector< Tensor< 1, dim > > &Dinput1, const std::vector< double > &input2, const std::vector< Tensor< 1, dim > > &Dinput2, double pen, double int_factor=1., double ext_factor=-1.)
void nitsche_matrix(FullMatrix< double > &M, const FEValuesBase< dim > &fe, double penalty, double factor=1.)
Library of integrals over cells and faces.