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  CB215821  20/07/29    21:16:00     10668          
  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    =  'EXTR' MODEVAL 'FORM' 'POREUX'                       ;
  23.    MAPOR    =  'REDU' MATEVAL MOPOR                                 ;
  24.    ZALM     = ('EXCO' 'ALPM' MAPOR 'MSR0') 'CHAN' 'TYPE' 'SCALAIRE' ;
  25.    ZBI      = ('EXCO' 'COB'  MAPOR 'MSR0') 'CHAN' 'TYPE' 'SCALAIRE' ;
  26.    ZALPH    = ('EXCO' 'ALPH' MAPOR 'MSR0') 'CHAN' 'TYPE' 'SCALAIRE' ;
  27.  
  28.    ZFAC = 3.D0 '*' ( ZALM '-' ( ZBI '*' ZALPH ) );
  29.    ZFAC = ZFAC  'CHAN' 'TYPE' 'SCALAIRE';
  30.  
  31.    ZDT  = 'REDU' (TEVAL '-' WTAB.'TEMPERATURE_REFERENCE') WTAB.'MAI_POR';
  32.    ZDDT = 'CHAN' 'CHAM' ZDT MOPOR 'STRESSES' 'SCALAIRE';
  33.    ZFAC = 'CHAN' 'STRESSES' MOPOR ZFAC                 ;
  34.  
  35.    MSRTHER2    = ZFAC  '*' ZDDT ;
  36.  
  37. 'FINP' MSRTHER2;
  38.  

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