コード名: cavity.edp (u1,u2,pは流速と圧力、v1,v2,qは重み関数)
mesh Th=square(8,8); //四角に切る
fespace Xh(Th,P2);
fespace Mh(Th,P1);
Xh u2,v2;
Xh u1,v1;
Mh p,q;
solve Stokes ([u1,u2,p],[v1,v2,q],solver=Crout) =
int2d(Th)( ( dx(u1)*dx(v1) + dy(u1)*dy(v1) + dx(u2)*dx(v2) + dy(u2)*dy(v2) )
- p*q*(0.000001)
- p*dx(v1)- p*dy(v2) - dx(u1)*q- dy(u2)*q )
+ on(3,u1=1,u2=0) + on(1,2,4,u1=0,u2=0); //境界条件