Télécharger la plaquette Cast3M


fr en

Télécharger @CHCOTAE.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @CHCOTAE  PROCEDUR  MB234859  18/11/21    21:15:01     10007          
  2. ***********************************************************************
  3. *
  4. * CETTE PROCEDURE A ETE MISE GRACIEUSEMENT A DISPOSITION DES 
  5. * UTILISATEURS PAR LE LTDS - Ecole Centrale Lyon (S. Fouvry et S.Garcin)
  6. *
  7. ***********************************************************************
  8. *        PROCEDURE D INITIALISATION DES TABLES DE STOCKAGE
  9. *                  DES RESULTATS (@ChCoTaE)
  10. *
  11. * Entrees :
  12. *   T1    : Table de PASAPAS
  13. *   ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  14. *
  15. * Sortie :
  16. *   T1    : Table de PASAPAS avec initialisation des tables de stockage
  17. *
  18. * Appelee par @EVN_IDT
  19. *
  20. ***********************************************************************
  21. DEBP @CHCOTAE BOITE_US*'TABLE' ID_BU*'ENTIER' ;
  22. *  
  23.   SI (NON (EXIS BOITE_US 'INDICATEUR_INITIALISATION_VAR_CUMUL')) ;
  24.     BOITE_US.'INDICATEUR_INITIALISATION_VAR_CUMUL' = 0 ; 
  25. *   Indices rempli dans @PRCA1
  26.     BOITE_US.'EVO_GLISSEMENT_CONTACT'           = TABL ;
  27.     BOITE_US.'CISAILLEMENT_DE_CONTACT'          = TABL ; 
  28.     BOITE_US.'EVO_CISAILLEMENT_CONTACT'         = TABL ;
  29.     BOITE_US.'PRESSION_DE_CONTACT'              = TABL ; 
  30.     BOITE_US.'EVO_PRESSION_CONTACT'             = TABL ;
  31.     BOITE_US.'ENERGIE_DISSIPEE_SUR_INCREMENT'   = TABL ;
  32.     BOITE_US.'ENERGIE_DISSIPEE_SUR_CYCLE'       = TABL ;
  33.     BOITE_US.'ENERGIE_DISSIPEE_TOTALE'          = TABL ;
  34.     BOITE_US.'EVO_ENERGIE_DISSIPEE_INCR'        = TABL ;
  35.     BOITE_US.'EVO_ENERGIE_DISSIPEE_CYCLE'       = TABL ;
  36.     BOITE_US.'EVO_ENERGIE_DISSIPEE_TOTALE'      = TABL ;
  37. *   Indice rempli dans @PRCA2
  38.     BOITE_US.'CYCLE_DE_FRETTING'                = TABL ;  
  39. *   Indices rempli dans @PRCA3
  40.     BOITE_US.'USURE_APPLIQUEE'                  = TABL ;
  41.     BOITE_US.'USURE_CUMULEE'                    = TABL ;  
  42.     BOITE_US.'EVO_USURE_APPLIQUEE'              = TABL ;
  43.     BOITE_US.'EVO_USURE_CUMULEE'                = TABL ;
  44. *   Indices rempli dans @PRCA5
  45.     BOITE_US.'EVO_CISAILLEMENT_MOYEN_SUR_CYCLE' = TABL ;
  46.     BOITE_US.'EVO_PRESSION_MOYENNE_SUR_CYCLE'   = TABL ;
  47.     BOITE_US.'EVO_MAX_DCSLIP_VS_TEMPS_DU_CYCLE' = TABL ;
  48.   FINSI ; 
  49. *  
  50. FINP BOITE_US ; 
  51.  
  52.  

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