انتقل إلى المحتوى

الروتينات الفرعية للتشوه المرن (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: انفعال غرين-لاغرانج
  • 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: انفعال غرين-لاغرانج
  • stress: الإجهاد