19.11.2012 Views

Quelques EDP simples r´esolues avec FreeFem++, Astuces et Trucs

Quelques EDP simples r´esolues avec FreeFem++, Astuces et Trucs

Quelques EDP simples r´esolues avec FreeFem++, Astuces et Trucs

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

lambda[] = AA * uh[] ; // compute the resudal ( fast with matrix)<br />

lambda[] += rhs ; // remark rhs = − � fv<br />

Ik = ( lambda + c*( g- uh)) < 0. ; // s<strong>et</strong> the new value<br />

plot(Ik, wait=1,cmm=" lock s<strong>et</strong> ",value=1 ) ;<br />

plot(uh,wait=1,cmm="uh") ;<br />

// trick to compute L2 norm of the variation<br />

real[int] diff(n),Mdiff(n) ;<br />

diff= uh[]-uhp[] ;<br />

Mdiff = M*diff ;<br />

real err = sqrt(Mdiff’*diff) ;<br />

cout

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!