2
using namespace rheolef;
4
#include "p_laplacian_fixed_point.icc"
5
#include "dirichlet.icc"
6
int main(int argc, char**argv) {
7
environment rheolef (argc,argv);
9
string approx = (argc > 2) ? argv[2] : "P1";
10
Float p = (argc > 3) ? atof(argv[3]) : 1.5;
11
Float tol = (argc > 4) ? atof(argv[4]) : 1e-10;
12
size_t max_iter = 500;
13
derr << "# P-Laplacian problem by fixed-point:" << endl
14
<< "# geo = " << omega.name() << endl
15
<< "# approx = " << approx << endl
16
<< "# p = " << p << endl;
17
space Xh (omega, approx);
18
Xh.block ("boundary");
21
field lh = riesz (Xh, 1);
23
int status = p_laplacian_fixed_point (p, lh, uh, tol, max_iter);
24
dout << catchmark("p") << p << endl
25
<< catchmark("u") << uh;