mosolov_augmented_lagrangian1.icc

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

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

#include "vector_projection.h"
int mosolov_augmented_lagrangian::solve (field& sigma_h, field& uh) const {
  test v(Xh);
  derr << "# k residue" << endl;
  for (size_t k = 0; true; ++k) {
    field grad_uh = inv_mt*(b*uh);
    auto c = compose(vector_projection(Bi,n,1,r), norm(sigma_h+r*grad_uh));
    field gamma_h = lazy_interpolate(Th, c*(sigma_h + r*grad_uh));
    field delta_sigma_h = r*(grad_uh - gamma_h);
    sigma_h += delta_sigma_h;
    Float residue = delta_sigma_h.max_abs();
    derr << k << " " << residue << endl;
    if (residue <= tol || k >= max_iter) {
      derr << endl << endl;
      return (pow(residue,3) <= tol) ? 0 : 1;
    }
    field rhs = (1/r)*(lh - integrate(dot(sigma_h - r*gamma_h, grad(v))));
    pa.solve (rhs, uh);
  }
}