Skip to content

د الاستیک بدلون اړوند فرعي پروګرامونه (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: تنش