compute a posteriori error estimate
0001 function err=errcheck(p) 0002 % compute a posteriori error estimate 0003 alfa=0.15;beta=0.15;mexp=1; 0004 [c,a,f,b]=p.f(p,p.u,p.lam); 0005 if any(b) f=bgradu2f(p,f,b,p.u); end 0006 errv=pdejmps(p.points,p.tria,c,a,f,p.u,alfa,beta,mexp); 0007 err=max(max(errv));