Tarkibga o'tish

Elastik deformatsiyaga oid quyi dasturlar (uelastic.f90)

Elastik va giperelastik masalalarda elastik qattiqlik matritsasini hisoblash va kuchlanishni yangilash uchun quyi dasturlar taqdim etiladi. Foydalanuvchi aniqlagan elastik yoki giperelastik konstitutiv munosabatdan foydalanish uchun avval kirish faylida !ELASTIC, TYPE=USER yoki !HYPERELASTIC, TYPE=USER ni o‘rnating va kerakli material konstantalarini kiriting, so‘ng uElasticMatrix va uElasticUpdate quyi dasturlarini yarating.

(1) Elastik qattiqlik matritsasini hisoblash quyi dasturi

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: Material konstantalarini saqlovchi massiv (ko‘pi bilan 100)
  • strain: Green-Lagrange deformatsiyasi
  • D: Elastik matritsa

(2) Kuchlanishni hisoblash quyi dasturi

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: Material konstantalarini saqlovchi massiv (ko‘pi bilan 100)
  • strain: Green-Lagrange deformatsiyasi
  • stress: Kuchlanish