အကြောင်းအရာသို့ ကရန်

အီလတ်စတိုပလတ်စတစ် ပုံပျက်မှု ဆိုင်ရာ ဆပ်ရူတင်း များ (uyield.f90)

အီလတ်စတိုပလတ်စတစ် တောင့်တင်းမှု မက်ထရစ် နှင့် စထရက်စ် ပြန်လည်မက်ပ်ခြင်း ကို တွက်ချက်ရန် ဆပ်ရူတင်း များကို ပံ့ပိုးထားသည်။ အသုံးပြုသူသတ်မှတ် ယီးလ်ဒ် ဖန်ရှင် ကို အသုံးပြုပါက ပထမဦးစွာ ထည့်သွင်းဖိုင် တွင် !PLASTIC, YIELD=USER ကို သတ်မှတ်ပြီး လိုအပ်သော ပစ္စည်းကိန်းသေ များကို ထည့်သွင်းရသည်၊ ထို့နောက် လုပ်ဆောင်ချက် uElastoPlasticNumStatus နှင့် ဆပ်ရူတင်း uElastoPlasticMatrix, uBackwardEuler တို့ကို ဖန်တီးရန် လိုအပ်သည်။

(1) အစစ်ပိုင်း အခြေအနေပြောင်းလဲကိန်း အရေအတွက်ကို ပြန်ပေးသော လုပ်ဆောင်ချက်

integer function uElastoPlasticNumStatus( matl )
    real(kind=kreal),   intent(in)  :: matl(:)
  • matl: ပစ္စည်းကိန်းသေ များ သိမ်းဆည်းသော အာရေး (1-100: စနစ်သတ်မှတ် ပစ္စည်းကိန်းသေ, 101-200: အသုံးပြုသူသတ်မှတ် ပစ္စည်းကိန်းသေ)

(2) အီလတ်စတိုပလတ်စတစ် တောင့်တင်းမှု မက်ထရစ် တွက်ချက်သော ဆပ်ရူတင်း

  subroutine uElastoPlasticMatrix( matl, stress, istat, fstat, plstrain, D, temp, hdflag )
    real(kind=kreal),   intent(in)  :: matl(:)
    real(kind=kreal),   intent(in)  :: stress(6)
    integer(kind=kint), intent(in)  :: istat
    real(kind=kreal),   intent(in)  :: fstat(:)
    real(kind=kreal),   intent(in)  :: plstrain
    real(kind=kreal),   intent(out) :: D(:,:)
    real(kind=kreal),   intent(in)  :: temp
    integer(kind=kint), intent(in)  :: hdflag
  • matl: ပစ္စည်းကိန်းသေ များ သိမ်းဆည်းသော အာရေး (1-100: စနစ်သတ်မှတ် ပစ္စည်းကိန်းသေ, 101-200: အသုံးပြုသူသတ်မှတ် ပစ္စည်းကိန်းသေ)
  • stress: 2nd Piola-Kirchhoff စထရက်စ်
  • istat: အင်တီဂျာ အခြေအနေ ကိန်းရှင်
  • fstat: အစစ်ပိုင်း အခြေအနေပြောင်းလဲကိန်း များ၏ အာရေး
  • plstrain: လက်ရှိ အဆင့်ခွဲ စတင်ချိန်ရှိ ပလတ်စတစ် စထရိန်
  • D: အီလတ်စတိုပလတ်စတစ် မက်ထရစ်
  • temp: အပူချိန်
  • hdflag: အစိတ်အပိုင်း အားလုံး (0), လွဲဖယ်ဆိုင်ရာ အစိတ်အပိုင်း များသာ (1), ထုထည်ဆိုင်ရာ အစိတ်အပိုင်း များသာ (2) ကို တွက်ချက်သည်

(3) စထရက်စ် ပြန်လည်မက်ပ်ခြင်း တွက်ချက်သော ဆပ်ရူတင်း

  subroutine uBackwardEuler( matl, stress, plstrain, istat, fstat, temp, hdflag )
    real(kind=kreal),   intent(in)    :: matl(:)
    real(kind=kreal),   intent(inout) :: stress(6)
    real(kind=kreal),   intent(in)    :: plstrain
    integer(kind=kint), intent(inout) :: istat
    real(kind=kreal),   intent(inout) :: fstat(:)
    real(kind=kreal),   intent(in)    :: temp
    integer(kind=kint), intent(in)    :: hdflag
  • matl: ပစ္စည်းကိန်းသေ များ သိမ်းဆည်းသော အာရေး (1-100: စနစ်သတ်မှတ် ပစ္စည်းကိန်းသေ, 101-200: အသုံးပြုသူသတ်မှတ် ပစ္စည်းကိန်းသေ)
  • stress: စမ်းသပ် စထရက်စ် အတွက် အီလတ်စတစ် ပုံပျက်မှု ဟုယူဆ၍ ရရှိသော 2nd Piola-Kirchhoff စထရက်စ်
  • plstrain: လက်ရှိ အဆင့်ခွဲ စတင်ချိန်ရှိ ပလတ်စတစ် စထရိန်
  • istat: အင်တီဂျာ အခြေအနေ ကိန်းရှင်
  • fstat: အစစ်ပိုင်း အခြေအနေပြောင်းလဲကိန်း များ၏ အာရေး
  • temp: အပူချိန်
  • hdflag: အစိတ်အပိုင်း အားလုံး (0), လွဲဖယ်ဆိုင်ရာ အစိတ်အပိုင်း များသာ (1), ထုထည်ဆိုင်ရာ အစိတ်အပိုင်း များသာ (2) ကို တွက်ချက်သည်