quarter_circle_sector_mesh.template.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//====================================================================
#ifndef OOMPH_QUARTER_CIRCLE_SECTOR_MESH_HEADER
#define OOMPH_QUARTER_CIRCLE_SECTOR_MESH_HEADER
 
#include "../generic/refineable_quad_mesh.h"
#include "../generic/macro_element.h"
#include "../generic/domain.h"
#include "../generic/algebraic_elements.h"
#include "../generic/quad_mesh.h"
#include "../generic/macro_element_node_update_element.h"
 
// Include the headers file for domain
#include "quarter_circle_sector_domain.h"
 
 
namespace oomph
{
 
 
  class GeomObject;
 
 
  //====================================================================
  //====================================================================
  template<class ELEMENT>
  class QuarterCircleSectorMesh : public virtual QuadMeshBase
  {
  public:
    QuarterCircleSectorMesh(
      GeomObject* wall_pt,
      const double& xi_lo,
      const double& fract_mid,
      const double& xi_hi,
      TimeStepper* time_stepper_pt = &Mesh::Default_TimeStepper);
 
    virtual ~QuarterCircleSectorMesh() {}
 
    GeomObject*& wall_pt()
    {
      return Wall_pt;
    }
 
    QuarterCircleSectorDomain* domain_pt()
    {
      return Domain_pt;
    }
 
    QuarterCircleSectorDomain::BLSquashFctPt& bl_squash_fct_pt()
    {
      return Domain_pt->bl_squash_fct_pt();
    }
 
 
  protected:
    QuarterCircleSectorDomain* Domain_pt;
 
    GeomObject* Wall_pt;
 
    double Xi_lo;
 
    double Fract_mid;
 
    double Xi_hi;
  };
 
 
 
 
  //====================================================================
  //====================================================================
  template<class ELEMENT>
  class RefineableQuarterCircleSectorMesh
    : public QuarterCircleSectorMesh<ELEMENT>,
      public virtual RefineableQuadMesh<ELEMENT>
  {
  public:
    RefineableQuarterCircleSectorMesh(
      GeomObject* wall_pt,
      const double& xi_lo,
      const double& fract_mid,
      const double& xi_hi,
      TimeStepper* time_stepper_pt = &Mesh::Default_TimeStepper)
      : QuarterCircleSectorMesh<ELEMENT>(
          wall_pt, xi_lo, fract_mid, xi_hi, time_stepper_pt)
    {
      // Basic mesh has been built -- just need to setup the
      // adaptivity information:
 
      // Setup quadtree forest
      this->setup_quadtree_forest();
    }
 
    virtual ~RefineableQuarterCircleSectorMesh() {}
  };
 
 
  // MacroElementNodeUpdate-version of RefineableQuarterCircleSectorMesh
 
  class MacroElementNodeUpdateNode;
 
  //========================================================================
  //========================================================================
  template<class ELEMENT>
  class MacroElementNodeUpdateRefineableQuarterCircleSectorMesh
    : public virtual MacroElementNodeUpdateMesh,
      public virtual RefineableQuarterCircleSectorMesh<ELEMENT>
  {
  public:
    MacroElementNodeUpdateRefineableQuarterCircleSectorMesh(
      GeomObject* wall_pt,
      const double& xi_lo,
      const double& fract_mid,
      const double& xi_hi,
      TimeStepper* time_stepper_pt = &Mesh::Default_TimeStepper)
      : MacroElementNodeUpdateMesh(),
        RefineableQuarterCircleSectorMesh<ELEMENT>(
          wall_pt, xi_lo, fract_mid, xi_hi, time_stepper_pt)
    {
#ifdef PARANOID
      ELEMENT* el_pt = new ELEMENT;
      if (dynamic_cast<MacroElementNodeUpdateElementBase*>(el_pt) == 0)
      {
        std::ostringstream error_message;
        error_message
          << "Base class for ELEMENT in "
          << "MacroElementNodeUpdateRefineableQuarterCircleSectorMesh needs"
          << "to be of type MacroElementNodeUpdateElement!\n";
        error_message << "Whereas it is: typeid(el_pt).name()"
                      << typeid(el_pt).name() << std::endl;
 
        std::string function_name =
          "MacroElementNodeUpdateRefineableQuaterCircleSectorMesh::\n";
        function_name +=
          "MacroElementNodeUpdateRefineableQuaterCircleSectorMesh()";
 
        throw OomphLibError(error_message.str(),
                            OOMPH_CURRENT_FUNCTION,
                            OOMPH_EXCEPTION_LOCATION);
      }
      delete el_pt;
#endif
 
      // Setup all the information that's required for MacroElement-based
      // node update: Tell the elements that their geometry depends on the
      // fishback geometric object
      this->setup_macro_element_node_update();
    }
 
    virtual ~MacroElementNodeUpdateRefineableQuarterCircleSectorMesh() {}
 
    void node_update(const bool& update_all_solid_nodes = false)
    {
#ifdef PARANOID
      if (update_all_solid_nodes)
      {
        std::string error_message =
          "Doesn't make sense to use an MacroElementNodeUpdateMesh with\n";
        error_message +=
          "SolidElements so specifying update_all_solid_nodes=true\n";
        error_message += "doesn't make sense either\n";
 
        std::string function_name =
          "MacroElementNodeUpdateRefineableQuaterCircleSectorMesh::\n";
        function_name += "node_update()";
 
        throw OomphLibError(
          error_message, OOMPH_CURRENT_FUNCTION, OOMPH_EXCEPTION_LOCATION);
      }
#endif
      MacroElementNodeUpdateMesh::node_update();
    }
 
  private:
    void setup_macro_element_node_update()
    {
      unsigned n_element = this->nelement();
      for (unsigned i = 0; i < n_element; i++)
      {
        // Upcast from FiniteElement to the present element
        ELEMENT* el_pt = dynamic_cast<ELEMENT*>(this->element_pt(i));
 
#ifdef PARANOID
        // Check if cast is successful
        MacroElementNodeUpdateElementBase* m_el_pt =
          dynamic_cast<MacroElementNodeUpdateElementBase*>(el_pt);
        if (m_el_pt == 0)
        {
          std::ostringstream error_message;
          error_message
            << "Failed to upcast to MacroElementNodeUpdateElementBase\n";
          error_message << "Element must be derived from "
                           "MacroElementNodeUpdateElementBase\n";
          error_message << "but it is of type " << typeid(el_pt).name();
 
          std::string function_name =
            "MacroElementNodeUpdateRefineableQuaterCircleSectorMesh::\n";
          function_name += "setup_macro_element_node_update()";
 
          throw OomphLibError(error_message.str(),
                              OOMPH_CURRENT_FUNCTION,
                              OOMPH_EXCEPTION_LOCATION);
        }
#endif
        // There's just one GeomObject
        Vector<GeomObject*> geom_object_pt(1);
        geom_object_pt[0] = this->Wall_pt;
 
        // Tell the element which geom objects its macro-element-based
        // node update depends on
        el_pt->set_node_update_info(geom_object_pt);
      }
 
      // Add the geometric object(s) for the wall to the mesh's storage
      Vector<GeomObject*> geom_object_pt(1);
      geom_object_pt[0] = this->Wall_pt;
      MacroElementNodeUpdateMesh::set_geom_object_vector_pt(geom_object_pt);
 
      // Fill in the domain pointer to the mesh's storage in the base class
      MacroElementNodeUpdateMesh::macro_domain_pt() = this->domain_pt();
    }
  };
 
 
  // Algebraic-mesh-version of RefineableQuarterCircleSectorMesh
 
 
  class AlgebraicNode;
 
  //========================================================================
  //========================================================================
  template<class ELEMENT>
  class AlgebraicRefineableQuarterCircleSectorMesh
    : public virtual AlgebraicMesh,
      public RefineableQuarterCircleSectorMesh<ELEMENT>
  {
  public:
    AlgebraicRefineableQuarterCircleSectorMesh(
      GeomObject* wall_pt,
      const double& xi_lo,
      const double& fract_mid,
      const double& xi_hi,
      TimeStepper* time_stepper_pt = &Mesh::Default_TimeStepper)
      : RefineableQuarterCircleSectorMesh<ELEMENT>(
          wall_pt, xi_lo, fract_mid, xi_hi, time_stepper_pt)
    {
#ifdef PARANOID
      ELEMENT* el_pt = new ELEMENT;
      if (dynamic_cast<AlgebraicElementBase*>(el_pt) == 0)
      {
        std::ostringstream error_message;
 
        error_message << "Base class for ELEMENT in "
                      << "AlgebraicRefineableQuarterCircleSectorMesh needs"
                      << "to be of type AlgebraicElement!\n";
        error_message << "Whereas it is: typeid(el_pt).name()"
                      << typeid(el_pt).name() << std::endl;
 
        std::string function_name =
          " AlgebraicRefineableQuarterCircleSectorMesh::\n";
        function_name += "AlgebraicRefineableQuarterCircleSectorMesh()";
 
        throw OomphLibError(error_message.str(),
                            OOMPH_CURRENT_FUNCTION,
                            OOMPH_EXCEPTION_LOCATION);
      }
      delete el_pt;
#endif
 
      // Add the geometric object to the list associated with this AlgebraicMesh
      AlgebraicMesh::add_geom_object_list_pt(wall_pt);
 
      // Setup algebraic node update operations
      setup_algebraic_node_update();
    }
 
    unsigned self_test()
    {
      return AlgebraicMesh::self_test();
    }
 
    void node_update(const bool& update_all_solid_nodes = false)
    {
#ifdef PARANOID
      if (update_all_solid_nodes)
      {
        std::string error_message =
          "Doesn't make sense to use an AlgebraicMesh with\n";
        error_message +=
          "SolidElements so specifying update_all_solid_nodes=true\n";
        error_message += "doesn't make sense either\n";
 
        std::string function_name =
          " AlgebraicRefineableQuarterCircleSectorMesh::";
        function_name += "node_update()";
 
        throw OomphLibError(
          error_message, OOMPH_CURRENT_FUNCTION, OOMPH_EXCEPTION_LOCATION);
      }
#endif
      AlgebraicMesh::node_update();
    }
 
 
    void algebraic_node_update(const unsigned& t, AlgebraicNode*& node_pt)
    {
      // Update with the update function for the node's first (default)
      // node update fct
      unsigned id = node_pt->node_update_fct_id();
 
      switch (id)
      {
        case Central_box:
 
          // Central box
          node_update_in_central_box(t, node_pt);
          break;
 
 
        case Lower_right_box:
 
          // Lower right box
          node_update_in_lower_right_box(t, node_pt);
          break;
 
        case Upper_left_box:
 
          // Upper left box
          node_update_in_upper_left_box(t, node_pt);
          break;
 
        default:
 
          std::ostringstream error_message;
          error_message << "The node update fct id is " << id
                        << ", but it should only be one of " << Central_box
                        << ", " << Lower_right_box << " or " << Upper_left_box
                        << std::endl;
          std::string function_name =
            " AlgebraicRefineableQuarterCircleSectorMesh::";
          function_name += "algebraic_node_update()";
 
          throw OomphLibError(error_message.str(),
                              OOMPH_CURRENT_FUNCTION,
                              OOMPH_EXCEPTION_LOCATION);
      }
    }
 
    void update_node_update(AlgebraicNode*& node_pt)
    {
      // Get all node update fct for this node  (resizes internally)
      Vector<int> id;
      node_pt->node_update_fct_id(id);
 
      // Loop over all update fcts
      unsigned n_update = id.size();
      for (unsigned i = 0; i < n_update; i++)
      {
        switch (id[i])
        {
          case Central_box:
 
            // Central box: no update
            break;
 
 
          case Lower_right_box:
 
            // Lower right box
            update_node_update_in_lower_right_box(node_pt);
            break;
 
          case Upper_left_box:
 
            // Upper left box
            update_node_update_in_upper_left_box(node_pt);
            break;
 
          default:
 
            // Never get here....
            std::ostringstream error_message;
            error_message << "Node update fct id is " << id[i]
                          << ", but it should only be one of" << Central_box
                          << ", " << Lower_right_box << " or " << Upper_left_box
                          << std::endl;
 
            std::string function_name =
              " AlgebraicRefineableQuarterCircleSectorMesh::";
            function_name += "update_node_update()";
 
            throw OomphLibError(error_message.str(),
                                OOMPH_CURRENT_FUNCTION,
                                OOMPH_EXCEPTION_LOCATION);
        }
      }
    }
 
  private:
    enum
    {
      Central_box,
      Lower_right_box,
      Upper_left_box
    };
 
 
    double Lambda_x;
 
    double Lambda_y;
 
    void node_update_in_central_box(const unsigned& t, AlgebraicNode*& node_pt);
 
    void node_update_in_lower_right_box(const unsigned& t,
                                        AlgebraicNode*& node_pt);
 
    void node_update_in_upper_left_box(const unsigned& t,
                                       AlgebraicNode*& node_pt);
 
    void setup_algebraic_node_update();
 
 
    void update_node_update_in_lower_right_box(AlgebraicNode*& node_pt);
 
    void update_node_update_in_upper_left_box(AlgebraicNode*& node_pt);
  };
 
 
} // namespace oomph
 
#endif