Tarkibga o'tish

Foydalanuvchi materiali bilan bog‘liq subrutinlar (umat.f)

Elastik, giperelastik yoki elastoplastik material bo‘lishidan qat’i nazar, umumiy materiallarning deformatsiya tahlili uchun interfeys taqdim etadi. Foydalanuvchi tomonidan aniqlangan materialdan foydalanish uchun avval kirish faylida !USER_MATERIAL ni o‘rnating va kerakli material konstantalarini kiriting, so‘ng uMatlMatrix va uUpdate subrutinlarini yarating.

(1) Qattiqlik matritsasini hisoblash subrutini

subroutine uMatlMatrix( mname, matl, strain, stress, fstat, D, dtime, ttime, temperature )
        character(len=*), intent(in)  :: mname
        real(kind=kreal), intent(in)  :: matl(:)
        real(kind=kreal), intent(in)  :: strain(6)
        real(kind=kreal), intent(in)  :: stress(6)
        real(kind=kreal), intent(in)  :: fstat(:)
        real(kind=kreal), intent(out) :: D(:,:)
        real(kind=kreal), intent(in)  :: dtime
        real(kind=kreal), intent(in)  :: ttime
        real(kind=kreal), optional    :: temperature
  • mname: Material nomi
  • matl: Material konstantalarini saqlovchi massiv (ko‘pi bilan 100)
  • strain: Green-Lagrange deformatsiyasi
  • stress: 2nd Piola-Kirchhoff kuchlanishi
  • fstat: Holat o‘zgaruvchilari
  • D: Konstitutiv munosabat
  • dtime: Vaqt orttirmasi
  • ttime: Joriy vaqt orttirmasi boshlanishidagi umumiy vaqt
  • temperature: Harorat

(2) Deformatsiya va kuchlanishni yangilash subrutini

subroutine uUpdate(  mname, matl, strain, stress, fstat, dtime, ttime, temperature )
        character(len=\*), intent(in)    :: mname
        real(kind=kreal), intent(in)    :: matl(:)
        real(kind=kreal), intent(in)    :: strain(6)
        real(kind=kreal), intent(inout) :: stress(6)
        real(kind=kreal), intent(inout) :: fstat(:)
        real(kind=kreal), intent(in)    :: dtime
        real(kind=kreal), intent(in)    :: ttime
        real(kind=kreal), optional      :: temperature
  • mname: Material nomi
  • matl: Material konstantalarini saqlovchi massiv (ko‘pi bilan 100)
  • strain: Deformatsiya
  • stress: 2nd Piola-Kirchhoff kuchlanishi
  • fstat: Holat o‘zgaruvchilari
  • dtime: Vaqt orttirmasi
  • ttime: Joriy vaqt orttirmasi boshlanishidagi umumiy vaqt
  • temperature: Harorat
AI-assisted translation May contain errors Official docs Status