विषय पर बढ़ें

प्रत्यास्थ-प्लास्टिक विरूपण से संबंधित सबरूटीन (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: द्वितीय 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: ट्रायल प्रतिबल, अर्थात प्रत्यास्थ विरूपण मानकर प्राप्त द्वितीय Piola-Kirchhoff प्रतिबल
  • plstrain: वर्तमान उपचरण के आरंभ पर प्लास्टिक विकृति
  • istat: पूर्णांक अवस्था चर
  • fstat: वास्तविक अवस्था चरों की सरणी
  • temp: तापमान
  • hdflag: सभी घटकों (0), केवल विचलनी घटकों (1), या केवल आयतनिक घटकों (2) की गणना