Télécharger la plaquette Cast3M


fr en

Télécharger pas_epth.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PAS_EPTH  PROCEDUR  MB234859  25/03/13    21:15:03     12175          
  2. 'DEBP' PAS_EPTH   PRECED*TABLE MODEVAL*MMODEL MATEVAL*MCHAML TEVAL*MCHAML ;
  3. ************************************************************************
  4. * Cette procedure calcule les contraintes thermiques pour les modeles
  5. * poreux
  6. *
  7. * PRECED : La TABLE donnee en entree de PASAPAS. On a besoin des indices
  8. *           - WTAB.'TEMPERATURE_REFERENCE'
  9. * MODEVAL: Modele    d'entree
  10. * MATEVAL: Materiaux d'entree
  11. *
  12. * TEVAL : Temperature (MCHAML) a laquelle est evalué EPSILON_THERMIQUE
  13. *         Type MCHAML Obligatoire pour les JOINTS
  14. *         Necessaire  pour certains éléments linéiques
  15. *
  16. * Le resultat est :
  17. * MSRTHER2 : contraintes thermiques de dilatation
  18. ************************************************************************
  19.  
  20.    WTAB = PRECED. 'WTABLE';
  21.  
  22.    MOPOR  = WTAB.'MOD_POR' ;
  23.    MAIPOR = 'EXTR' MOPOR  'MAIL' ;
  24.    MAPOR  = WTAB.'MAT_POR' ;
  25.    ZALM   = ('EXCO' 'ALPM' MAPOR 'MSR0') 'CHAN' 'TYPE' 'SCALAIRE' ;
  26.    ZBI    = ('EXCO' 'COB'  MAPOR 'MSR0') 'CHAN' 'TYPE' 'SCALAIRE' ;
  27.    ZALPH  = ('EXCO' 'ALPH' MAPOR 'MSR0') 'CHAN' 'TYPE' 'SCALAIRE' ;
  28.  
  29.    ZFAC = 3.D0 '*' ( ZALM '-' ( ZBI '*' ZALPH ) );
  30.    ZFAC = ZFAC  'CHAN' 'TYPE' 'SCALAIRE';
  31.    ZFAC = 'CHAN' 'STRESSES' MOPOR ZFAC  ;
  32.  
  33.    ZDT  = 'REDU' (TEVAL '-' WTAB.'TEMPERATURE_REFERENCE') MAIPOR;
  34.    ZDDT = 'CHAN' 'CHAM' ZDT MOPOR 'STRESSES' 'SCALAIRE';
  35.  
  36.    MSRTHER2 = ZFAC  '*' ZDDT ;
  37.  
  38. 'FINP' MSRTHER2;
  39.  
  40.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales