Télécharger la plaquette Cast3M


fr en

Télécharger pas_mate.procedur

Retour à la liste

Numérotation des lignes : 

  1. * PAS_MATE  PROCEDUR  JK148537  26/08/05    21:15:06     12617          
  2. 'DEBP' PAS_MATE PRECED*'TABLE' ETAT*'MCHAML' ;
  3.  
  4. WTAB = PRECED.'WTABLE' ;
  5. MMM  = WTAB.'CARACTERISTIQUES' ;
  6. 'SI' (WTAB.'MATVAR' 'OU' WTAB.'MODAL' 'OU' WTAB.'FREQUENTIEL' 'OU' WTAB.'BETON_THM') ;
  7. *
  8.  lmcar = 'EXTR' MMM 'COMP' ;
  9.  'SI' ('EXIS' lmcar 'XTMA') ;
  10.     lmca2 = lmcar 'SAUF' ('MOTS' 'XTMA') ; 
  11.     mm0 = 'EXCO' mmm lmca2 ;
  12.     mmm = mm0 et wtab . xtma0 ;
  13.  'FINSI' ;
  14. *
  15.   MO  = WTAB.MO_VARI ;
  16.   MA  = 'REDU' MMM MO ;
  17.   MM1 = 'VARI' 'NUAG' MO MA ETAT 'RIGIDITE' ;
  18. *
  19.   MO  = WTAB.'MOD_SPE' ;
  20.   MA  = 'REDU' WTAB.'CARACTERISTIQUES' MO ;
  21.   MM2 = 'VARI' 'NUAG' MO MA ETAT 'RIGIDITE' ;
  22. *
  23.   MAT_SPE = 'REDU' MMM WTAB.'MOD_SPE' ;
  24.   WTAB.'MA_COMP' = MM1 'ET' MAT_SPE ;
  25.   MMM = MM1 'ET' MM2 ;
  26. *
  27.  'SI' ('EXIS' lmcar 'XTMA') ;
  28.    wtab . xtma0 = 'EXCO' mmm 'XTMA' ;
  29.  'FINSI' ;
  30. *
  31. * (G. Sciume) Cas du modele BETON_THM
  32.   'SI' ('EXIS' PRECED 'VARIABLES_THM') ;
  33.     WTAB .'CARACTERISTIQUES' = @PARAMEC PRECED ;
  34.   'FINSI' ;
  35. *
  36. 'SINON' ;
  37.   WTAB.'MA_COMP' = MMM ;
  38. 'FINSI' ;
  39. 'FINPROC' MMM ;
  40.  
  41.  
  42.  

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