Stokes_2.edp~

// border b1(t=0,1){x=t;y=0;label=1;};
// border b2(t=0,1){x=1-t;y=t;label=2;};
// border b3(t=0,1){x=0 ;y=1-t;label=3;};
// mesh Th = buildmesh(b1(1) + b2(1) + b3(1));
// savemesh(Th, "trian_ref.msh");
// plot(Th);

border b1(t=0,1){x=3-t;y=1-t;label=1;};
border b2(t=0,1){x=2+t;y=0;label=2;};
border b3(t=0,1){x=3 ;y=t;label=3;};
mesh Th = buildmesh(b1(1) + b2(1) + b3(1));
savemesh(Th, "trian_ref.msh");
plot(Th);


//mesh Th = readmesh("carre.msh");

real nu=0.1;
real dt=0.1;
real alpha=1./dt;
real eps = 10e-6;

varf NSA(u,v) = int2d(Th) ( (dx(u)*dx(v) + dy(u)*dy(v)) );

// varf NSA(u,v) = int2d(Th) ( (u*v) );

fespace Uhvec(Th,P2);

matrix A=NSA(Uhvec,Uhvec);

real nbr = 0;

for(int i = 0; i < A.n; ++i){
	for(int j = 0; j < A.m; ++j){
		if( (abs(A(i,j)) < 10e6) ){
		    //nbr += A(i,j);
		    cout << A(i,j) << "\t";
		}
	}
	cout << endl;
	//cout << nbr << endl;
}


//{ofstream f("mat.dat");
//f << A;
//}