Forging B

This is an Eulerian model of a forging operation in plane strain. In contrast to Lagrangian calculation elements stay well shaped.

*BOUNDARY_PRESCRIBED_MOTION_RIGID
*CONSTRAINED_LAGRANGE_IN_SOLID
*CONTROL_ALE
*CONTROL_TERMINATION
*DATABASE_BINARY_D3PLOT
*DATABASE_FSI
*DEFINE_CURVE
*ELEMENT_SHELL
*ELEMENT_SOLID
*END
*INITIAL_VOID_PART
*KEYWORD
*MAT_INV_HYPERBOLIC_SIN
*MAT_RIGID
*NODE
*PART
*SECTION_SHELL
*SECTION_SOLID
*SET_PART_LIST

  *KEYWORD
  *CONTROL_ALE
  0,5,2,-1.0
  
  *CONSTRAINED_LAGRANGE_IN_SOLID
  3,1,1,0,2,4,2
  0,0,0,0,0,1
  
  *CONSTRAINED_LAGRANGE_IN_SOLID
  4,1,1,0,2,4,2
  0,0,0,0,0,0
  
  *DATABASE_FSI
  0.01
  1,3,1
  *SET_PART_LIST
  1
  1,2
  *CONTROL_TERMINATION
   2.0000000
  *DATABASE_BINARY_D3PLOT
   0.1000000
  *MAT_INV_HYPERBOLIC_SIN
  1,    3.14e-1,     1.0e+4,     3.0e-1,  1260.0e+0,    4.55e+0
  0.17237, 3.8, 3.45e+8, 1.188e+6, 40.8825, 1.0e-6
  *SECTION_SOLID
  1,12
  *PART
  
  1, 1, 1, 0, 0, 0, 2, 0
  *PART
  
  2, 1, 1, 0, 0, 0, 2, 0
  *INITIAL_VOID_PART
  2
  *MAT_RIGID
  2,    3.14e-1,     1.0e+4,     3.0e-1
  1.0,     1.0e+0, 7.0
  
  *SECTION_SHELL
  2, 1
  1.0, 1.0, 1.0, 1.0
  *PART
  
  3, 2, 2, 0, 0, 0, 0, 0
  *PART
  
  4, 2, 2, 0, 0, 0, 0, 0
  *DEFINE_CURVE
  1, 0, 1.0, 1.0, 0.0, 0.0, 0
  0.0,    -1.0e+0
  10.0,   -1.0e+0
  *BOUNDARY_PRESCRIBED_MOTION_RIGID
  3, 2, 0, 1, 1.0, 0
  *BOUNDARY_PRESCRIBED_MOTION_RIGID
  4, 2, 0, 1, 1.0e-9, 0
  *NODE
  $
  *ELEMENT_SOLID
  $
  *ELEMENT_SHELL
  $
  *END