Агуулгыг алгасах

Уян деформацтай холбоотой дэд програмууд (uelastic.f90)

Уян болон хэт уян харимхай бодлогын уян хөшүүн чанарын матриц ба хүчдэлийг шинэчлэх тооцоонд зориулсан дэд програмуудыг өгдөг. Хэрэглэгчийн уян эсвэл хэт уян харимхай материалын төлөвийн тэгшитгэл ашиглах бол эхлээд оролтын файлд !ELASTIC, TYPE=USER эсвэл !HYPERELASTIC, TYPE=USER-ийг тохируулж шаардлагатай материалын тогтмолуудыг оруулна. Дараа нь uElasticMatrix болон uElasticUpdate дэд програмуудыг үүсгэнэ.

(1) Уян хөшүүн чанарын матриц тооцоолох дэд програм

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: материалын тогтмолуудыг хадгалах массив (хамгийн ихдээ 100)
  • strain: Green-Lagrange харьцангуй деформаци
  • D: уян матриц

(2) Хүчдэл тооцоолох дэд програм

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: материалын тогтмолуудыг хадгалах массив (хамгийн ихдээ 100)
  • strain: Green-Lagrange харьцангуй деформаци
  • stress: хүчдэл