Tarkibga o'tish

Foydalanuvchi materiali bilan bog‘liq quyi dasturlar (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 quyi dasturlarini yarating.

(1) Qattiqlik matritsasini hisoblash quyi dasturi

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) Nisbiy deformatsiya va kuchlanishni yangilash quyi dasturi

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: Nisbiy deformatsiya
  • stress: 2nd Piola-Kirchhoff kuchlanishi
  • fstat: Holat o‘zgaruvchilari
  • dtime: Vaqt orttirmasi
  • ttime: Joriy vaqt orttirmasi boshlanishidagi umumiy vaqt
  • temperature: Harorat