Télécharger la plaquette Cast3M


fr en

Télécharger @rempfat.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @REMPFAT  PROCEDUR  MO        97/11/28    21:16:39     2950           
  2. * ----------------------------------------------------------------------
  3. ******                     PROCEDURE @REMPFAT                     ******
  4. * ----------------------------------------------------------------------
  5. *
  6. *   CETTE PROCEDURE PERMET DE REMPLIR LA TABLE POUR LA FATIGUE
  7. *
  8. * ----------------------------------------------------------------------
  9. *
  10. *   LES DONNEES SONT :
  11. *    ----> la table a remplir
  12. *    ----> le premier indice de la table a remplir :
  13. *            - 1 : liste des nombres d'occurences (une seule liste et une
  14. *                  seule occurence par etat)
  15. *            - 2 : listes des caracteristiques des materiaux, une liste
  16. *                  par coupe
  17. *    ----> la liste a fournir siuvant l'indice
  18. *
  19. * ----------------------------------------------------------------------
  20. *   PAR Joseph MANNINO
  21. * ----------------------------------------------------------------------
  22. 'DEBPROC' @REMPFAT TABFATI*TABLE IND*ENTIER LISTF*LISTREEL ;
  23.  
  24. SI ( ( IND > 3 ) OU ( IND < 1 ) ) ;
  25.   MESSAGE 'L"INDICE DE LA TABLE A REMPLIR POUR LA FATIGUE NE CONVIENT'
  26.   ' PAS' ;
  27.   QUITTER @REMPFAT ;
  28. FINSI ;
  29.  
  30. SI ( ( DIME TABFATI ) NEG 0 ) ;
  31.   TABIND = INDEX ( TABFATI ) ;
  32.   NIND   = DIME TABIND ;
  33.   J      = 0 ;
  34.   REPETER BOUCLE ( NIND ) ;
  35.     I = &BOUCLE ;
  36.     SI ( TABIND.I EGA IND ) ;
  37.       J = 1 ;
  38.       QUITTER BOUCLE ;
  39.     FINSI ;
  40.   FIN BOUCLE ;
  41.   SI ( J EGA 0 ) ;
  42.     TABFATI.IND = TABLE ;
  43.   FINSI ;
  44. SINON ;
  45.   TABFATI.IND = TABLE ;
  46. FINSI ;
  47.  
  48. N = DIME TABFATI.IND ;
  49. N = N + 1 ;
  50.  
  51. SI ( IND EGA 1 ) ;
  52.   SI ( N > 1 ) ;
  53.     MESSAGE 'L"INDICE DE LA TABLE A REMPLIR POUR LA FATIGUE NE CONVIENT'
  54.     ' PAS' ;
  55.     QUITTER @REMPFAT ;
  56.   FINSI ;
  57.   NBOCCUR = DIME LISTF ; UY =TABFATI.IND; 
  58.   REPETER BOUCLE  NBOCCUR  ;
  59.     UY . &BOUCLE  = EXTRAIRE LISTF &BOUCLE ;
  60.   FIN BOUCLE ;
  61. FINSI ;
  62.  
  63. SI ( IND EGA 2 ) ;
  64.   TABFATI.IND.N = LISTF ;
  65. FINSI ;
  66. SI ( IND EGA 3 ) ;
  67.   TABFATI.IND.N = LISTF ;
  68. FINSI ;
  69. FINPROC ;
  70.  
  71.  

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