विषय पर बढ़ें

प्रत्यास्थ विकृति के लिए सबरूटीन (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: तनाव