Skip to content

Серпімді деформацияға арналған ішкі бағдарламалар (uelastic.f90)

Серпімді және гиперсерпімді есептерде серпімді қатаңдық матрицасын есептеу және кернеуді жаңарту үшін ішкі бағдарламалар беріледі. Пайдаланушы анықтайтын серпімді немесе гиперсерпімді конститутивтік қатынасты қолдану үшін алдымен кіріс файлында !ELASTIC, TYPE=USER немесе !HYPERELASTIC, TYPE=USER орнатып, қажетті материал тұрақтыларын енгізіңіз, содан кейін uElasticMatrix және uElasticUpdate ішкі бағдарламаларын іске асырыңыз.

(1) Серпімді қатаңдық матрицасын есептейтін ішкі бағдарлама

subroutine uElasticMatrix( matl, strain, D )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: D(6,6)
  • matl: Материал тұрақтыларын сақтайтын массив (ең көбі 100)
  • strain: Green-Lagrange деформациясы
  • D: Серпімділік матрицасы

(2) Кернеуді есептейтін ішкі бағдарлама

subroutine uElasticUpdate ( matl, strain, stress )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: stress(6)
  • matl: Материал тұрақтыларын сақтайтын массив (ең көбі 100)
  • strain: Green-Lagrange деформациясы
  • stress: Кернеу