Ana içeriğe geç

Elastik Deformasyon için Alt Programlar (uelastic.f90)

Elastik ve hiperelastik problemlerde elastik rijitlik matrisini hesaplamak ve gerilmeyi güncellemek için alt programlar sağlanır. Kullanıcı tanımlı bir elastik veya hiperelastik kurucu bağıntı kullanmak için önce giriş dosyasında !ELASTIC, TYPE=USER veya !HYPERELASTIC, TYPE=USER ayarını yapıp gerekli malzeme sabitlerini girin, ardından uElasticMatrix ve uElasticUpdate alt programlarını uygulayın.

(1) Elastik Rijitlik Matrisini Hesaplayan Alt Program

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: Malzeme sabitlerini saklayan dizi (en fazla 100)
  • strain: Green-Lagrange gerinimi
  • D: Elastik matris

(2) Gerilmeyi Hesaplayan Alt Program

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: Malzeme sabitlerini saklayan dizi (en fazla 100)
  • strain: Green-Lagrange gerinimi
  • stress: Gerilme