lasxcurl.hpp

Go to the documentation of this file.

#ifndef LASXCURL_HPP
#define LASXCURL_HPP
 
#include <sxcurl.hpp>
#include <liealgebra.hpp>
#include <unsupported/Eigen/KroneckerProduct>
 
namespace HArDCore3D
{
 
  class LASXCurl : public VariableDOFSpace
  {
  public:
    typedef std::function<Eigen::Vector3d(const Eigen::Vector3d &)> FunctionType;
    typedef std::vector<FunctionType> LAFunctionType;
 
 
    struct TransferOperators
    {
      TransferOperators(
                     const Eigen::MatrixXd & _serendipity,   
                     const Eigen::MatrixXd & _extension,     
                     const Eigen::MatrixXd & _reduction      
                     )
        : serendipity(_serendipity),
          extension(_extension),
          reduction(_reduction)
      {
        // Do nothing
      }
 
      Eigen::MatrixXd serendipity;
      Eigen::MatrixXd extension;
      Eigen::MatrixXd reduction;
    };
 
    LASXCurl(const LieAlgebra & lie_algebra, const SXCurl & sx_curl, bool use_threads = true, std::ostream & output = std::cout);
 
    const Mesh & mesh() const
    {
      return m_sxcurl.mesh();
    }
    
    const size_t & degree() const
    {
      return m_sxcurl.degree();
    }
 
    inline const LieAlgebra & lieAlg() const
    {
      return m_lie_algebra;
    }
 
    const SerendipityProblem & serPro() const
    {
      return m_sxcurl.serPro();
    }
 
    Eigen::VectorXd interpolate(
          const LAFunctionType & v, 
          const int doe_cell = -1, 
          const int doe_face = -1, 
          const int doe_edge = -1 
          ) const;
 
    //---------------------------------//
    //---- Lie algebra operators-------//
    
    inline const Eigen::VectorXd LaxcurlI(size_t iG, Eigen::VectorXd & v) const
    {
      return Eigen::Map<Eigen::VectorXd,0,Eigen::InnerStride<>>(v.data()+iG, m_sxcurl.dimension(),Eigen::InnerStride<>(m_lie_algebra.dimension()));
    }
 
    //---------------------------------//
    //---- Face transfer operators-----//
    
    inline const Eigen::MatrixXd & ScurlFace(size_t iF) const
    {
      return (*m_face_transfer_operators[iF]).serendipity;
    }
 
    inline const Eigen::MatrixXd & EcurlFace(size_t iF) const
    {
      return (*m_face_transfer_operators[iF]).extension;
    }
 
    inline const Eigen::MatrixXd & RcurlFace(size_t iF) const
    {
      return (*m_face_transfer_operators[iF]).reduction;
    }
 
    inline const Eigen::MatrixXd & ScurlFace(const Face & F) const
    {
      return ScurlFace(F.global_index());
    }
 
    inline const Eigen::MatrixXd & EcurlFace(const Face & F) const
    {
      return EcurlFace(F.global_index());
    }
 
    inline const Eigen::MatrixXd & RcurlFace(const Face & F) const
    {
      return RcurlFace(F.global_index());
    }
    
    //----------------------------------//
    //---- Cell transfer operators -----//
    inline const Eigen::MatrixXd & ScurlCell(size_t iT) const
    {
      return (*m_cell_transfer_operators[iT]).serendipity;
    }
 
    inline const Eigen::MatrixXd & EcurlCell(size_t iT) const
    {
      return (*m_cell_transfer_operators[iT]).extension;
    }
 
    inline const Eigen::MatrixXd & RcurlCell(size_t iT) const
    {
      return (*m_cell_transfer_operators[iT]).reduction;
    }
 
    inline const Eigen::MatrixXd & ScurlCell(const Cell & T) const
    {
      return ScurlCell(T.global_index());
    }
 
    inline const Eigen::MatrixXd & EcurlCell(const Cell & T) const
    {
      return EcurlCell(T.global_index());
    }
 
    inline const Eigen::MatrixXd & RcurlCell(const Cell & T) const
    {
      return RcurlCell(T.global_index());
    }
 
    //-----------------------------------------------------------------//
    //---- Full curl and potential reconstructions, and L2 product ----//
    
    inline const Eigen::MatrixXd faceCurl(size_t iF) const
    {
      Eigen::MatrixXd id = Eigen::MatrixXd::Identity(m_lie_algebra.dimension(), m_lie_algebra.dimension());
      return Eigen::KroneckerProduct(m_sxcurl.faceCurl(iF), id);
    }
    
    inline const Eigen::MatrixXd faceCurl(const Face & F) const
    {
      return faceCurl(F.global_index());
    }
 
    inline const Eigen::MatrixXd facePotential(size_t iF) const
    {
      Eigen::MatrixXd id = Eigen::MatrixXd::Identity(m_lie_algebra.dimension(), m_lie_algebra.dimension());
      return Eigen::KroneckerProduct(m_sxcurl.facePotential(iF), id);
    }
 
    inline const Eigen::MatrixXd facePotential(const Face & F) const
    {
      return facePotential(F.global_index());
    }
 
    inline const Eigen::MatrixXd cellCurl(size_t iT) const
    {
      Eigen::MatrixXd id = Eigen::MatrixXd::Identity(m_lie_algebra.dimension(), m_lie_algebra.dimension());
      return Eigen::KroneckerProduct(m_sxcurl.cellCurl(iT), id);
    }
 
    inline const Eigen::MatrixXd cellCurl(const Cell & T) const
    {
      return cellCurl(T.global_index());
    }
 
    inline const Eigen::MatrixXd cellPotential(size_t iT) const
    {
      Eigen::MatrixXd id = Eigen::MatrixXd::Identity(m_lie_algebra.dimension(), m_lie_algebra.dimension());
      return Eigen::KroneckerProduct(m_sxcurl.cellPotential(iT), id);
    }
 
    inline const Eigen::MatrixXd cellPotential(const Cell & T) const
    {
      return cellPotential(T.global_index());
    }
 
    Eigen::MatrixXd computeL2Product(
                                     const size_t iT, 
                                     const double & penalty_factor = 1., 
                                     const Eigen::MatrixXd & mass_Pk3_T = Eigen::MatrixXd::Zero(1,1), 
                                     const IntegralWeight & weight = IntegralWeight(1.) 
                                     ) const
    {
      return Eigen::KroneckerProduct(m_sxcurl.computeL2Product(iT, penalty_factor, mass_Pk3_T, weight), m_lie_algebra.massMatrix());
    }
 
         
    Eigen::MatrixXd computeL2ProductGradient(
                                     const size_t iT, 
                                     const SXGrad & sx_grad, 
                                     const std::string & side, 
                                     const double & penalty_factor = 1., 
                                     const Eigen::MatrixXd & mass_Pk3_T = Eigen::MatrixXd::Zero(1,1), 
                                     const IntegralWeight & weight = IntegralWeight(1.) 
                                     ) const;
 
    //-----------------------//       
    //---- Getters ----------//
 
    inline const DDRCore::CellBases & cellBases(size_t iT) const
    {
      return m_sxcurl.cellBases(iT);
    }
 
    inline const DDRCore::CellBases & cellBases(const Cell & T) const
    {
      return m_sxcurl.cellBases(T.global_index());
    }
    
    inline const DDRCore::FaceBases & faceBases(size_t iF) const
    {
      return m_sxcurl.faceBases(iF);
    }
 
    inline const DDRCore::FaceBases & faceBases(const Face & F) const
    {
      return m_sxcurl.faceBases(F.global_index());
    }
    
    inline const DDRCore::EdgeBases & edgeBases(size_t iE) const
    {
      return m_sxcurl.edgeBases(iE);
    }
 
    inline const DDRCore::EdgeBases & edgeBases(const Edge & E) const
    {
      return m_sxcurl.edgeBases(E.global_index());
    }
 
  private:
    TransferOperators _compute_face_transfer_operators(size_t iF);
    TransferOperators _compute_cell_transfer_operators(size_t iT);
    
    const LieAlgebra & m_lie_algebra;
    const SXCurl & m_sxcurl;
       
    // Containers for serendipity, extension and reduction operators
    std::vector<std::unique_ptr<TransferOperators> > m_face_transfer_operators;
    std::vector<std::unique_ptr<TransferOperators> > m_cell_transfer_operators;
 
    bool m_use_threads;
    std::ostream & m_output;
 
  };
 
} // end of namespace HArDCore3D
#endif