/Users/jack/Code/basso_dev/inc/Quad4Basis.h

Go to the documentation of this file.

#ifndef _QUAD4_BASIS_BASSO_H_
#define _QUAD4_BASIS_BASSO_H_

#include "basso.h"
#include "Basis.h"
#include "quadrature_rules.h"

namespace basso {

class Quad4Basis : public Basis {

public:
        
        // constructors
        Quad4Basis() { }
        
        // destructors
        virtual ~Quad4Basis() { }
        
        // member functions
        virtual BasisType       Type() const { return kQUAD4; }
        virtual BasisShape Shape() const { return kQUADRILATERAL; }
        virtual int                             NumNodes() const { return 4; }     
        virtual int                             NumEdges() const { return 4; }      
        virtual int                             NumFaces() const { return 0; }      
        virtual int                             Dimension() const { return 2; }
        virtual int                             Order() const { return 2; }
        
        virtual void            ParentCoord( Array< Point > &xi )       const;
        virtual Point           Centroid() const { return Point( 0.0, 0.0 ); }
        virtual void            NumNodesOnFaces( iArray &nn_face )      const;
        virtual void            NumNodesOnEdges( iArray &nn_edge )      const;
        virtual void            NodesOnFace ( int f, iArray &face_nodeids )             const;
        virtual void            NodesOnEdge ( int e, iArray &edge_nodeids )                     const;
        virtual void            FaceBasisType( Array<BasisType> &face_basis )   const;
        virtual void            EdgeBasisType( Array< BasisType > &edge_basis ) const;
        
        virtual void            Quadrature( int order, QuadratureRule &qrule ) const;
        
        virtual void            Na( const Point &p, nArray &shapefunct ) const { shape_quad4(shapefunct,p.x(),p.y()); }
        virtual void            DNa( const Point &p, nMatrix &grad_shape )      const { dshape_quad4(grad_shape,p.x(),p.y()); }
        virtual void            Na( nArray &shapefunct )    const { Na( Centroid(), shapefunct ); }
        virtual void            DNa( nMatrix &grad_shape ) const { DNa( Centroid(), grad_shape ); }

private:
        
};

void Quad4Basis::ParentCoord( Array< Point > &xi ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( xi.size()!=NumNodes() )
                xi.resize(NumNodes());
#endif
        xi[0]=Point(-1.0,-1.0);
        xi[1]=Point( 1.0,-1.0);
        xi[2]=Point( 1.0, 1.0);
        xi[3]=Point(-1.0, 1.0);
}

void    Quad4Basis::NumNodesOnFaces( iArray &nn_face )  const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( nn_face.size()!=NumEdges() )
                nn_face.resize( NumEdges() );
#endif
}

void    Quad4Basis::NumNodesOnEdges( iArray &nn_edge )  const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( nn_edge.size()!=NumEdges() )
                nn_edge.resize( NumEdges() );
#endif
        for ( int i=0; i<NumEdges(); ++i )
                nn_edge[i]=2; 
}

void Quad4Basis::NodesOnFace ( int e, iArray &face_nodeids ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( face_nodeids.size()!=0 )
                face_nodeids.resize(0);
#endif
}

void Quad4Basis::NodesOnEdge ( int e, iArray &edge_nodeids ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( edge_nodeids.size()!=2 )
                edge_nodeids.resize(2);
#endif
        
        switch (e) {
        
                case 0:
                edge_nodeids[0]=0; edge_nodeids[1]=1;
                break;
                
                case 1:
                edge_nodeids[0]=1; edge_nodeids[1]=2;
                break;
                
                case 2:
                edge_nodeids[0]=2; edge_nodeids[1]=3;
                break;
                
                case 3:
                edge_nodeids[0]=3; edge_nodeids[1]=4;
                break;
                
                default:
                WarningMessage("Quad4Basis::NodesOnFace","face id out of range");
                break;
                
        }
}

void Quad4Basis::FaceBasisType( Array< BasisType > &face_basis ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( face_basis.size()!=NumFaces() )
                face_basis.resize(NumFaces());
#endif
}

void Quad4Basis::EdgeBasisType( Array< BasisType > &edge_basis ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( edge_basis.size()!=NumEdges() )
                edge_basis.resize(NumEdges());
#endif
        for ( int i=0; i<NumEdges(); ++i )
                edge_basis[i]=kLINE2; 
}

void Quad4Basis::Quadrature( int order, QuadratureRule &qrule ) const
{
        
        int npts;
        npts=(order+1)/2;

        if ( vect_size(qrule)!=npts )
                resize(qrule,npts);

        quadrature_gauss2d( qrule );
        
}
/*
 void Quad4Basis::Na( const Point &p, nArray &shapefunct ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( shapefunct.size()!=NumNodes() )
                shapefunct.resize(NumNodes());  
#endif
        shapefunct[0]=0.25*(1.0-p.x())*(1.0-p.y());
        shapefunct[1]=0.25*(1.0+p.x())*(1.0-p.y());
        shapefunct[2]=0.25*(1.0+p.x())*(1.0+p.y());
        shapefunct[3]=0.25*(1.0-p.x())*(1.0+p.y());
}

void Quad4Basis::DNa( const Point &p, nMatrix &grad_shape ) const
{
#ifdef ALLOW_DYNAMIC_RESIZE 
        if ( mat_nrows(grad_shape)!=NumNodes() || mat_ncols(grad_shape)!=Dimension() )
                resize( grad_shape, NumNodes(), Dimension() );  
#endif
        grad_shape(0,0)=-0.25*(1.0-p.y()); grad_shape(0,1)=-0.25*(1.0-p.x()); 
        grad_shape(1,0)= 0.25*(1.0-p.y()); grad_shape(1,1)=-0.25*(1.0+p.x());
        grad_shape(2,0)= 0.25*(1.0+p.y()); grad_shape(2,1)= 0.25*(1.0+p.x());
        grad_shape(3,0)=-0.25*(1.0+p.y()); grad_shape(3,1)= 0.25*(1.0-p.x());
}
*/
} // end namespace

#endif

---