// <int Order_s, int Order_p, int Order_t>
void Convection::updateJacobian2( const vector_ptrtype& X,
sparse_matrix_ptrtype& D )
{
mesh_ptrtype mesh = Xh->mesh();
element_type U( Xh, "u" );
U = *X;
LOG(INFO) << "[updateJacobian] ||X|| = " << U.l2Norm() << "\n";
element_type V( Xh, "v" );
element_type W( Xh, "v" );
element_0_type u = U. element<0>(); // fonction vitesse
element_0_type v = V. element<0>(); // fonction test vitesse
element_1_type p = U. element<1>(); // fonction pression
element_1_type q = V. element<1>(); // fonction test pression
element_2_type t = U. element<2>(); // fonction temperature
element_2_type s = V. element<2>(); // fonction test temperature
#if defined( FEELPP_USE_LM )
element_3_type xi = U. element<3>(); // fonction multipliers
element_3_type eta = V. element<3>(); // fonction test multipliers
#endif
double gr= M_current_Grashofs;
double sqgr( 1/math::sqrt( gr ) );
double pr = M_current_Prandtl;
double sqgrpr=( 1/( pr*math::sqrt( gr ) ) );
double gamma( this->vm()["penalbc"]. as<double>() );
double dt=this->vm()["dt"]. as<double>();
int adim=this->vm()["adim"]. as<int>();
double pC=1;
if ( adim == 0 ) pC = this->vm()["pC"]. as<double>();
//
// temperature derivatives
//
// heat convection by the fluid: attention 2 terms
form2( _test=Xh, _trial=Xh, _matrix=D ) +=
integrate ( elements( mesh ),
pC*grad( s )*( idv( t )*idt( u ) ) );
form2( _test=Xh, _trial=Xh, _matrix=D ) +=
integrate ( elements( mesh ),
pC*grad( s )*( idt( t )*idv( u ) ) );
form2( _test=Xh, _trial=Xh, _matrix=D ) +=
integrate ( boundaryfaces( mesh ),
pC*( trans( idv( u ) )*N() )*id( s )*idt( t ) );
form2( _test=Xh, _trial=Xh, _matrix=D ) +=
integrate ( boundaryfaces( mesh ),
pC*( trans( idt( u ) )*N() )*id( s )*idv( t ) );
LOG(INFO) << "[updateJacobian2] Temperature convection terms done\n";
LOG(INFO) << "[updateJacobian2] Temperature weak Dirichlet BC terms done\n";
}
void
DrivenCavity<Dim>::Jacobian(const vector_ptrtype& X, sparse_matrix_ptrtype& J)
{
auto U = Vh->element( "(u,p)" );
auto V = Vh->element( "(v,q)" );
auto u = U.template element<0>( "u" );
auto v = V.template element<0>( "u" );
auto p = U.template element<1>( "p" );
auto q = V.template element<1>( "p" );
//#if defined( FEELPP_USE_LM )
auto lambda = U.template element<2>();
auto nu = V.template element<2>();
//#endif
if (!J) J = backend(_name="newtonns")->newMatrix( Vh, Vh );
auto a = form2( _test=Vh, _trial=Vh, _matrix=J );
a = integrate( elements( mesh ), inner(gradt( u ),grad( v ))/Re );
a += integrate( elements( mesh ), id(q)*divt(u) -idt(p)*div(v) );
// Convective terms
a += integrate( elements( mesh ), trans(id(v))*gradv(u)*idt(u));
a += integrate( elements( mesh ), trans(id(v))*gradt(u)*idv(u));
//#if defined( FEELPP_USE_LM )
a += integrate(elements(mesh), id(q)*idt(lambda)+idt(p)*id(nu));
//#elif
//a += integrate(elements(mesh), idt(p)*id(nu));
//Weak Dirichlet conditions
a += integrate( boundaryfaces( mesh ),-trans( -idt(p)*N()+gradt(u)*N()/Re )*id( v ));//
a += integrate( boundaryfaces( mesh ),-trans( -id(p)*N()+grad(u)*N()/Re )*idt( u ));//
a += integrate( boundaryfaces( mesh ), +penalbc*inner( idt( u ),id( v ) )/hFace() );
}
static inline void assemble(boost::shared_ptr<Mesh<Simplex<Dim>>>& mesh, double* vec) {
boost::timer time;
auto Vh = FunctionSpace<Mesh<Simplex<Dim>>, bases<Lagrange<Order, Type>>>::New(_mesh = mesh);
vec[2] = time.elapsed();
vec[1] = Vh->nDof();
Environment::logMemoryUsage( "Assemble Laplacian Memory Usage: FunctionSpace" );
time.restart();
auto v = Vh->element();
auto f = backend()->newVector(Vh);
auto l = form1(_test = Vh, _vector = f);
l = integrate(_range = elements(mesh), _expr = id(v));
vec[4] = time.elapsed();
Environment::logMemoryUsage( "Assemble Laplacian Memory Usage: Form1" );
time.restart();
auto u = Vh->element();
auto A = backend()->newMatrix(Vh, Vh);
vec[5] = time.elapsed();
Environment::logMemoryUsage( "Assemble Laplacian Memory Usage: Matrix" );
time.restart();
auto a = form2(_trial = Vh, _test = Vh, _matrix = A);
a = integrate(_range = elements(mesh), _expr = inner(gradt(u),grad(v)));
a += on(_range = markedfaces(mesh, "Dirichlet"), _rhs = l, _element = u, _expr = cst(0.0));
vec[3] = time.elapsed();
auto mem = Environment::logMemoryUsage( "Assemble Laplacian Memory Usage: form2" );
v[6] = mem.memory_usage/1e9;
LOG(INFO) << "v[6] = " << v[6];
cleanup();
}
void
PreconditionerBlockMS<space_type>::init( void )
{
if( Environment::worldComm().isMasterRank() )
std::cout << "Init preconditioner blockms\n";
LOG(INFO) << "Init ...\n";
tic();
BoundaryConditions M_bc = M_model.boundaryConditions();
LOG(INFO) << "Create sub Matrix\n";
map_vector_field<FEELPP_DIM,1,2> m_dirichlet_u { M_bc.getVectorFields<FEELPP_DIM> ( "u", "Dirichlet" ) };
map_scalar_field<2> m_dirichlet_p { M_bc.getScalarFields<2> ( "phi", "Dirichlet" ) };
/*
* AA = [[ A - k^2 M, B^t],
* [ B , 0 ]]
* We need to extract A-k^2 M and add it M to form A+(1-k^2) M = A+g M
*/
// Is the zero() necessary ?
M_11->zero();
this->matrix()->updateSubMatrix(M_11, M_Vh_indices, M_Vh_indices, false); // M_11 = A-k^2 M
LOG(INFO) << "Use relax = " << M_relax << std::endl;
M_11->addMatrix(M_relax,M_mass); // A-k^2 M + M_relax*M = A+(M_relax-k^2) M
auto f2A = form2(_test=M_Vh, _trial=M_Vh,_matrix=M_11);
auto f1A = form1(_test=M_Vh);
for(auto const & it : m_dirichlet_u )
f2A += on(_range=markedfaces(M_Vh->mesh(),it.first), _expr=it.second,_rhs=f1A, _element=u, _type="elimination_symmetric");
/*
* Rebuilding sub-backend
*/
backend(_name=M_prefix_11, _rebuild=true);
backend(_name=M_prefix_22, _rebuild=true);
// We have to set the G, Px,Py,Pz or X,Y,Z matrices to AMS
if(soption(_name="pc-type", _prefix=M_prefix_11) == "ams")
{
#if FEELPP_DIM == 3
initAMS();
{
if(boption(_name="setAlphaBeta",_prefix=M_prefix_11))
{
auto prec = preconditioner(_pc=pcTypeConvertStrToEnum(soption(M_prefix_11+".pc-type")),
_backend=backend(_name=M_prefix_11),
_prefix=M_prefix_11,
_matrix=M_11
);
prec->setMatrix(M_11);
prec->attachAuxiliarySparseMatrix("a_alpha",M_a_alpha);
prec->attachAuxiliarySparseMatrix("a_beta",M_a_beta);
}
}
#else
std::cerr << "ams preconditioner is not interfaced in two dimensions\n";
#endif
}
toc("[PreconditionerBlockMS] Init",FLAGS_v>0);
LOG(INFO) << "Init done\n";
}
// retrieve underlying matrix
virtual void matPtr( matrix_ptrtype & matrix )
{
form2( _trial=this->domainSpace(),
_test=this->dualImageSpace(),
_matrix=matrix,
_pattern=M_pattern) = M_expr;
matrix->close();
}
int main(void) {
{
Bureaucrat bureaucrat("John Doe", 1);
ShrubberyCreationForm form("three");
bureaucrat.executeForm(form);
try {
form.execute(bureaucrat);
} catch (Form::NotSignedException & e ) {
std::cout << e.what() << std::endl;
}
form.beSigned(bureaucrat);
form.execute(bureaucrat);
}
{
Bureaucrat bureaucrat("Sisi", 140);
ShrubberyCreationForm form("Three");
std::cout << form << std::endl << bureaucrat << std::endl;
form.beSigned(bureaucrat);
bureaucrat.executeForm(form);
try {
form.execute(bureaucrat);
} catch (std::exception & e ) {
std::cout << e.what() << std::endl;
}
}
{
Bureaucrat bureaucrat("John doe", 1);
RobotomyRequestForm form("robot");
PresidentialPardonForm form2("Presidential");
std::cout << form << std::endl;
std::cout << form2 << std::endl;
bureaucrat.signForm(form);
form.execute(bureaucrat);
form.execute(bureaucrat);
form2.beSigned(bureaucrat);
form2.execute(bureaucrat);
}
return 0;
}
int main(void)
{
Form form1("form1", 5, 5);
Form form2("form2", 10, 5);
Bureaucrat bob("bob", 1);
Bureaucrat roger("roger", 6);
std::cout << form1 << form2 << bob << roger;
bob.signForm(form1);
std::cout << form1 << form2 << bob << roger;
bob.signForm(form2);
std::cout << form1 << form2 << bob << roger;
roger.signForm(form1);
std::cout << form1 << form2 << bob << roger;
roger.signForm(form2);
std::cout << form1 << form2 << bob << roger;
return (0);
}
virtual void
apply( const domain_element_slice_type & de,
dual_image_element_range_type & ie )
{
auto matrix = M_backend->newMatrix( _test=this->dualImageSpace() ,
_trial=this->domainSpace(),
_pattern=M_pattern );
form2( _trial=this->domainSpace(),
_test=this->dualImageSpace(),
_matrix=matrix,
_pattern=M_pattern) = M_expr;
matrix->close();
vector_ptrtype _v1( M_backend->newVector( _test=de.functionSpace() ) );
*_v1 = de;_v1->close();
vector_ptrtype _v2( M_backend->newVector( _test=ie.functionSpace() ) );
M_backend->prod( matrix, _v1, _v2 );
ie.container() = *_v2;
}
//! apply the inverse of the operator: \f$de = O^{-1} ie\f$
virtual void
applyInverse( domain_element_type& de,
const image_element_type& ie )
{
auto matrix = M_backend->newMatrix( _test=this->dualImageSpace() ,
_trial=this->domainSpace(),
_pattern=M_pattern );
form2( _trial=this->domainSpace(),
_test=this->dualImageSpace(),
_matrix=matrix,
_pattern=M_pattern) = M_expr;
matrix->close();
vector_ptrtype _v1( M_backend->newVector( _test=de.functionSpace() ) );
vector_ptrtype _v2( M_backend->newVector( _test=ie.space() ) );
*_v2 = ie.container();
M_backend->solve( matrix, matrix, _v1, _v2 );
de = *_v1;
}
//template< typename Expr_convection, typename Expr_bc >
void
PreconditionerAS<space_type,coef_space_type>::update( sparse_matrix_ptrtype Pm, // A + g M
sparse_matrix_ptrtype L, // e_r * grad grad
sparse_matrix_ptrtype hatL, // 1/mu * grad grad
sparse_matrix_ptrtype Q // e_r * id id
)
{
tic();
if(this->type() == AS)
{
// A = Pm
backend()->diag(Pm,M_diagPm);
M_diagPm->close();
/*
* hat(L) = 1/mu * grad grad = 1/(mu*e_r) * L
* bar(L) = diag( hat(L), hat(L), hat(L) )
* bar(Q) = diag( er*Q, er*Q, er*Q ) with Q = mass matrix on Qh3
* blockms.11.1 <=> bar(L) + g*bar(Q) y = s = Pt*r
* blockms.11.2 <=> L z = t = trans(C)*r
*/
// Operator hat(L) + g Q
sparse_matrix_ptrtype Lgq = hatL;
Lgq->addMatrix(M_g,Q);
M_lgqOp = op( Lgq, "blockms.11.1");
// Operator L
M_lOp = op(L,"blockms.11.2");
}
else if(this->type() == SIMPLE)
{
auto uu = M_Vh->element("uu");
auto f22 = form2(M_Vh, M_Vh);
f22 = integrate(_range=elements(M_Vh->mesh()),
_expr=inner(id(uu),idt(uu)));
SimpleOp = op( f22.matrixPtr(),"blockms.11.1");
}
toc( "PreconditionerAS::update", FLAGS_v > 0 );
}
static inline void assemble(boost::shared_ptr<Mesh<Simplex<Dim>>>& mesh, double* vec) {
boost::timer time;
auto Vh = FunctionSpace<Mesh<Simplex<Dim>>, bases<Lagrange<Order, Type>, Lagrange<OrderBis, TypeBis>>>::New(_mesh = mesh,
_worldscomm = std::vector<WorldComm>(2, mesh->worldComm()),
_extended_doftable = std::vector<bool>(2, false));
vec[2] = time.elapsed();
Environment::logMemoryUsage( "Assemble Stokes Memory Usage: FunctionSpace" );
vec[1] = Vh->nDof();
time.restart();
auto V = Vh->element();
auto v = V.template element<0>();
auto f = backend()->newVector(Vh);
auto l = form1(_test = Vh, _vector = f);
l = integrate(_range = elements(mesh),
_expr = trans(oneY()) * id(v));
vec[4] = time.elapsed();
Environment::logMemoryUsage( "Assemble Stokes Memory Usage: Form1" );
time.restart();
auto U = Vh->element();
auto u = U.template element<0>();
auto p = U.template element<1>();
auto q = V.template element<1>();
auto A = backend()->newMatrix(Vh, Vh);
vec[5] = time.elapsed();
Environment::logMemoryUsage( "Assemble Stokes Memory Usage: Matrix" );
time.restart();
auto a = form2(_trial = Vh, _test = Vh, _matrix = A);
a = integrate(_range = elements(mesh),
_expr = trace(gradt(u) * trans(grad(v))));
a += integrate(_range = elements(mesh),
_expr = - div(v) * idt(p) );
a += integrate(_range = elements(mesh),
_expr = - divt(u) * id(q));
a += on(_range = markedfaces(mesh, "Dirichlet"), _rhs = l, _element = u, _expr = zero<Dim, 1>());
vec[3] = time.elapsed();
auto mem = Environment::logMemoryUsage( "Assemble Stokes Memory Usage: Form2" );
v[6] = mem.memory_usage/1.e9;
cleanup();
}
bool exprs_for_24(int a1, int a2, int a3, int a4)
{
int ar[4] = {a1, a2, a3, a4};
sort_quick(4, ar);
int ops[4] = {'+', '-', '*', '/'};
int opr[3];
Rpermut rp(3, opr, sizeof(ops)/sizeof(int), ops);
int a, b, c, d;
int op1, op2, op3;
bool found = false;
for (; std::next_permutation(ar, ar+4); ) {
a = ar[0];
b = ar[1];
c = ar[2];
d = ar[3];
for (rp.begin(); !rp.ended; rp.next()) {
op1 = opr[0];
op2 = opr[1];
op3 = opr[2];
if (form1(a, b, c, d, op1, op2, op3) ||
form2(a, b, c, d, op1, op2, op3) ||
form3(a, b, c, d, op1, op2, op3) ||
form4(a, b, c, d, op1, op2, op3) ||
form5(a, b, c, d, op1, op2, op3))
found = true;
}
}
return found;
}
static inline void assemble(boost::shared_ptr<Mesh<Simplex<Dim>>>& mesh, double* vec) {
boost::timer time;
//HeapProfilerStart("FunctionSpace");
auto Vh = FunctionSpace<Mesh<Simplex<Dim>>, bases<Lagrange<Order, Type>>>::New(_mesh = mesh);
//HeapProfilerDump("dump");
//HeapProfilerStop();
vec[2] = time.elapsed();
Environment::logMemoryUsage( "Assemble Elasticity Memory Usage: FunctionSpace" );
vec[1] = Vh->nDof();
auto E = 1e+8;
auto nu = 0.25;
auto mu = E / (2 * (1 + nu));
auto lambda = E * nu / ((1 + nu) * (1 - 2 * nu));
time.restart();
auto v = Vh->element();
auto f = backend()->newVector(Vh);
auto l = form1(_test = Vh, _vector = f);
l = integrate(_range = elements(mesh), _expr = -1e+3 * trans(oneY()) * id(v));
vec[4] = time.elapsed();
Environment::logMemoryUsage( "Assemble Elasticity Memory Usage: Form1" );
time.restart();
auto u = Vh->element();
auto A = backend()->newMatrix(Vh, Vh);
vec[5] = time.elapsed();
Environment::logMemoryUsage( "Assemble Elasticity Memory Usage: Matrix" );
time.restart();
auto a = form2(_trial = Vh, _test = Vh, _matrix = A);
a = integrate(_range = elements(mesh),
_expr = lambda * divt(u) * div(v) +
2 * mu * trace(trans(sym(gradt(u))) * sym(grad(u))));
a += on(_range = markedfaces(mesh, "Dirichlet"), _rhs = l, _element = u, _expr = zero<Dim, 1>());
vec[3] = time.elapsed();
auto mem = Environment::logMemoryUsage( "Assemble Elasticity Memory Usage: Form2" );
v[6] = mem.memory_usage/1e9;
cleanup();
}
virtual double
energy( const typename domain_space_type::element_type & de,
const typename dual_image_space_type::element_type & ie ) const
{
auto matrix = M_backend->newMatrix( _test=this->dualImageSpace() ,
_trial=this->domainSpace(),
_pattern=M_pattern );
form2( _trial=this->domainSpace(),
_test=this->dualImageSpace(),
_matrix=matrix,
_pattern=M_pattern) = M_expr;
matrix->close();
vector_ptrtype _v1( M_backend->newVector( _test=de.functionSpace() ) );
*_v1 = de;_v1->close();
vector_ptrtype _v2( M_backend->newVector( _test=ie.functionSpace() ) );
*_v2 = ie;
vector_ptrtype _v3( M_backend->newVector( _test=ie.functionSpace() ) );
M_backend->prod( matrix, _v1, _v3 );
return inner_product( _v2, _v3 );
}
void
Partitioning<Dim>::run()
{
int p = 2;
int* pm = new int[p];
for(unsigned short i = 0; i < p; ++i)
pm[i] = i * (Environment::numberOfProcessors() / p);
bool excluded = std::binary_search(pm, pm + p, Environment::rank());
mpi::group new_group;
if(excluded)
new_group = Environment::worldComm().group().include(pm,pm+p);
else
new_group = Environment::worldComm().group().exclude(pm,pm+p);
delete [] pm;
boost::mpi::communicator bComm(Environment::worldComm(), new_group);
std::vector<int> active( bComm.size(), true );
WorldComm wComm(bComm,bComm,bComm,bComm.rank(),active);
//wComm.showMe();
boost::shared_ptr<Mesh<Simplex<Dim>>> mesh;
if(!excluded)
{
std::cout << "proc " << Environment::rank()
<< " is not excluded and is locally rank " << wComm.rank() << " and loads mesh with "
<< wComm.globalSize() << " partitions\n";
// mesh = loadMesh(_mesh = new Mesh<Simplex<Dim>>(wComm), _worldcomm=wComm );
mesh = createGMSHMesh(_mesh = new Mesh<Simplex<Dim>>(wComm),
_worldcomm = wComm,
_desc = domain(_worldcomm = wComm, _name = "hypercube", _shape = "hypercube",
_xmin = 0.0, _xmax = 1.0,
_ymin = 0.0, _ymax = 1.0,
_zmin = 0.0, _zmax = 1.0));
std::cout << " - nelement(mesh)=" << nelements(elements(mesh)) << "\n";
std::cout << " - loading space\n";
auto Vh = Pch<2>( mesh );
auto u = Vh->element("u");
auto f = expr( soption(_name="functions.f"), "f", wComm );
auto g = expr( soption(_name="functions.g"), "g", wComm );
auto v = Vh->element( g, "g" );
auto l = form1( _test=Vh );
l = integrate(_range=elements(mesh),_expr=f*id(v));
auto a = form2( _trial=Vh, _test=Vh);
a = integrate(_range=elements(mesh),
_expr=gradt(u)*trans(grad(v)) );
if(boption("gmsh.domain.usenames")) {
if(nelements(markedfaces(mesh, "Dirichlet"), boption("use_global")) > 0)
a+=on(_range=markedfaces(mesh, "Dirichlet"), _rhs=l, _element=u, _expr=g);
}
else
a+=on(_range=boundaryfaces(mesh), _rhs=l, _element=u, _expr=g);
a.solve(_rhs=l,_solution=u);
auto e = exporter( _mesh=mesh );
//e->addRegions();
e->add( "u", u );
e->add( "g", v );
e->save();
}
else
{
std::cout << "proc " << Environment::rank()
<< " is excluded and does not load mesh";
int np = 0;
mpi::all_reduce(wComm, 1, np, std::plus<int>());
std::cout << "proc " << Environment::rank()
<< " - nb proc = " << np << "\n";
}
} // Partitioning::run
void run()
{
Environment::changeRepository( boost::format( "/testsuite/feeldiscr/%1%/P%2%/" )
% Environment::about().appName()
% OrderPoly );
/* change parameters below */
const int nDim = 2;
const int nOrderPoly = OrderPoly;
const int nOrderGeo = 1;
//------------------------------------------------------------------------------//
typedef Mesh< Simplex<nDim, 1,nDim> > mesh_type;
typedef Mesh< Simplex<nDim, 1,nDim> > mesh_bis_type;
double meshSize = option("hsize").as<double>();
double meshSizeBis = option("hsize-bis").as<double>();
// mesh
GeoTool::Node x1( 0,0 );
GeoTool::Node x2( 4,1 );
GeoTool::Rectangle Omega( meshSize,"Omega",x1,x2 );
Omega.setMarker( _type="line",_name="Entree",_marker4=true );
Omega.setMarker( _type="line",_name="Sortie",_marker2=true );
Omega.setMarker( _type="line",_name="Paroi",_marker1=true,_marker3=true );
Omega.setMarker( _type="surface",_name="Fluid",_markerAll=true );
auto mesh = Omega.createMesh(_mesh=new mesh_type,_name="omega_"+ mesh_type::shape_type::name() );
LOG(INFO) << "created mesh\n";
GeoTool::Rectangle OmegaBis( meshSizeBis,"Omega",x1,x2 );
OmegaBis.setMarker( _type="line",_name="Entree",_marker4=true );
OmegaBis.setMarker( _type="line",_name="Sortie",_marker2=true );
OmegaBis.setMarker( _type="line",_name="Paroi",_marker1=true,_marker3=true );
OmegaBis.setMarker( _type="surface",_name="Fluid",_markerAll=true );
auto meshBis = OmegaBis.createMesh(_mesh=new mesh_bis_type,_name="omegaBis_"+ mesh_type::shape_type::name() );
//auto meshBis= mesh->createP1mesh();
LOG(INFO) << "created meshBis\n";
typedef Lagrange<nOrderPoly,Scalar,Continuous,PointSetFekete> basis_type;
typedef FunctionSpace<mesh_type, bases<basis_type> > space_type;
auto Xh = space_type::New( mesh );
auto u = Xh->element();
auto v = Xh->element();
auto u2 = Xh->element();
LOG(INFO) << "created space and elements\n";
auto mybackend = backend();
//--------------------------------------------------------------//
auto A = mybackend->newMatrix( Xh, Xh );
auto F = mybackend->newVector( Xh );
auto pi = cst( M_PI );
auto u_exact = cos( pi*Px() )*sin( pi*Py() );
auto dudx = -pi*sin( pi*Px() )*sin( pi*Py() );
auto dudy = pi*cos( pi*Px() )*cos( pi*Py() );
auto grad_u_uexact = vec( dudx,dudy );
auto lap = -2*pi*pi*cos( pi*Px() )*sin( pi*Py() );
//auto lap = -pi*pi*cos(pi*Px())*sin(pi*Py())
// -pi*pi*cos(pi*Px())*sin(pi*Py());
LOG(INFO) << "created exact data and matrix/vector\n";
auto f = -lap;//cst(1.);
double gammabc=10;
// assemblage
form2( Xh, Xh, A, _init=true ) =
integrate( elements( mesh ), //_Q<15>(),
+ gradt( u )*trans( grad( v ) ) );
form2( Xh, Xh, A ) +=
integrate( boundaryfaces( mesh ),
- gradt( u )*N()*id( v )
+ gammabc*idt( u )*id( v )/hFace() );
form1( Xh, F, _init=true ) =
integrate( elements( mesh ), // _Q<10>(),
trans( f )*id( v ) );
form1( Xh, F ) +=
integrate( boundaryfaces( mesh ),
+ gammabc*u_exact*id( v )/hFace() );
LOG(INFO) << "A,F assembled\n";
//form2( Xh, Xh, A ) +=
// on( boundaryfaces(mesh) , u, F, u_exact );
// solve system
mybackend->solve( A,u,F );
LOG(INFO) << "A u = F solved\n";
//--------------------------------------------------------------//
auto a2 = form2( _test=Xh, _trial=Xh );
auto f2 = form1( _test=Xh );
LOG(INFO) << "created form2 a2 and form1 F2\n";
// assemblage
a2 = integrate( elements( meshBis ),
+ gradt( u2 )*trans( grad( v ) ),
_Q<10>() );
LOG(INFO) << "a2 grad.grad term\n";
a2 += integrate( boundaryfaces( meshBis ),
- gradt( u2 )*N()*id( v )
+ gammabc*idt( u2 )*id( v )/hFace(),
_Q<10>() );
LOG(INFO) << "a2 weak dirichlet terms\n";
f2 = integrate( elements( meshBis ),
trans( f )*id( v ),
_Q<10>() );
LOG(INFO) << "f2 source term\n";
f2 += integrate( boundaryfaces( meshBis ),
+ gammabc*u_exact*id( v )/hFace(),
_Q<10>() );
LOG(INFO) << "f2 dirichlet terms\n";
LOG(INFO) << "a2,f2 assembled\n";
//form2( Xh, Xh, A2 ) +=
// on( boundaryfaces(mesh) , u2, F2, u_exact );
#if 0
for ( size_type i = 0 ; i< F->size() ; ++i )
{
auto errOnF = std::abs( ( *F )( i )-( *F2 )( i ) );
if ( errOnF > 1e-8 )
std::cout << "\nerrOnF : " << errOnF;
}
std::cout << "\nFin errOnF !!!!\n";
#endif
// solve system
a2.solve( _rhs=f2, _solution=u2 );
auto diff = std::sqrt( integrate( elements( mesh ), ( idv( u )-idv( u2 ) )*( idv( u )-idv( u2 ) ) ).evaluate()( 0,0 ) );
#if 0
auto int1 = integrate( elements( mesh ), abs( idv( u ) ) ).evaluate()( 0,0 );
auto int2 = integrate( elements( mesh ), abs( idv( u2 ) ) ).evaluate()( 0,0 );
std::cout << "\nThe diff : " << diff
<< " int1 :" << int1
<< " int2 :" << int2
<< "\n";
#endif
#if USE_BOOST_TEST
BOOST_CHECK_SMALL( diff,1e-2 );
#endif
//--------------------------------------------------------------//
if ( option("exporter.export").as<bool>() )
{
// export
auto ex = exporter( _mesh=mesh );
ex->add( "u", u );
ex->add( "ubis", u2 );
ex->save();
}
}
void
NavierStokes::run()
{
this->init();
auto U = Xh->element( "(u,p)" );
auto V = Xh->element( "(u,q)" );
auto u = U.element<0>( "u" );
auto v = V.element<0>( "u" );
auto p = U.element<1>( "p" );
auto q = V.element<1>( "p" );
#if defined( FEELPP_USE_LM )
auto lambda = U.element<2>();
auto nu = V.element<2>();
#endif
//# endmarker4 #
LOG(INFO) << "[dof] number of dof: " << Xh->nDof() << "\n";
LOG(INFO) << "[dof] number of dof/proc: " << Xh->nLocalDof() << "\n";
LOG(INFO) << "[dof] number of dof(U): " << Xh->functionSpace<0>()->nDof() << "\n";
LOG(INFO) << "[dof] number of dof/proc(U): " << Xh->functionSpace<0>()->nLocalDof() << "\n";
LOG(INFO) << "[dof] number of dof(P): " << Xh->functionSpace<1>()->nDof() << "\n";
LOG(INFO) << "[dof] number of dof/proc(P): " << Xh->functionSpace<1>()->nLocalDof() << "\n";
LOG(INFO) << "Data Summary:\n";
LOG(INFO) << " hsize = " << meshSize << "\n";
LOG(INFO) << " export = " << this->vm().count( "export" ) << "\n";
LOG(INFO) << " mu = " << mu << "\n";
LOG(INFO) << " bccoeff = " << penalbc << "\n";
//# marker5 #
auto deft = gradt( u )+trans(gradt(u));
auto def = grad( v )+trans(grad(v));
//# endmarker5 #
//# marker6 #
// total stress tensor (trial)
auto SigmaNt = -idt( p )*N()+mu*deft*N();
// total stress tensor (test)
auto SigmaN = -id( p )*N()+mu*def*N();
//# endmarker6 #
auto F = M_backend->newVector( Xh );
auto D = M_backend->newMatrix( Xh, Xh );
// right hand side
auto ns_rhs = form1( _test=Xh, _vector=F );
LOG(INFO) << "[navier-stokes] vector local assembly done\n";
// construction of the BDF
auto bdfns=bdf(_space=Xh);
/*
* Construction of the left hand side
*/
auto navierstokes = form2( _test=Xh, _trial=Xh, _matrix=D );
mpi::timer chrono;
navierstokes += integrate( elements( mesh ), mu*inner( deft,def )+ trans(idt( u ))*id( v )*bdfns->polyDerivCoefficient( 0 ) );
LOG(INFO) << "mu*inner(deft,def)+(bdf(u),v): " << chrono.elapsed() << "\n";
chrono.restart();
navierstokes +=integrate( elements( mesh ), - div( v )*idt( p ) + divt( u )*id( q ) );
LOG(INFO) << "(u,p): " << chrono.elapsed() << "\n";
chrono.restart();
#if defined( FEELPP_USE_LM )
navierstokes +=integrate( elements( mesh ), id( q )*idt( lambda ) + idt( p )*id( nu ) );
LOG(INFO) << "(lambda,p): " << chrono.elapsed() << "\n";
chrono.restart();
#endif
std::for_each( inflow_conditions.begin(), inflow_conditions.end(),
[&]( BoundaryCondition const& bc )
{
// right hand side
ns_rhs += integrate( markedfaces( mesh, bc.marker() ), inner( idf(&bc,BoundaryCondition::operator()),-SigmaN+penalbc*id( v )/hFace() ) );
navierstokes +=integrate( boundaryfaces( mesh ), -inner( SigmaNt,id( v ) ) );
navierstokes +=integrate( boundaryfaces( mesh ), -inner( SigmaN,idt( u ) ) );
navierstokes +=integrate( boundaryfaces( mesh ), +penalbc*inner( idt( u ),id( v ) )/hFace() );
});
std::for_each( wall_conditions.begin(), wall_conditions.end(),
[&]( BoundaryCondition const& bc )
{
navierstokes +=integrate( boundaryfaces( mesh ), -inner( SigmaNt,id( v ) ) );
navierstokes +=integrate( boundaryfaces( mesh ), -inner( SigmaN,idt( u ) ) );
navierstokes +=integrate( boundaryfaces( mesh ), +penalbc*inner( idt( u ),id( v ) )/hFace() );
});
std::for_each( outflow_conditions.begin(), outflow_conditions.end(),
[&]( BoundaryCondition const& bc )
{
ns_rhs += integrate( markedfaces( mesh, bc.marker() ), inner( idf(&bc,BoundaryCondition::operator()),N() ) );
});
LOG(INFO) << "bc: " << chrono.elapsed() << "\n";
chrono.restart();
u = vf::project( _space=Xh->functionSpace<0>(), _expr=cst(0.) );
p = vf::project( _space=Xh->functionSpace<1>(), _expr=cst(0.) );
M_bdf->initialize( U );
for( bdfns->start(); bdfns->isFinished(); bdfns->next() )
{
// add time dependent terms
auto bdf_poly = bdfns->polyDeriv();
form1( _test=Xh, _vector=Ft ) =
integrate( _range=elements(mesh), _expr=trans(idv( bdf_poly ))*id( v ) );
// add convective terms
form1( _test=Xh, _vector=Ft ) +=
integrate( _range=elements(mesh), _expr=trans(gradv(u)*idv( u ))*id(v) );
// add contrib from time independent terms
Ft->add( 1., F );
// add time stepping terms from BDF to right hand side
backend()->solve( _matrix=D, _solution=U, _rhs=Ft );
this->exportResults( bdfns->time(), U );
}
} // NavierNavierstokes::run
PreconditionerBlockMS<space_type>::PreconditionerBlockMS(space_ptrtype Xh, // (u)x(p)
ModelProperties model, // model
std::string const& p, // prefix
sparse_matrix_ptrtype AA ) // The matrix
:
M_backend(backend()), // the backend associated to the PC
M_Xh( Xh ),
M_Vh( Xh->template functionSpace<0>() ), // Potential
M_Qh( Xh->template functionSpace<1>() ), // Lagrange
M_Vh_indices( M_Vh->nLocalDofWithGhost() ),
M_Qh_indices( M_Qh->nLocalDofWithGhost() ),
M_uin( M_backend->newVector( M_Vh ) ),
M_uout( M_backend->newVector( M_Vh ) ),
M_pin( M_backend->newVector( M_Qh ) ),
M_pout( M_backend->newVector( M_Qh ) ),
U( M_Xh, "U" ),
M_mass(M_backend->newMatrix(M_Vh,M_Vh)),
M_L(M_backend->newMatrix(M_Qh,M_Qh)),
M_er( 1. ),
M_model( model ),
M_prefix( p ),
M_prefix_11( p+".11" ),
M_prefix_22( p+".22" ),
u(M_Vh, "u"),
ozz(M_Vh, "ozz"),
zoz(M_Vh, "zoz"),
zzo(M_Vh, "zzo"),
M_ozz(M_backend->newVector( M_Vh )),
M_zoz(M_backend->newVector( M_Vh )),
M_zzo(M_backend->newVector( M_Vh )),
X(M_Qh, "X"),
Y(M_Qh, "Y"),
Z(M_Qh, "Z"),
M_X(M_backend->newVector( M_Qh )),
M_Y(M_backend->newVector( M_Qh )),
M_Z(M_backend->newVector( M_Qh )),
phi(M_Qh, "phi")
{
tic();
LOG(INFO) << "[PreconditionerBlockMS] setup starts";
this->setMatrix( AA );
this->setName(M_prefix);
/* Indices are need to extract sub matrix */
std::iota( M_Vh_indices.begin(), M_Vh_indices.end(), 0 );
std::iota( M_Qh_indices.begin(), M_Qh_indices.end(), M_Vh->nLocalDofWithGhost() );
M_11 = AA->createSubMatrix( M_Vh_indices, M_Vh_indices, true, true);
/* Boundary conditions */
BoundaryConditions M_bc = M_model.boundaryConditions();
map_vector_field<FEELPP_DIM,1,2> m_dirichlet_u { M_bc.getVectorFields<FEELPP_DIM> ( "u", "Dirichlet" ) };
map_scalar_field<2> m_dirichlet_p { M_bc.getScalarFields<2> ( "phi", "Dirichlet" ) };
/* Compute the mass matrix (needed in first block, constant) */
auto f2A = form2(_test=M_Vh, _trial=M_Vh, _matrix=M_mass);
auto f1A = form1(_test=M_Vh);
f2A = integrate(_range=elements(M_Vh->mesh()), _expr=inner(idt(u),id(u))); // M
for(auto const & it : m_dirichlet_u )
{
LOG(INFO) << "Applying " << it.second << " on " << it.first << " for "<<M_prefix_11<<"\n";
f2A += on(_range=markedfaces(M_Vh->mesh(),it.first), _expr=it.second,_rhs=f1A, _element=u, _type="elimination_symmetric");
}
/* Compute the L (= er * grad grad) matrix (the second block) */
auto f2L = form2(_test=M_Qh,_trial=M_Qh, _matrix=M_L);
for(auto it : M_model.materials() )
{
f2L += integrate(_range=markedelements(M_Qh->mesh(),marker(it)), _expr=M_er*inner(gradt(phi), grad(phi)));
}
auto f1LQ = form1(_test=M_Qh);
for(auto const & it : m_dirichlet_p)
{
LOG(INFO) << "Applying " << it.second << " on " << it.first << " for "<<M_prefix_22<<"\n";
f2L += on(_range=markedfaces(M_Qh->mesh(),it.first),_element=phi, _expr=it.second, _rhs=f1LQ, _type="elimination_symmetric");
}
if(soption(_name="pc-type", _prefix=M_prefix_11) == "ams")
#if FEELPP_DIM == 3
{
M_grad = Grad( _domainSpace=M_Qh, _imageSpace=M_Vh);
// This preconditioner is linked to that backend : the backend will
// automatically use the preconditioner.
auto prec = preconditioner(_pc=pcTypeConvertStrToEnum(soption(M_prefix_11+".pc-type")),
_backend=backend(_name=M_prefix_11),
_prefix=M_prefix_11,
_matrix=M_11
);
prec->setMatrix(M_11);
prec->attachAuxiliarySparseMatrix("G",M_grad.matPtr());
if(boption(M_prefix_11+".useEdge"))
{
LOG(INFO) << "[ AMS ] : using SetConstantEdgeVector \n";
ozz.on(_range=elements(M_Vh->mesh()),_expr=vec(cst(1),cst(0),cst(0)));
zoz.on(_range=elements(M_Vh->mesh()),_expr=vec(cst(0),cst(1),cst(0)));
zzo.on(_range=elements(M_Vh->mesh()),_expr=vec(cst(0),cst(0),cst(1)));
*M_ozz = ozz; M_ozz->close();
*M_zoz = zoz; M_zoz->close();
*M_zzo = zzo; M_zzo->close();
prec->attachAuxiliaryVector("Px",M_ozz);
prec->attachAuxiliaryVector("Py",M_zoz);
prec->attachAuxiliaryVector("Pz",M_zzo);
}
else
{
LOG(INFO) << "[ AMS ] : using SetCoordinates \n";
X.on(_range=elements(M_Vh->mesh()),_expr=Px());
Y.on(_range=elements(M_Vh->mesh()),_expr=Py());
Z.on(_range=elements(M_Vh->mesh()),_expr=Pz());
*M_X = X; M_X->close();
*M_Y = Y; M_Y->close();
*M_Z = Z; M_Z->close();
prec->attachAuxiliaryVector("X",M_X);
prec->attachAuxiliaryVector("Y",M_Y);
prec->attachAuxiliaryVector("Z",M_Z);
}
}
#else
std::cerr << "ams preconditioner is not interfaced in two dimensions\n";
#endif
toc( "[PreconditionerBlockMS] setup done ", FLAGS_v > 0 );
}
PreconditionerBlockMS<space_type>::PreconditionerBlockMS(space_ptrtype Xh, // (u)x(p)
ModelProperties model, // model
std::string const& p, // prefix
sparse_matrix_ptrtype AA, value_type relax ) // The matrix
:
M_backend(backend()), // the backend associated to the PC
M_Xh( Xh ),
M_Vh( Xh->template functionSpace<0>() ), // Potential
M_Qh( Xh->template functionSpace<1>() ), // Lagrange
M_Vh_indices( M_Vh->nLocalDofWithGhost() ),
M_Qh_indices( M_Qh->nLocalDofWithGhost() ),
M_uin( M_backend->newVector( M_Vh ) ),
M_uout( M_backend->newVector( M_Vh ) ),
M_pin( M_backend->newVector( M_Qh ) ),
M_pout( M_backend->newVector( M_Qh ) ),
U( M_Xh, "U" ),
M_mass(M_backend->newMatrix(M_Vh,M_Vh)),
M_L(M_backend->newMatrix(M_Qh,M_Qh)),
M_er( 1. ),
M_model( model ),
M_prefix( p ),
M_prefix_11( p+".11" ),
M_prefix_22( p+".22" ),
u(M_Vh, "u"),
ozz(M_Vh, "ozz"),
zoz(M_Vh, "zoz"),
zzo(M_Vh, "zzo"),
M_ozz(M_backend->newVector( M_Vh )),
M_zoz(M_backend->newVector( M_Vh )),
M_zzo(M_backend->newVector( M_Vh )),
X(M_Qh, "X"),
Y(M_Qh, "Y"),
Z(M_Qh, "Z"),
M_X(M_backend->newVector( M_Qh )),
M_Y(M_backend->newVector( M_Qh )),
M_Z(M_backend->newVector( M_Qh )),
phi(M_Qh, "phi"),
M_relax(relax)
{
tic();
LOG(INFO) << "[PreconditionerBlockMS] setup starts";
this->setMatrix( AA );
this->setName(M_prefix);
/* Indices are need to extract sub matrix */
std::iota( M_Vh_indices.begin(), M_Vh_indices.end(), 0 );
std::iota( M_Qh_indices.begin(), M_Qh_indices.end(), M_Vh->nLocalDofWithGhost() );
M_11 = AA->createSubMatrix( M_Vh_indices, M_Vh_indices, true, true);
/* Boundary conditions */
BoundaryConditions M_bc = M_model.boundaryConditions();
map_vector_field<FEELPP_DIM,1,2> m_dirichlet_u { M_bc.getVectorFields<FEELPP_DIM> ( "u", "Dirichlet" ) };
map_scalar_field<2> m_dirichlet_p { M_bc.getScalarFields<2> ( "phi", "Dirichlet" ) };
/* Compute the mass matrix (needed in first block, constant) */
auto f2A = form2(_test=M_Vh, _trial=M_Vh, _matrix=M_mass);
auto f1A = form1(_test=M_Vh);
f2A = integrate(_range=elements(M_Vh->mesh()), _expr=inner(idt(u),id(u))); // M
for(auto const & it : m_dirichlet_u )
{
LOG(INFO) << "Applying " << it.second << " on " << it.first << " for "<<M_prefix_11<<"\n";
f2A += on(_range=markedfaces(M_Vh->mesh(),it.first), _expr=it.second,_rhs=f1A, _element=u, _type="elimination_symmetric");
}
/* Compute the L (= er * grad grad) matrix (the second block) */
auto f2L = form2(_test=M_Qh,_trial=M_Qh, _matrix=M_L);
#if 0
//If you want to manage the relative permittivity materials per material,
//here is the entry to deal with.
for(auto it : M_model.materials() )
{
f2L += integrate(_range=markedelements(M_Qh->mesh(),marker(it)), _expr=M_er*inner(gradt(phi), grad(phi)));
}
#else
f2L += integrate(_range=elements(M_Qh->mesh()), _expr=M_er*inner(gradt(phi), grad(phi)));
#endif
auto f1LQ = form1(_test=M_Qh);
for(auto const & it : m_dirichlet_p)
{
LOG(INFO) << "Applying " << it.second << " on " << it.first << " for "<<M_prefix_22<<"\n";
f2L += on(_range=markedfaces(M_Qh->mesh(),it.first),_element=phi, _expr=it.second, _rhs=f1LQ, _type="elimination_symmetric");
}
toc( "[PreconditionerBlockMS] setup done ", FLAGS_v > 0 );
}
void TestQgsAttributeForm::testFieldConstraint()
{
// make a temporary vector layer
QString def = QStringLiteral( "Point?field=col0:integer" );
QgsVectorLayer* layer = new QgsVectorLayer( def, QStringLiteral( "test" ), QStringLiteral( "memory" ) );
layer->setEditorWidgetSetup( 0, QgsEditorWidgetSetup( QStringLiteral( "TextEdit" ), QVariantMap() ) );
// add a feature to the vector layer
QgsFeature ft( layer->dataProvider()->fields(), 1 );
ft.setAttribute( QStringLiteral( "col0" ), 0 );
// build a form for this feature
QgsAttributeForm form( layer );
form.setFeature( ft );
// testing stuff
QString validLabel = QStringLiteral( "col0<font color=\"green\">✔</font>" );
QString invalidLabel = QStringLiteral( "col0<font color=\"red\">✘</font>" );
QString warningLabel = QStringLiteral( "col0<font color=\"orange\">✘</font>" );
// set constraint
layer->setConstraintExpression( 0, QString() );
// get wrapper
QgsEditorWidgetWrapper *ww;
ww = qobject_cast<QgsEditorWidgetWrapper*>( form.mWidgets[0] );
// no constraint so we expect a label with just the field name
QLabel *label = form.mBuddyMap.value( ww->widget() );
QCOMPARE( label->text(), QString( "col0" ) );
// set a not null constraint
layer->setConstraintExpression( 0, QStringLiteral( "col0 is not null" ) );
// build a form for this feature
QgsAttributeForm form2( layer );
form2.setFeature( ft );
QSignalSpy spy( &form2, SIGNAL( attributeChanged( QString, QVariant ) ) );
ww = qobject_cast<QgsEditorWidgetWrapper*>( form2.mWidgets[0] );
label = form2.mBuddyMap.value( ww->widget() );
// set value to 1
ww->setValue( 1 );
QCOMPARE( spy.count(), 2 );
QCOMPARE( label->text(), validLabel );
// set value to null
spy.clear();
ww->setValue( QVariant() );
QCOMPARE( spy.count(), 2 );
QCOMPARE( label->text(), invalidLabel );
// set value to 1
spy.clear();
ww->setValue( 1 );
QCOMPARE( spy.count(), 2 );
QCOMPARE( label->text(), validLabel );
// set a soft constraint
layer->setConstraintExpression( 0, QStringLiteral( "col0 is not null" ) );
layer->setFieldConstraint( 0, QgsFieldConstraints::ConstraintExpression, QgsFieldConstraints::ConstraintStrengthSoft );
// build a form for this feature
QgsAttributeForm form3( layer );
form3.setFeature( ft );
ww = qobject_cast<QgsEditorWidgetWrapper*>( form3.mWidgets[0] );
label = form3.mBuddyMap.value( ww->widget() );
// set value to 1
ww->setValue( 1 );
QCOMPARE( label->text(), validLabel );
// set value to null
ww->setValue( QVariant() );
QCOMPARE( label->text(), warningLabel );
// set value to 1
ww->setValue( 1 );
QCOMPARE( label->text(), validLabel );
}
void TestQgsAttributeForm::testOKButtonStatus()
{
// make a temporary vector layer
QString def = QStringLiteral( "Point?field=col0:integer" );
QgsVectorLayer* layer = new QgsVectorLayer( def, QStringLiteral( "test" ), QStringLiteral( "memory" ) );
// add a feature to the vector layer
QgsFeature ft( layer->dataProvider()->fields(), 1 );
ft.setAttribute( QStringLiteral( "col0" ), 0 );
ft.setValid( true );
// set constraint
layer->setConstraintExpression( 0, QString() );
// build a form for this feature
QgsAttributeForm form( layer );
form.setFeature( ft );
QPushButton *okButton = form.mButtonBox->button( QDialogButtonBox::Ok );
// get wrapper
QgsEditorWidgetWrapper *ww;
ww = qobject_cast<QgsEditorWidgetWrapper*>( form.mWidgets[0] );
// testing stuff
QSignalSpy spy1( &form, SIGNAL( attributeChanged( QString, QVariant ) ) );
QSignalSpy spy2( layer, SIGNAL( editingStarted() ) );
QSignalSpy spy3( layer, SIGNAL( editingStopped() ) );
// no constraint but layer not editable : OK button disabled
QCOMPARE( layer->isEditable(), false );
QCOMPARE( okButton->isEnabled(), false );
// no constraint and editable layer : OK button enabled
layer->startEditing();
QCOMPARE( spy2.count(), 1 );
QCOMPARE( layer->isEditable(), true );
QCOMPARE( okButton->isEnabled(), true );
// invalid constraint and editable layer : OK button disabled
layer->setConstraintExpression( 0, QStringLiteral( "col0 = 0" ) );
QgsAttributeForm form2( layer );
form2.setFeature( ft );
ww = qobject_cast<QgsEditorWidgetWrapper*>( form2.mWidgets[0] );
okButton = form2.mButtonBox->button( QDialogButtonBox::Ok );
ww->setValue( 1 );
QCOMPARE( okButton->isEnabled(), false );
// valid constraint and editable layer : OK button enabled
layer->setConstraintExpression( 0, QStringLiteral( "col0 = 2" ) );
QgsAttributeForm form3( layer );
form3.setFeature( ft );
ww = qobject_cast<QgsEditorWidgetWrapper*>( form3.mWidgets[0] );
okButton = form3.mButtonBox->button( QDialogButtonBox::Ok );
ww->setValue( 2 );
QCOMPARE( okButton->isEnabled(), true );
// valid constraint and not editable layer : OK button disabled
layer->rollBack();
QCOMPARE( spy3.count(), 1 );
QCOMPARE( layer->isEditable(), false );
QCOMPARE( okButton->isEnabled(), false );
// set soft constraint
layer->setFieldConstraint( 0, QgsFieldConstraints::ConstraintExpression, QgsFieldConstraints::ConstraintStrengthSoft );
QgsAttributeForm form4( layer );
form4.setFeature( ft );
ww = qobject_cast<QgsEditorWidgetWrapper*>( form4.mWidgets[0] );
okButton = form4.mButtonBox->button( QDialogButtonBox::Ok );
ww->setValue( 1 );
QVERIFY( !okButton->isEnabled() );
layer->startEditing();
// just a soft constraint, so OK should be enabled
QVERIFY( okButton->isEnabled() );
layer->rollBack();
QVERIFY( !okButton->isEnabled() );
}
void TestQgsAttributeForm::testFieldMultiConstraints()
{
// make a temporary layer to check through
QString def = QStringLiteral( "Point?field=col0:integer&field=col1:integer&field=col2:integer&field=col3:integer" );
QgsVectorLayer* layer = new QgsVectorLayer( def, QStringLiteral( "test" ), QStringLiteral( "memory" ) );
// add features to the vector layer
QgsFeature ft( layer->dataProvider()->fields(), 1 );
ft.setAttribute( QStringLiteral( "col0" ), 0 );
ft.setAttribute( QStringLiteral( "col1" ), 1 );
ft.setAttribute( QStringLiteral( "col2" ), 2 );
ft.setAttribute( QStringLiteral( "col3" ), 3 );
// set constraints for each field
layer->setConstraintExpression( 0, QString() );
layer->setConstraintExpression( 1, QString() );
layer->setConstraintExpression( 2, QString() );
layer->setConstraintExpression( 3, QString() );
// build a form for this feature
QgsAttributeForm form( layer );
form.setFeature( ft );
// testing stuff
QSignalSpy spy( &form, SIGNAL( attributeChanged( QString, QVariant ) ) );
QString val = QStringLiteral( "<font color=\"green\">✔</font>" );
QString inv = QStringLiteral( "<font color=\"red\">✘</font>" );
// get wrappers for each widget
QgsEditorWidgetWrapper *ww0, *ww1, *ww2, *ww3;
ww0 = qobject_cast<QgsEditorWidgetWrapper*>( form.mWidgets[0] );
ww1 = qobject_cast<QgsEditorWidgetWrapper*>( form.mWidgets[1] );
ww2 = qobject_cast<QgsEditorWidgetWrapper*>( form.mWidgets[2] );
ww3 = qobject_cast<QgsEditorWidgetWrapper*>( form.mWidgets[3] );
// get label for wrappers
QLabel *label0 = form.mBuddyMap.value( ww0->widget() );
QLabel *label1 = form.mBuddyMap.value( ww1->widget() );
QLabel *label2 = form.mBuddyMap.value( ww2->widget() );
QLabel *label3 = form.mBuddyMap.value( ww3->widget() );
// no constraint so we expect a label with just the field name
QCOMPARE( label0->text(), QString( "col0" ) );
QCOMPARE( label1->text(), QString( "col1" ) );
QCOMPARE( label2->text(), QString( "col2" ) );
QCOMPARE( label3->text(), QString( "col3" ) );
// update constraint
layer->setConstraintExpression( 0, QStringLiteral( "col0 < (col1 * col2)" ) );
layer->setConstraintExpression( 1, QString() );
layer->setConstraintExpression( 2, QString() );
layer->setConstraintExpression( 3, QStringLiteral( "col0 = 2" ) );
QgsAttributeForm form2( layer );
form2.setFeature( ft );
ww0 = qobject_cast<QgsEditorWidgetWrapper*>( form2.mWidgets[0] );
ww1 = qobject_cast<QgsEditorWidgetWrapper*>( form2.mWidgets[1] );
ww2 = qobject_cast<QgsEditorWidgetWrapper*>( form2.mWidgets[2] );
ww3 = qobject_cast<QgsEditorWidgetWrapper*>( form2.mWidgets[3] );
label0 = form2.mBuddyMap.value( ww0->widget() );
label1 = form2.mBuddyMap.value( ww1->widget() );
label2 = form2.mBuddyMap.value( ww2->widget() );
label3 = form2.mBuddyMap.value( ww3->widget() );
QSignalSpy spy2( &form2, SIGNAL( attributeChanged( QString, QVariant ) ) );
// change value
ww0->setValue( 2 ); // update col0
QCOMPARE( spy2.count(), 2 );
QCOMPARE( label0->text(), QString( "col0" + inv ) ); // 2 < ( 1 + 2 )
QCOMPARE( label1->text(), QString( "col1" ) );
QCOMPARE( label2->text(), QString( "col2" ) );
QCOMPARE( label3->text(), QString( "col3" + val ) ); // 2 = 2
// change value
spy2.clear();
ww0->setValue( 1 ); // update col0
QCOMPARE( spy2.count(), 2 );
QCOMPARE( label0->text(), QString( "col0" + val ) ); // 1 < ( 1 + 2 )
QCOMPARE( label1->text(), QString( "col1" ) );
QCOMPARE( label2->text(), QString( "col2" ) );
QCOMPARE( label3->text(), QString( "col3" + inv ) ); // 2 = 1
}
void
ThermalBlockMinimalVersion::initModel()
{
gamma_dir=option(_name="gamma_dir").template as<double>();
this->setFunctionSpaces( Pch<1>( loadMesh( _mesh=new Mesh<Simplex<2>> ) ) );
auto mesh = Xh->mesh();
if( Environment::worldComm().isMasterRank() )
{
std::cout << "Number of local dof " << Xh->nLocalDof() << "\n";
std::cout << "Number of dof " << Xh->nDof() << "\n";
}
auto mu_min = Dmu->element();
auto mu_max = Dmu->element();
mu_min << 0.1 , 0.1 , 0.1 , 0.1 , 0.1 , 0.1 , 0.1 , 0.1 ;
mu_max << 10 , 10 , 10 , 10 , 10 , 10 , 10 , 10 ;
Dmu->setMin( mu_min );
Dmu->setMax( mu_max );
auto u = Xh->element();
auto v = Xh->element();
auto M = backend()->newMatrix( Xh , Xh );
double mu_min_coeff=0.1;
// on boundary north we have u=0 so term from weak dirichlet condition
// vanish in the right hand side
//rhs
auto f0 = form1( _test=Xh );
f0 = integrate( _range=markedfaces( mesh,"south_domain-1" ), _expr= id( v ) )
+ integrate( _range=markedfaces( mesh,"south_domain-2" ), _expr= id( v ) )
+ integrate( _range=markedfaces( mesh,"south_domain-3" ), _expr= id( v ) );
this->addRhs( { f0, "1" } );
//lhs
auto a0 = form2( _trial=Xh, _test=Xh);
a0 = integrate( markedelements( mesh, "domain-1" ), gradt( u )*trans( grad( v ) ) );
this->addLhs( { a0 , "1" } );
auto a1 = form2( _trial=Xh, _test=Xh);
a1 = integrate( markedelements( mesh, "domain-2" ), gradt( u )*trans( grad( v ) ) );
this->addLhs( { a1 , "mu0" } );
auto a2 = form2( _trial=Xh, _test=Xh);
a2 = integrate( markedelements( mesh, "domain-3" ), gradt( u )*trans( grad( v ) ) );
this->addLhs( { a2 , "mu1" } );
auto a3 = form2( _trial=Xh, _test=Xh);
a3 = integrate( markedelements( mesh, "domain-4" ), gradt( u )*trans( grad( v ) ) );
this->addLhs( { a3 , "mu2" } );
auto a4 = form2( _trial=Xh, _test=Xh);
a4 = integrate( markedelements( mesh, "domain-5" ), gradt( u )*trans( grad( v ) ) );
this->addLhs( { a4 , "mu3" } );
auto a5 = form2( _trial=Xh, _test=Xh);
a5 = integrate( markedelements( mesh, "domain-6" ), gradt( u )*trans( grad( v ) ) );
this->addLhs( { a5 , "mu4" } );
auto a6 = form2( _trial=Xh, _test=Xh);
a6 = integrate( markedelements( mesh, "domain-7" ), gradt( u )*trans( grad( v ) ) )
+integrate( markedfaces( mesh, "north_domain-7" ),
-gradt( u )*vf::N()*id( v )
-grad( u )*vf::N()*idt( v )
);
this->addLhs( { a6 , "mu5" } );
auto a7 = form2( _trial=Xh, _test=Xh);
a7 = integrate( markedelements( mesh, "domain-8" ), gradt( u )*trans( grad( v ) ) )
+integrate( markedfaces( mesh, "north_domain-8" ),
-gradt( u )*vf::N()*id( v )
-grad( u )*vf::N()*idt( v )
);
this->addLhs( { a7 , "mu6" } );
auto a8 = form2( _trial=Xh, _test=Xh);
a8 = integrate( markedelements( mesh, "domain-9" ), gradt( u )*trans( grad( v ) ) )
+integrate( markedfaces( mesh, "north_domain-9" ),
-gradt( u )*vf::N()*id( v )
-grad( u )*vf::N()*idt( v )
);
this->addLhs( { a8 , "mu7" } );
auto a9 = form2( _trial=Xh, _test=Xh);
a9 = integrate( markedfaces( mesh, "north_domain-7" ),gamma_dir*idt( u )*id( v )/h() )
+integrate( markedfaces( mesh, "north_domain-8" ),gamma_dir*idt( u )*id( v )/h() )
+integrate( markedfaces( mesh, "north_domain-9" ),gamma_dir*idt( u )*id( v )/h() );
this->addLhs( { a9 , "1" } );
form2( Xh, Xh, M ) = integrate( markedelements( mesh, "domain-1" ), gradt( u )*trans( grad( v ) ) );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-2" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-3" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-4" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-5" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-6" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-7" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-8" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedelements( mesh, "domain-9" ), gradt( u )*trans( grad( v ) ) * mu_min_coeff );
form2( Xh, Xh, M ) += integrate( markedfaces( mesh, "north_domain-7" ),
-gradt( u )*vf::N()*id( v ) * mu_min_coeff
-grad( u )*vf::N()*idt( v ) * mu_min_coeff
);
form2( Xh, Xh, M ) += integrate( markedfaces( mesh, "north_domain-8" ),
-gradt( u )*vf::N()*id( v ) * mu_min_coeff
-grad( u )*vf::N()*idt( v ) * mu_min_coeff
);
form2( Xh, Xh, M ) += integrate( markedfaces( mesh, "north_domain-9" ),
-gradt( u )*vf::N()*id( v ) * mu_min_coeff
-grad( u )*vf::N()*idt( v ) * mu_min_coeff
);
form2( Xh, Xh, M ) += integrate( markedfaces( mesh, "north_domain-7" ),gamma_dir*idt( u )*id( v )/h() );
form2( Xh, Xh, M ) += integrate( markedfaces( mesh, "north_domain-8" ),gamma_dir*idt( u )*id( v )/h() );
form2( Xh, Xh, M ) += integrate( markedfaces( mesh, "north_domain-9" ),gamma_dir*idt( u )*id( v )/h() );
this->addEnergyMatrix( M );
}//initModel()
// <int Order_s, int Order_p, int Order_t>
void Convection ::initLinearOperator2( sparse_matrix_ptrtype& L )
{
boost::timer ti;
LOG(INFO) << "[initLinearOperator2] start\n";
mesh_ptrtype mesh = Xh->mesh();
element_type U( Xh, "u" );
element_type Un( Xh, "un" );
element_type V( Xh, "v" );
element_0_type u = U. element<0>(); // fonction vitesse
element_0_type un = Un. element<0>(); // fonction vitesse
element_0_type v = V. element<0>(); // fonction test vitesse
element_1_type p = U. element<1>(); // fonction pression
element_1_type pn = Un. element<1>(); // fonction pression
element_1_type q = V. element<1>(); // fonction test pression
element_2_type t = U. element<2>(); // fonction temperature
element_2_type tn = Un. element<2>(); // fonction temperature
element_2_type s = V. element<2>(); // fonction test temperature
#if defined( FEELPP_USE_LM )
element_3_type xi = U. element<3>(); // fonction multipliers
element_3_type eta = V. element<3>(); // fonction test multipliers
#endif
double gr= M_current_Grashofs;
double sqgr( 1/math::sqrt( gr ) );
double pr = M_current_Prandtl;
double sqgrpr( 1/( pr*math::sqrt( gr ) ) );
double gamma( this->vm()["penalbc"]. as<double>() );
double k=this->vm()["k"]. as<double>();
double nu=this->vm()["nu"]. as<double>();
double rho=this->vm()["rho"]. as<double>();
//double dt=this->vm()["dt"]. as<double>();
int adim=this->vm()["adim"]. as<int>();
int weakdir=this->vm()["weakdir"]. as<int>();
//choix de la valeur des paramètres dimensionnés ou adimensionnés
double a=0.0,b=0.0,c=0.0;
double pC=1;
if ( adim == 0 ) pC = this->vm()["pC"]. as<double>();
if ( adim==1 )
{
a=1;
b=sqgr;
c=sqgrpr;
}
else
{
a=rho;
b=nu;
c=k;
}
double expansion = 1;
if ( adim == 0 ) expansion=3.7e-3;
auto bf = form2( _test=Xh, _trial=Xh, _matrix=L );
// Temperature
#if CONVECTION_DIM==2
// buyoancy forces c(theta,v)
bf +=integrate( _range=elements( mesh ),
_expr=-expansion*idt( t )*( trans( vec( constant( 0. ),constant( 1.0 ) ) )*id( v ) ) );
#else
bf +=integrate( _range=elements( mesh ),
_expr=-expansion*idt( t )*( trans( vec( cst(0.), constant( 0. ),constant( 1.0 ) ) )*id( v ) ) );
#endif
LOG(INFO) << "[initLinearOperator] temperature Force terms done\n";
// heat conduction/diffusion: e(beta1,theta,chi)+f(theta,chi)
bf += integrate( _range=elements( mesh ),
_expr=cst( c )*gradt( t )*trans( grad( s ) ) );
LOG(INFO) << "[initLinearOperator] Temperature Diffusion terms done\n";
if ( weakdir == 1 )
{
// weak Dirichlet on temperature (T=0|left wall)
bf += integrate ( markedfaces( mesh, "Tfixed" ),
- gradt( t )*N()*id( s )*cst_ref( sqgrpr ) );
bf += integrate ( markedfaces( mesh, "Tfixed" ),
- grad( s )*N()*idt( t )*cst_ref( sqgrpr ) );
bf += integrate ( markedfaces( mesh, "Tfixed" ),
gamma*idt( t )*id( s )/hFace() );
}
LOG(INFO) << "[initLinearOperator2] done in " << ti.elapsed() << "s\n";
}
void
Beam<nDim,nOrder>::run()
{
this->changeRepository( boost::format( "doc/manual/solid/%1%/%2%/P%3%/h_%4%/" )
% this->about().appName()
% entity_type::name()
% nOrder
% meshSize );
/*
* First we create the mesh
*/
mesh_ptrtype mesh = createGMSHMesh( _mesh=new mesh_type,
_update=MESH_UPDATE_EDGES|MESH_UPDATE_FACES|MESH_CHECK,
_desc=domain( _name=( boost::format( "beam-%1%" ) % nDim ).str() ,
_shape="hypercube",
_xmin=0., _xmax=0.351,
_ymin=0., _ymax=0.02,
_zmin=0., _zmax=0.02,
_h=meshSize ) );
// add marker clamped to the mesh
mesh->addMarkerName( "clamped",( nDim==2 )?1:19, (nDim==2)?1:2);
mesh->addMarkerName( "tip",( nDim==2)?3:27, (nDim==2)?1:2);
/*
* The function space and some associate elements are then defined
*/
timers["init"].first.restart();
space_ptrtype Xh = space_type::New( mesh );
Xh->printInfo();
element_type u( Xh, "u" );
element_type v( Xh, "v" );
timers["init"].second = timers["init"].first.elapsed();
/*
* Data associated with the simulation
*/
auto E = doption(_name="E")*pascal;
const double nu = doption(_name="nu");
auto mu = E/( 2*( 1+nu ) );
auto lambda = E*nu/( ( 1+nu )*( 1-2*nu ) );
auto density = 1e3;
auto gravity = -2*newton/pow<Dim>(meter);//-density*0.05;
LOG(INFO) << "lambda = " << lambda << "\n"
<< "mu = " << mu << "\n"
<< "gravity= " << gravity << "\n";
/*
* Construction of the right hand side
*
* \f$ f = \int_\Omega g * v \f$ where \f$ g \f$ is a vector
* directed in the \f$ y \f$ direction.
*/
auto F = backend()->newVector( Xh );
F->zero();
timers["assembly"].first.restart();
if ( Dim == 3 )
form1( _test=Xh, _vector=F ) = integrate( elements( mesh ), trans( gravity.value()*oneZ() )*id( v ) );
else
form1( _test=Xh, _vector=F ) = integrate( elements( mesh ), trans( gravity.value()*oneY() )*id( v ) );
timers["assembly"].second = timers["assembly"].first.elapsed();
/*
* Construction of the left hand side
*/
auto D = backend()->newMatrix( Xh, Xh );
timers["assembly"].first.restart();
auto deft = sym(gradt(u));
auto def = sym(grad(u));
auto a = form2( _test=Xh, _trial=Xh, _matrix=D );
a = integrate( elements( mesh ),
lambda.value()*divt( u )*div( v ) +
2.*mu.value()*trace( trans( deft )*def ) );
if ( M_bctype == 1 ) // weak Dirichlet bc
{
auto Id = eye<nDim>();
a += integrate( markedfaces( mesh, "clamped" ),
- trans( ( 2.*mu.value()*deft+lambda.value()*trace( deft )*Id )*N() )*id( v )
- trans( ( 2.*mu.value()*def+lambda.value()*trace( def )*Id )*N() )*idt( u )
+ bcCoeff*std::max(2.*mu.value(),lambda.value())*trans( idt( u ) )*id( v )/hFace() );
}
if ( M_bctype == 0 )
a += on( markedfaces( mesh, "clamped" ), u, F, zero<nDim,1>() );
timers["assembly"].second += timers["assembly"].first.elapsed();
backend(_rebuild=true)->solve( _matrix=D, _solution=u, _rhs=F );
v = vf::project( Xh, elements( Xh->mesh() ), P() );
this->exportResults( 0, u, v );
auto i1 = mean( _range=markedfaces( mesh, "tip" ), _expr=idv( u ) );
LOG(INFO) << "deflection: " << i1 << "\n";
} // Beam::run
