Rheolef  7.1
an efficient C++ finite element environment
yield_slip1.icc
Go to the documentation of this file.
1 #include "d_projection_dx.h"
27  const geo& omega, const geo& boundary1, string approx)
28  : S(S1), n(n1), Cf(Cf1), r(r1), boundary(boundary1), Xh(), Wh(), Yh(),
29  lh(), mkh(), m(), mb(), a(), b(), c1(), pmb(), pa(), pA()
30 {
31  Xh = space (omega, approx);
32  Wh = space (boundary, approx);
33  Yh = Xh*Wh;
34  trial u (Xh), lambda(Wh);
35  test v (Xh), mu(Wh);
36  m = integrate(u*v);
37  mb = integrate(lambda*mu);
38  a = integrate(dot(grad(u),grad(v))) - r*integrate(boundary, u*v);
39  b = integrate(boundary, u*mu);
40  lh = integrate(v);
41  pmb = problem (mb);
42  pa = problem (a);
43  field vh(Xh);
44  pa.solve (lh, vh);
45  mkh = b*vh;
46 }
47 field yield_slip::residue (const field& beta_h) const {
48  field vh (Xh);
49  field rhs = b.trans_mult (beta_h);
50  pa.solve (rhs, vh);
51  test mu (Wh);
52  field c0h = integrate(mu*compose(projection(S,n,Cf,r), beta_h));
53  field mrh = b*vh + c0h - mkh;
54  return mrh;
55 }
56 void yield_slip::update_derivative (const field& beta_h) const {
57  trial lambda (Wh); test mu (Wh);
59  form A = { { a, trans(b) },
60  { b, -c1 } };
61  A.set_symmetry (c1.is_symmetric());
62  pA = problem(A);
63 }
yield_slip::m
form m
Definition: yield_slip.h:44
yield_slip::Wh
space Wh
Definition: yield_slip.h:42
form
see the form page for the full documentation
yield_slip::pa
problem pa
Definition: yield_slip.h:46
yield_slip::lh
field lh
Definition: yield_slip.h:43
d_projection_dx.h
The projection for yield-stress rheology – its derivative.
field
see the field page for the full documentation
rheolef::integrate
std::enable_if< details::is_field_expr_v2_nonlinear_arg< Expr >::value &&! is_undeterminated< Result >::value, Result >::type integrate(const geo_basic< T, M > &omega, const Expr &expr, const integrate_option &iopt, Result dummy=Result())
see the integrate page for the full documentation
Definition: integrate.h:202
yield_slip::a
form a
Definition: yield_slip.h:44
yield_slip::b
form b
Definition: yield_slip.h:44
yield_slip::c1
form c1
Definition: yield_slip.h:45
space
see the space page for the full documentation
rheolef::grad
std::enable_if< details::is_field_convertible< Expr >::value,details::field_expr_v2_nonlinear_terminal_field< typename Expr::scalar_type,typename Expr::memory_type,details::differentiate_option::gradient >>::type grad(const Expr &expr)
grad(uh): see the expression page for the full documentation
Definition: field_expr_terminal.h:911
rheolef::details::compose
class rheolef::details::field_expr_v2_nonlinear_node_unary compose
yield_slip::mkh
field mkh
Definition: yield_slip.h:43
yield_slip::pmb
problem pmb
Definition: yield_slip.h:46
yield_slip::r
Float r
Definition: yield_slip.h:40
yield_slip::S
Float S
Definition: yield_slip.h:40
yield_slip::update_derivative
void update_derivative(const field &beta_h) const
Definition: yield_slip1.icc:56
yield_slip::n
Float n
Definition: yield_slip.h:40
a
Definition: diffusion_isotropic.h:25
yield_slip::Yh
space Yh
Definition: yield_slip.h:42
mkgeo_ugrid.boundary
boundary
Definition: mkgeo_ugrid.sh:181
rheolef::details::dot
rheolef::details::is_vec dot
lh
field lh(Float epsilon, Float t, const test &v)
Definition: burgers_diffusion_operators.icc:25
mkgeo_sector.m
m
Definition: mkgeo_sector.sh:118
test
see the test page for the full documentation
problem
see the problem page for the full documentation
u
Definition: leveque.h:25
Float
see the Float page for the full documentation
yield_slip::yield_slip
yield_slip(Float S, Float n, Float Cf, Float r, const geo &omega, const geo &boundary, string approx="P1")
Definition: yield_slip1.icc:26
yield_slip::Cf
Float Cf
Definition: yield_slip.h:40
yield_slip::residue
field residue(const field &beta_h) const
Definition: yield_slip1.icc:47
u
Float u(const point &x)
Definition: transmission_error.cc:26
mkgeo_ball.b
b
Definition: mkgeo_ball.sh:152
mkgeo_contraction.mu
mu
Definition: mkgeo_contraction.sh:193
yield_slip::boundary
geo boundary
Definition: yield_slip.h:41
mkgeo_ball.n
n
Definition: mkgeo_ball.sh:150
yield_slip::mb
form mb
Definition: yield_slip.h:44
d_projection_dx
Definition: d_projection_dx.h:26
trial
see the test page for the full documentation
yield_slip::Xh
space Xh
Definition: yield_slip.h:42
rheolef::trans
csr< T, sequential > trans(const csr< T, sequential > &a)
trans(a): see the form page for the full documentation
Definition: csr.h:455
yield_slip::pA
problem pA
Definition: yield_slip.h:47
projection
Definition: projection.h:27
geo
see the geo page for the full documentation
lambda
Definition: yield_slip_circle.h:34