Télécharger pas_mate.procedur

Retour à la liste

Numérotation des lignes :

  1. * PAS_MATE PROCEDUR CB215821 16/11/14 21:15:01 9167
  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. 'SI' IBET;
  77. 'SI' WTAB.'BETON_HT';
  78. * traitement particulier pour beton HT
  79. LDEV= EXTR MAT_BET 'DEVA';
  80. 'SI' ('EXIS' LDEV 'T ');
  81. MAT_BET IMAUVAIS=IDBHT MAT_BET MOD_BET WTAB.'TET1' WTAB.'TET2';
  82. 'SI' IMAUVAIS;
  83. 'QUITTER' PASAPAS;
  84. 'FINSI';
  85. 'FINSI';
  86. 'FINSI';
  87.  
  88. 'SI' ISTA ;
  89. MAT_STA= MAT_STA 'ET' MAT_BET;
  90. MOD_STA= MOD_STA 'ET' MOD_BET;
  91. 'SINON';
  92. MAT_STA= MAT_BET;
  93. MOD_STA= MOD_BET;
  94. ISTA = VRAI ;
  95. 'FINSI';
  96. 'FINSI';
  97.  
  98. 'SI' ISTA;
  99. MMM = 'VARI' 'NUAG' MOD_STA MAT_STA ETAT 'RIGIDITE' ;
  100. WTAB.'MA_COMP'= MMM ;
  101. 'SI' ISPE;
  102. MMM= MMM 'ET' ('VARI' 'NUAG' MOD_SPE MAT_SPE ETAT 'RIGIDITE');
  103. WTAB.'MA_COMP'= MMM 'ET' MAT_SPE ;
  104. 'FINSI';
  105.  
  106. 'SINON';
  107. MMM = 'VARI' 'NUAG' MOD_SPE MAT_SPE ETAT 'RIGIDITE';
  108. WTAB.'MA_COMP'= MAT_SPE ;
  109. 'FINSI';
  110.  
  111. 'SINO';
  112. MMM = WTAB.'CARACTERISTIQUES';
  113. 'FINS';
  114.  
  115. 'FINPROC' MMM ;
  116.  
  117.  

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