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  KICH      20/01/03    21:15:08     10477          
  2. 'DEBP' PAS_MATE PRECED*'TABLE'  ETAT*'MCHAML';
  3. WTAB=PRECED.'WTABLE';
  4.  
  5. 'SI' (WTAB.'MATVAR' 'OU' WTAB.'MODAL' 'OU' WTAB.'FREQUENTIEL');
  6.  
  7. 'SI' WTAB.'MEC1';
  8.    MA=WTAB.'MAT_MEC';
  9.    MO=WTAB.'MOD_MEC';
  10.   'SI'  WTAB.'POR1' ;
  11.      MA=MA 'ET' WTAB.'MAT_POR';
  12.      MO=MO 'ET' WTAB.'MOD_POR';
  13.   'FINSI';
  14. 'SINON';
  15.    MA=WTAB.'MAT_POR';
  16.    MO=WTAB.'MOD_POR';
  17. 'FINSI';
  18.  
  19. 'SI' ('EXISTE' WTAB 'MOD_LIA') ;
  20.    MO = MO 'ET' WTAB.'MOD_LIA' ;
  21.    MA = MA 'ET' WTAB.'MAT_LIA' ;
  22. 'FINSI' ;
  23.  
  24. 'SI' ('EXISTE' WTAB 'MOD_CHA') ;
  25.    MO = MO 'ET' WTAB.'MOD_CHA' ;
  26.    MA = MA 'ET' WTAB.'MAT_CHA' ;
  27. 'FINSI' ;
  28.  
  29. *Pour certains materiaux on ne fait aucune instanciation
  30. *pour les passer a l'operateur 'COMP' --------------
  31. ISPE    = FAUX ;
  32. ISTA    = FAUX ;
  33. IBET    = FAUX ;
  34. TABMOD  = 'EXTR' MO 'ZONE' ;
  35. ISTRUB1 = 1 ;
  36. 'REPE' STRUB1 ((DIME TABMOD) / 2) ;
  37.    MMO= TABMOD.ISTRUB1;
  38.   'SI'   (( 'EXISTE' MMO 'MATE' 'ENDOMMAGEABLE'  )
  39.       'OU' ('EXISTE' MMO 'MATE' 'VISCODOMMAGE'   )
  40.       'OU' ('EXISTE' MMO 'MATE' 'PLASTIQUE_ENDOM')) ;
  41.     'SI' ISPE;
  42.        MOD_SPE = MOD_SPE 'ET' MMO           ;
  43.        MAT_SPE = MAT_SPE 'ET'('REDU' MA MMO);
  44.     'SINON';
  45.        MOD_SPE = MMO          ;
  46.        MAT_SPE ='REDU' MA  MMO;
  47.        ISPE=VRAI              ;
  48.     'FINSI';
  49.  
  50.   'SINON';
  51.     'SI'  ( ('EXISTE' MMO  'MATE' 'DRUCKER_PARFAIT' )
  52.     'OU' ('EXISTE' MMO 'MATE' 'MAZARS')  );
  53.       'SI' IBET;
  54.          MOD_BET=MOD_BET 'ET' MMO;
  55.          MAT_BET=MAT_BET 'ET'  ('REDU'  MA  MMO);
  56.       'SINON';
  57.          MOD_BET= MMO           ;
  58.          MAT_BET='REDU'  MA  MMO;
  59.          IBET   = VRAI          ;
  60.       'FINSI';
  61.  
  62.     'SINON';
  63.       'SI' ISTA;
  64. *         MOD_STA= MOD_STA 'ET' MMO            ;
  65. *         MAT_STA= MAT_STA 'ET' ('REDU' MA MMO);
  66.       'SINON';
  67. *         MOD_STA= MMO         ;
  68. *         MAT_STA='REDU' MA MMO;  
  69.          ISTA   = VRAI        ;
  70.       'FINSI';
  71.     'FINSI';
  72.   'FINSI';
  73.    ISTRUB1 = ISTRUB1 + 2;
  74. 'FIN' STRUB1;
  75.  
  76. MA = WTAB.'CARACTERISTIQUES';
  77. 'SI' IBET;
  78.   'SI' WTAB.'BETON_HT';
  79. *    traitement particulier pour beton HT
  80.      LDEV= EXTR MAT_BET 'DEVA';
  81.     'SI' ('EXIS' LDEV 'T   ');
  82.        MAT_BET IMAUVAIS=IDBHT MAT_BET MOD_BET WTAB.'TET1' WTAB.'TET2';
  83.       'SI' IMAUVAIS;
  84.          'QUITTER' PASAPAS;
  85.       'FINSI';
  86.        MA = MA 'ET' MAT_BET ;
  87.     'FINSI';
  88.   'FINSI';
  89.  
  90.   'SI' ISTA ;
  91. *     MAT_STA= MAT_STA 'ET' MAT_BET;
  92. *     MOD_STA= MOD_STA 'ET' MOD_BET;
  93.   'SINON';
  94. *     MAT_STA= MAT_BET;
  95. *     MOD_STA= MOD_BET;
  96.      ISTA   = VRAI   ;
  97.   'FINSI';
  98. 'FINSI';
  99.  
  100.    MMM  = 'VARI' 'NUAG' MO MA ETAT 'RIGIDITE' ;
  101.  
  102. 'SI' ISTA;
  103. *   MMM  =           'VARI' 'NUAG' MOD_STA MAT_STA ETAT 'RIGIDITE' ;
  104.    WTAB.'MA_COMP'= MMM ;
  105.   'SI' ISPE;
  106. *     MMM= MMM 'ET' ('VARI' 'NUAG' MOD_SPE MAT_SPE ETAT 'RIGIDITE');
  107.      WTAB.'MA_COMP'= MMM 'ET' MAT_SPE ;
  108.   'FINSI';
  109.  
  110. 'SINON';
  111. *   MMM  =           'VARI' 'NUAG' MOD_SPE MAT_SPE ETAT 'RIGIDITE';
  112.    WTAB.'MA_COMP'= MAT_SPE ;
  113. 'FINSI';
  114.  
  115. 'SINO';
  116.    MMM  = WTAB.'CARACTERISTIQUES';
  117. 'FINS';
  118.  
  119. 'FINPROC' MMM ;
  120.  

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