Rheolef  7.2
an efficient C++ finite element environment
 
Loading...
Searching...
No Matches
mosolov_augmented_lagrangian2.icc

The Mossolov problem by the augmented Lagrangian method – solver class body.

The Mossolov problem by the augmented Lagrangian method – solver class body

: Bi(0), n(1), r(1), tol(1e-10), max_iter(1000000),
Xh(), Th(), lh(), a(), b(), inv_mt(), pa()
{}
void mosolov_augmented_lagrangian::reset (geo omega, string approx) {
Xh = space (omega, approx);
Xh.block ("boundary");
string grad_approx = "P" + to_string(Xh.degree()-1) + "d";
Th = space (omega, grad_approx, "vector");
trial u (Xh), sigma(Th);
test v (Xh), tau (Th);
lh = integrate(2*v);
a = integrate (dot(grad(u),grad(v)));
b = integrate (dot(grad(u),tau));
integrate_option iopt;
iopt.invert = true;
inv_mt = integrate(dot(sigma,tau), iopt);
pa = problem (a);
}
void
uh = field(Xh);
uh ["boundary"] = 0;
pa.solve (lh, uh);
test tau (Th);
field mt_grad_uh = integrate(dot(grad(uh),tau));
sigma_h = inv_mt*mt_grad_uh;
}
void mosolov_augmented_lagrangian::put (odiststream& out,
field& sigma_h, field& uh) const
{
out << catchmark("Bi") << Bi << endl
<< catchmark("n") << n << endl
<< catchmark("r") << r << endl
<< catchmark("sigma") << sigma_h
<< catchmark("u") << uh;
}
field lh(Float epsilon, Float t, const test &v)
see the field page for the full documentation
see the geo page for the full documentation
see the problem page for the full documentation
see the space page for the full documentation
see the test page for the full documentation
see the test page for the full documentation
rheolef::details::is_vec dot
std::enable_if< details::has_field_rdof_interface< Expr >::value, details::field_expr_v2_nonlinear_terminal_field< typenameExpr::scalar_type, typenameExpr::memory_type, details::differentiate_option::gradient > >::type grad(const Expr &expr)
grad(uh): see the expression page for the full documentation
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:211
void put(odiststream &out, field &sigma_h, field &uh) const
void initial(field &sigma_h, field &uh) const
Definition leveque.h:25