circular_shell_mesh.template.cc

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-2024 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_CIRCULAR_SHELL_MESH_TEMPLATE_CC
#define OOMPH_CIRCULAR_SHELL_MESH_TEMPLATE_CC
 
#include <float.h>
 
#include "circular_shell_mesh.template.h"
#include "rectangular_quadmesh.template.cc"
 
 
namespace oomph
{
  //=======================================================================
  /// Mesh build fct
  //=======================================================================
  template<class ELEMENT>
  void CircularCylindricalShellMesh<ELEMENT>::build_mesh(const unsigned& nx,
                                                         const unsigned& ny,
                                                         const double& lx,
                                                         const double& ly)
  {
    // Mesh can only be built with 2D Qelements.
    MeshChecker::assert_geometric_element<QElementGeometricBase, ELEMENT>(2);
 
    // Find out how many nodes there are
    unsigned n_node = nnode();
 
    // Now in this case it is the Lagrangian coordinates that we want to set,
    // so we have to loop over all nodes and set them to the Eulerian
    // coordinates that are set by the generic mesh generator
    for (unsigned i = 0; i < n_node; i++)
    {
      node_pt(i)->xi(0) = scaled_x(node_pt(i)->x(0));
      node_pt(i)->xi(1) = node_pt(i)->x(1);
    }
 
 
    // Loop over elements and nodes to find out min axial spacing
    // for all nodes
 
    // Initialise map
    std::map<Node*, double> min_dx;
    unsigned nnod = nnode();
    for (unsigned j = 0; j < nnod; j++) min_dx[node_pt(j)] = DBL_MAX;
 
    // Loop over elements
    unsigned nelem = nelement();
    for (unsigned e = 0; e < nelem; e++)
    {
      ELEMENT* el_pt = dynamic_cast<ELEMENT*>(element_pt(e));
      unsigned n_node = el_pt->nnode();
      for (unsigned j = 0; j < n_node; j++)
      {
        SolidNode* nod_pt = dynamic_cast<SolidNode*>(el_pt->node_pt(j));
        double x = nod_pt->xi(0);
        for (unsigned k = 0; k < n_node; k++)
        {
          double dx =
            fabs(x - dynamic_cast<SolidNode*>(el_pt->node_pt(k))->xi(0));
          if (dx < min_dx[nod_pt])
          {
            if (dx != 0.0) min_dx[nod_pt] = dx;
          }
        }
      }
    }
 
 
    // Assign gradients, etc for the Lagrangian coordinates of
    // Hermite-type elements
 
    // Read out number of position dofs
    unsigned n_position_type = finite_element_pt(0)->nnodal_position_type();
 
    // Assign generalised Lagrangian positions (min slope, c.f. M. Heil's PhD
    // thesis
    if (n_position_type > 1)
    {
      // Default spacing
      double xstep = (this->Xmax - this->Xmin) / ((this->Np - 1) * this->Nx);
      double ystep = (this->Ymax - this->Ymin) / ((this->Np - 1) * this->Ny);
 
      // Adjust for non-uniform spacing
      for (unsigned j = 0; j < n_node; j++)
      {
        SolidNode* nod_pt = node_pt(j);
 
        // Get min. spacing for non-uniform axial spacing
        xstep = min_dx[nod_pt];
 
        // The factor 0.5 is because our reference element has length 2.0
        nod_pt->xi_gen(1, 0) = 0.5 * xstep;
        nod_pt->xi_gen(2, 1) = 0.5 * ystep;
      }
    }
  }
 
 
  //=======================================================================
  /// Set the undeformed coordinates of the nodes
  //=======================================================================
  template<class ELEMENT>
  void CircularCylindricalShellMesh<ELEMENT>::assign_undeformed_positions(
    GeomObject* const& undeformed_midplane_pt)
  {
    // Loop over nodes in elements
    unsigned nelem = nelement();
    for (unsigned e = 0; e < nelem; e++)
    {
      ELEMENT* el_pt = dynamic_cast<ELEMENT*>(element_pt(e));
      unsigned n_node = el_pt->nnode();
      for (unsigned n = 0; n < n_node; n++)
      {
        // Get the Lagrangian coordinates
        Vector<double> xi(2);
        xi[0] = dynamic_cast<SolidNode*>(el_pt->node_pt(n))->xi(0);
        xi[1] = dynamic_cast<SolidNode*>(el_pt->node_pt(n))->xi(1);
 
        // Assign memory for values of derivatives, etc
        Vector<double> R(3);
        DenseMatrix<double> a(2, 3);
        RankThreeTensor<double> dadxi(2, 2, 3);
 
        // Get the geometrical information from the geometric object
        undeformed_midplane_pt->d2position(xi, R, a, dadxi);
 
 
        // Get derivatives of Lagr coordinates w.r.t. local coords
        DenseMatrix<double> dxids(2, 2);
        Vector<double> s(2);
        el_pt->local_coordinate_of_node(n, s);
        el_pt->interpolated_dxids(s, dxids);
        double dxds = dxids(0, 0);
 
        // Loop over coordinate directions
        for (unsigned i = 0; i < 3; i++)
        {
          // Set the position
          el_pt->node_pt(n)->x_gen(0, i) = R[i];
 
          // Set generalised positions
          el_pt->node_pt(n)->x_gen(1, i) = a(0, i) * dxds;
          el_pt->node_pt(n)->x_gen(2, i) =
            0.5 * a(1, i) * ((this->Ymax - this->Ymin) / this->Ny);
 
          // Set the mixed derivative
          el_pt->node_pt(n)->x_gen(3, i) = 0.0;
 
          // Check for warping
          if (dadxi(0, 1, i) != 0.0)
          {
            std::ostringstream error_stream;
            error_stream
              << "Undef. GeomObject for this shell mesh should not be warped!\n"
              << "It may be possible to generalise the mesh generator to \n"
              << "deal with this case -- feel free to have a go...\n";
            throw OomphLibError(error_stream.str(),
                                OOMPH_CURRENT_FUNCTION,
                                OOMPH_EXCEPTION_LOCATION);
          }
        }
      }
    }
  }
 
 
} // namespace oomph
 
 
// namespace oomph
// {
 
 
// //=======================================================================
// /// Mesh constructor
// /// Argument list:
// /// nx  : number of elements in the axial direction
// /// ny : number of elements in the azimuthal direction
// /// lx  : length in the axial direction
// /// ly  : length in theta direction
// //=======================================================================
// template <class ELEMENT>
// CircularCylindricalShellMesh<ELEMENT>::CircularCylindricalShellMesh(
//  const unsigned &nx,
//  const unsigned &ny,
//  const double &lx,
//  const double &ly,
//  TimeStepper* time_stepper_pt) :
//  RectangularQuadMesh<ELEMENT>(nx,ny,lx,ly,time_stepper_pt)
// {
//  //Find out how many nodes there are
//  unsigned n_node = nnode();
 
//  //Now in this case it is the Lagrangian coordinates that we want to set,
//  //so we have to loop over all nodes and set them to the Eulerian
//  //coordinates that are set by the generic mesh generator
//  for(unsigned i=0;i<n_node;i++)
//   {
//    node_pt(i)->xi(0) = node_pt(i)->x(0);
//    node_pt(i)->xi(1) = node_pt(i)->x(1);
//   }
 
 
//  //Assign gradients, etc for the Lagrangian coordinates of
//  //Hermite-type elements
 
//  //Read out number of position dofs
//  unsigned n_position_type = finite_element_pt(0)->nnodal_position_type();
 
//  //If this is greater than 1 set the slopes, which are the distances between
//  //nodes. If the spacing were non-uniform, this part would be more difficult
//  if(n_position_type > 1)
//   {
//    double xstep = (this->Xmax - this->Xmin)/((this->Np-1)*this->Nx);
//    double ystep = (this->Ymax - this->Ymin)/((this->Np-1)*this->Ny);
//    for(unsigned n=0;n<n_node;n++)
//     {
//      //The factor 0.5 is because our reference element has length 2.0
//      node_pt(n)->xi_gen(1,0) = 0.5*xstep;
//      node_pt(n)->xi_gen(2,1) = 0.5*ystep;
//     }
//   }
// }
 
 
// //=======================================================================
// /// Set the undeformed coordinates of the nodes
// //=======================================================================
// template <class ELEMENT>
// void CircularCylindricalShellMesh<ELEMENT>::assign_undeformed_positions(
//  GeomObject* const &undeformed_midplane_pt)
// {
//  //Find out how many nodes there are
//  unsigned n_node = nnode();
 
//  //Loop over all the nodes
//  for(unsigned n=0;n<n_node;n++)
//   {
//    //Get the Lagrangian coordinates
//    Vector<double> xi(2);
//    xi[0] = node_pt(n)->xi(0);
//    xi[1] = node_pt(n)->xi(1);
 
//    //Assign memory for values of derivatives, etc
//    Vector<double> R(3);
//    DenseMatrix<double> a(2,3);
//    RankThreeTensor<double>  dadxi(2,2,3);
 
//    //Get the geometrical information from the geometric object
//    undeformed_midplane_pt->d2position(xi,R,a,dadxi);
 
//    //Loop over coordinate directions
//    for(unsigned i=0;i<3;i++)
//     {
//      //Set the position
//      node_pt(n)->x_gen(0,i) = R[i];
 
//      //Set the derivative wrt Lagrangian coordinates
//      //Note that we need to scale by the length of each element here!!
//      node_pt(n)->x_gen(1,i) = 0.5*a(0,i)*((this->Xmax -
//      this->Xmin)/this->Nx); node_pt(n)->x_gen(2,i) = 0.5*a(1,i)*((this->Ymax
//      - this->Ymin)/this->Ny);
 
//      //Set the mixed derivative
//      //(symmetric so doesn't matter which one we use)
//      node_pt(n)->x_gen(3,i) = 0.25*dadxi(0,1,i);
//     }
//   }
// }
 
 
// }
#endif