Elastik deformatsiyaga oid subrutinlar (uelastic.f90)¶

Elastik va giperelastik masalalarda elastik qattiqlik matritsasini hisoblash va kuchlanishni yangilash uchun subrutinlar 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 subrutinlarini yarating.

(1) Elastik qattiqlik matritsasini hisoblash subrutini¶

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 subrutini¶

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