Pāriet uz saturu

Apakšprogrammas elastīgajai deformācijai (uelastic.f90)

Tiek nodrošinātas apakšprogrammas elastīgās stinguma matricas aprēķināšanai un sprieguma atjaunināšanai elastības un hiperelastības uzdevumos. Lai izmantotu lietotāja definētu elastīgu vai hiperelastīgu konstitutīvo sakarību, vispirms ievades failā iestatiet !ELASTIC, TYPE=USER vai !HYPERELASTIC, TYPE=USER un ievadiet nepieciešamās materiāla konstantes, pēc tam izveidojiet apakšprogrammas uElasticMatrix un uElasticUpdate.

(1) Apakšprogramma elastīgās stinguma matricas aprēķināšanai

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: masīvs materiāla konstantēm (maksimums 100)
  • strain: Grīna–Lagranža deformācija
  • D: elastības matrica

(2) Apakšprogramma sprieguma aprēķināšanai

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: masīvs materiāla konstantēm (maksimums 100)
  • strain: Grīna–Lagranža deformācija
  • stress: spriegums