ADCompute1DFiniteStrain.C

Go to the documentation of this file.

//* This file is part of the MOOSE framework
//* https://mooseframework.inl.gov
//*
//* All rights reserved, see COPYRIGHT for full restrictions
//* https://github.com/idaholab/moose/blob/master/COPYRIGHT
//*
//* Licensed under LGPL 2.1, please see LICENSE for details
//* https://www.gnu.org/licenses/lgpl-2.1.html
 
#include "ADCompute1DFiniteStrain.h"
 
#include "libmesh/quadrature.h"
 
InputParameters
ADCompute1DFiniteStrain::validParams()
{
  InputParameters params = ADComputeFiniteStrain::validParams();
  params.addClassDescription("Compute strain increment for finite strain in 1D problem");
  return params;
}
 
ADCompute1DFiniteStrain::ADCompute1DFiniteStrain(const InputParameters & parameters)
  : ADComputeFiniteStrain(parameters)
{
}
 
void
ADCompute1DFiniteStrain::computeProperties()
{
  for (_qp = 0; _qp < _qrule->n_points(); ++_qp)
  {
    // Deformation gradient
    auto A = ADRankTwoTensor::initializeFromRows(
        (*_grad_disp[0])[_qp], (*_grad_disp[1])[_qp], (*_grad_disp[2])[_qp]);
 
    // Old Deformation gradient
    auto Fbar = RankTwoTensor ::initializeFromRows(
        (*_grad_disp_old[0])[_qp], (*_grad_disp_old[1])[_qp], (*_grad_disp_old[2])[_qp]);
 
    // Compute the displacement gradient dUy/dy and dUz/dz value for 1D problems
    A(1, 1) = computeGradDispYY();
    A(2, 2) = computeGradDispZZ();
 
    Fbar(1, 1) = computeGradDispYYOld();
    Fbar(2, 2) = computeGradDispZZOld();
 
    A -= Fbar; // very nearly A = gradU - gradUold, adapted to cylindrical coords
 
    Fbar.addIa(1.0); // Fbar = ( I + gradUold)
 
    // Incremental deformation gradient _Fhat = I + A Fbar^-1
    _Fhat[_qp] = A * Fbar.inverse();
    _Fhat[_qp].addIa(1.0);
  }
 
  for (_qp = 0; _qp < _qrule->n_points(); ++_qp)
    computeQpStrain();
}