Line data    Source code

       1             : //* This file is part of the MOOSE framework
       2             : //* https://mooseframework.inl.gov
       3             : //*
       4             : //* All rights reserved, see COPYRIGHT for full restrictions
       5             : //* https://github.com/idaholab/moose/blob/master/COPYRIGHT
       6             : //*
       7             : //* Licensed under LGPL 2.1, please see LICENSE for details
       8             : //* https://www.gnu.org/licenses/lgpl-2.1.html
       9             : 
      10             : #include "ADCompute1DIncrementalStrain.h"
      11             : 
      12             : #include "libmesh/quadrature.h"
      13             : 
      14             : InputParameters
      15          28 : ADCompute1DIncrementalStrain::validParams()
      16             : {
      17          28 :   InputParameters params = ADComputeIncrementalStrain::validParams();
      18          28 :   params.addClassDescription("Compute strain increment for small strains in 1D problems.");
      19          28 :   return params;
      20           0 : }
      21             : 
      22          21 : ADCompute1DIncrementalStrain::ADCompute1DIncrementalStrain(const InputParameters & parameters)
      23          21 :   : ADComputeIncrementalStrain(parameters)
      24             : {
      25          21 : }
      26             : 
      27             : void
      28        3300 : ADCompute1DIncrementalStrain::computeTotalStrainIncrement(ADRankTwoTensor & total_strain_increment)
      29             : {
      30             :   // Deformation gradient calculation for 1D problems
      31             :   auto A = ADRankTwoTensor::initializeFromRows(
      32        3300 :       (*_grad_disp[0])[_qp], (*_grad_disp[1])[_qp], (*_grad_disp[2])[_qp]);
      33             : 
      34             :   // Old Deformation gradient
      35             :   auto Fbar = RankTwoTensor ::initializeFromRows(
      36        3300 :       (*_grad_disp_old[0])[_qp], (*_grad_disp_old[1])[_qp], (*_grad_disp_old[2])[_qp]);
      37             : 
      38             :   // Compute the displacement gradient dUy/dy and dUz/dz value for 1D problems
      39        3300 :   A(1, 1) = computeGradDispYY();
      40        3300 :   A(2, 2) = computeGradDispZZ();
      41             : 
      42        3300 :   Fbar(1, 1) = computeGradDispYYOld();
      43        3300 :   Fbar(2, 2) = computeGradDispZZOld();
      44             : 
      45        3300 :   A -= Fbar; // very nearly A = gradU - gradUold, adapted to cylindrical coords
      46             : 
      47        3300 :   total_strain_increment = 0.5 * (A + A.transpose());
      48        3300 : }