stored_shape_function_elements.h

Go to the documentation of this file.

// LIC// ====================================================================
// LIC// This file forms part of oomph-lib, the object-oriented,
// LIC// multi-physics finite-element library, available
// LIC// at http://www.oomph-lib.org.
// LIC//
// LIC// Copyright (C) 2006-2022 Matthias Heil and Andrew Hazel
// LIC//
// LIC// This library is free software; you can redistribute it and/or
// LIC// modify it under the terms of the GNU Lesser General Public
// LIC// License as published by the Free Software Foundation; either
// LIC// version 2.1 of the License, or (at your option) any later version.
// LIC//
// LIC// This library is distributed in the hope that it will be useful,
// LIC// but WITHOUT ANY WARRANTY; without even the implied warranty of
// LIC// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// LIC// Lesser General Public License for more details.
// LIC//
// LIC// You should have received a copy of the GNU Lesser General Public
// LIC// License along with this library; if not, write to the Free Software
// LIC// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
// LIC// 02110-1301  USA.
// LIC//
// LIC// The authors may be contacted at oomph-lib@maths.man.ac.uk.
// LIC//
// LIC//====================================================================
// Header file for classes that overload elements and implement
// stored shape functions.
 
// Include guard to prevent multiple inclusions of the header
#ifndef OOMPH_STORED_SHAPE_FUNCTION_ELEMENTS_HEADER
#define OOMPH_STORED_SHAPE_FUNCTION_ELEMENTS_HEADER
 
 
// Config header generated by autoconfig
#ifdef HAVE_CONFIG_H
#include <oomph-lib-config.h>
#endif
 
#include "elements.h"
 
 
namespace oomph
{
// Debugging flag
#define OOMPH_STORED_SHAPE_FUNCTIONS_VERBOSE
#undef OOMPH_STORED_SHAPE_FUNCTIONS_VERBOSE
 
 
  //==========================================================================
  //==========================================================================
  class StorableShapeElementBase : public virtual FiniteElement
  {
  private:
    // ALH: Note that the vector must be Shape* because we do not know,
    // a priori, how much storage to allocate in each Shape object.
    // N.B. This could in 99% of cases be static, but that would not
    // permit individual elements to have different integration schemes.
    // If this proves to be a problem, one can use the the function
    // set_local_shape_stored_from_element(), which sets this pointer to
    // point to the pointer allocated by another element.
    Vector<Shape*>* Shape_stored_pt;
 
    Vector<DShape*>* DShape_local_stored_pt;
 
    Vector<DShape*>* D2Shape_local_stored_pt;
 
    bool Can_delete_shape_local_stored;
 
    Vector<DShape*>* DShape_eulerian_stored_pt;
 
    Vector<DShape*>* D2Shape_eulerian_stored_pt;
 
    Vector<double>* Jacobian_eulerian_stored_pt;
 
    bool Can_delete_dshape_eulerian_stored;
 
  public:
    // By default the element can delete its own stored shape functions
    StorableShapeElementBase()
      : FiniteElement(),
        Shape_stored_pt(0),
        DShape_local_stored_pt(0),
        D2Shape_local_stored_pt(0),
        Can_delete_shape_local_stored(true),
        DShape_eulerian_stored_pt(0),
        D2Shape_eulerian_stored_pt(0),
        Jacobian_eulerian_stored_pt(0),
        Can_delete_dshape_eulerian_stored(true)
    {
    }
 
    virtual ~StorableShapeElementBase();
 
    StorableShapeElementBase(const StorableShapeElementBase&) = delete;
 
    void operator=(const StorableShapeElementBase&) = delete;
 
    void delete_all_shape_local_stored();
 
    void delete_shape_local_stored();
 
    void delete_dshape_local_stored();
 
    void delete_d2shape_local_stored();
 
    void delete_all_dshape_eulerian_stored();
 
    void delete_dshape_eulerian_stored();
 
    void delete_d2shape_eulerian_stored();
 
    void delete_J_eulerian_stored();
 
    virtual void set_integration_scheme(Integral* const& integral_pt);
 
    inline Vector<Shape*>*& shape_stored_pt()
    {
      return Shape_stored_pt;
    }
 
    inline Vector<Shape*>* const& shape_stored_pt() const
    {
      return Shape_stored_pt;
    }
 
    inline Shape*& shape_stored_pt(const unsigned& ipt)
    {
      return (*Shape_stored_pt)[ipt];
    }
 
    inline Shape* const& shape_stored_pt(const unsigned& ipt) const
    {
      return (*Shape_stored_pt)[ipt];
    }
 
    inline Vector<DShape*>*& dshape_local_stored_pt()
    {
      return DShape_local_stored_pt;
    }
 
    inline Vector<DShape*>* const& dshape_local_stored_pt() const
    {
      return DShape_local_stored_pt;
    }
 
    inline Vector<DShape*>*& d2shape_local_stored_pt()
    {
      return D2Shape_local_stored_pt;
    }
 
    inline Vector<DShape*>* const& d2shape_local_stored_pt() const
    {
      return D2Shape_local_stored_pt;
    }
 
    inline Vector<DShape*>*& dshape_eulerian_stored_pt()
    {
      return DShape_eulerian_stored_pt;
    }
 
    inline Vector<DShape*>* const& dshape_eulerian_stored_pt() const
    {
      return DShape_eulerian_stored_pt;
    }
 
    inline Vector<DShape*>*& d2shape_eulerian_stored_pt()
    {
      return D2Shape_eulerian_stored_pt;
    }
 
    inline Vector<DShape*>* const& d2shape_eulerian_stored_pt() const
    {
      return D2Shape_eulerian_stored_pt;
    }
 
    inline Vector<double>*& jacobian_eulerian_stored_pt()
    {
      return Jacobian_eulerian_stored_pt;
    }
 
    inline Vector<double>* const& jacobian_eulerian_stored_pt() const
    {
      return Jacobian_eulerian_stored_pt;
    }
 
    void set_shape_local_stored_from_element(
      StorableShapeElementBase* const& element_pt);
 
    void set_dshape_eulerian_stored_from_element(
      StorableShapeElementBase* const& element_pt);
 
    void pre_compute_shape_at_knots();
 
    void shape_at_knot(const unsigned& ipt, Shape& psi) const;
 
    void pre_compute_dshape_local_at_knots();
 
    void dshape_local_at_knot(const unsigned& ipt,
                              Shape& psi,
                              DShape& dpsids) const;
 
    void pre_compute_d2shape_local_at_knots();
 
    void d2shape_local_at_knot(const unsigned& ipt,
                               Shape& psi,
                               DShape& dpsids,
                               DShape& d2psids) const;
 
    void pre_compute_J_eulerian_at_knots();
 
    double J_eulerian_at_knot(const unsigned& ipt) const;
 
    void pre_compute_dshape_eulerian_at_knots();
 
    double dshape_eulerian_at_knot(const unsigned& ipt,
                                   Shape& psi,
                                   DShape& dpsidx) const;
 
 
    void pre_compute_d2shape_eulerian_at_knots();
 
    double d2shape_eulerian_at_knot(const unsigned& ipt,
                                    Shape& psi,
                                    DShape& dpsidx,
                                    DShape& d2psidx) const;
 
 
    /*  /// Diagnostic */
    /*  void tell_me() */
    /*   { */
    /*    oomph_info << "Diagnostic" << std::endl; */
    /*    oomph_info << Shape_stored_pt << " "; */
    /*    oomph_info << DShape_local_stored_pt << " "; */
    /*    oomph_info << D2Shape_local_stored_pt << " "; */
    /*    oomph_info << DShape_eulerian_stored_pt << " "; */
    /*    oomph_info << D2Shape_eulerian_stored_pt << " "; */
    /*    oomph_info << Jacobian_eulerian_stored_pt << std::endl; */
    /*   } */
  };
 
 
  //============================================================================
  //============================================================================
  class StorableShapeSolidElementBase : public virtual StorableShapeElementBase,
                                        public virtual SolidFiniteElement
  {
  private:
    Vector<DShape*>* DShape_lagrangian_stored_pt;
 
    Vector<DShape*>* D2Shape_lagrangian_stored_pt;
 
    Vector<double>* Jacobian_lagrangian_stored_pt;
 
    bool Can_delete_dshape_lagrangian_stored;
 
  public:
    StorableShapeSolidElementBase()
      : StorableShapeElementBase(),
        SolidFiniteElement(),
        DShape_lagrangian_stored_pt(0),
        D2Shape_lagrangian_stored_pt(0),
        Jacobian_lagrangian_stored_pt(0),
        Can_delete_dshape_lagrangian_stored(true)
    {
    }
 
    virtual ~StorableShapeSolidElementBase()
    {
      delete_all_dshape_lagrangian_stored();
    }
 
    StorableShapeSolidElementBase(const StorableShapeSolidElementBase&) =
      delete;
 
    void operator=(const StorableShapeSolidElementBase&) = delete;
 
    void delete_all_dshape_lagrangian_stored();
 
    void delete_dshape_lagrangian_stored();
 
    void delete_d2shape_lagrangian_stored();
 
    void delete_J_lagrangian_stored();
 
    void set_integration_scheme(Integral* const& integral_pt)
    {
      StorableShapeElementBase::set_integration_scheme(integral_pt);
 
      // If we are storing Lagrangian first and second derivatives, recompute
      // them
      if (D2Shape_lagrangian_stored_pt != 0)
      {
        pre_compute_d2shape_lagrangian_at_knots();
      }
      // If we are storing Lagrangian first derivatives, recompute them
      else if (DShape_lagrangian_stored_pt != 0)
      {
        pre_compute_dshape_lagrangian_at_knots();
      }
    }
 
    inline Vector<DShape*>*& dshape_lagrangian_stored_pt()
    {
      return DShape_lagrangian_stored_pt;
    }
 
    inline Vector<DShape*>* const& dshape_lagrangian_stored_pt() const
    {
      return DShape_lagrangian_stored_pt;
    }
 
    inline Vector<DShape*>*& d2shape_lagrangian_stored_pt()
    {
      return D2Shape_lagrangian_stored_pt;
    }
 
    inline Vector<DShape*>* const& d2shape_lagrangian_stored_pt() const
    {
      return D2Shape_lagrangian_stored_pt;
    }
 
    inline Vector<double>*& jacobian_lagrangian_stored_pt()
    {
      return Jacobian_lagrangian_stored_pt;
    }
 
    inline Vector<double>* const& jacobian_lagrangian_stored_pt() const
    {
      return Jacobian_lagrangian_stored_pt;
    }
 
 
    void pre_compute_dshape_lagrangian_at_knots();
 
    double dshape_lagrangian_at_knot(const unsigned& ipt,
                                     Shape& psi,
                                     DShape& dpsidxi) const;
 
    void pre_compute_d2shape_lagrangian_at_knots();
 
    double d2shape_lagrangian_at_knot(const unsigned& ipt,
                                      Shape& psi,
                                      DShape& dpsidxi,
                                      DShape& d2psidxi) const;
 
 
    void set_dshape_lagrangian_stored_from_element(
      StorableShapeSolidElementBase* const& element_pt);
  };
 
 
  //========================================================================
  //========================================================================
  template<class ELEMENT>
  class StorableShapeElement : public virtual StorableShapeElementBase,
                               public virtual ELEMENT
  {
  public:
    // By default the element can delete its own stored shape functions
    StorableShapeElement() : StorableShapeElementBase(), ELEMENT()
    {
      // Reset the integration scheme and force a (re)compute of the
      // the stored shape functions and their derivatives w.r.t. to the
      // local coordinates.
      this->set_integration_scheme(this->integral_pt());
    }
 
    virtual ~StorableShapeElement() {}
 
    StorableShapeElement(const StorableShapeElement&) = delete;
 
    void operator=(const StorableShapeElement&) = delete;
  };
 
 
 
 
  //============================================================================
  //============================================================================
  template<class ELEMENT>
  class StorableShapeSolidElement
    : public virtual StorableShapeSolidElementBase,
      public virtual ELEMENT
  {
  public:
    StorableShapeSolidElement() : StorableShapeSolidElementBase(), ELEMENT()
    {
      // Reset the integration scheme and force a (re-)computation
      // of the shape functions and their derivatives w.r.t. to the
      // local coordinates at the integration points.
      this->set_integration_scheme(this->integral_pt());
    }
 
    virtual ~StorableShapeSolidElement() {}
 
 
    StorableShapeSolidElement(const StorableShapeSolidElement&) = delete;
 
    void operator=(const StorableShapeSolidElement&) = delete;
  };
 
} // namespace oomph
 
#endif