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