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.  
  121.  
  122.  

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