Télécharger la plaquette Cast3M


fr en

Télécharger @CHCOTAE.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @CHCOTAE  PROCEDUR  MB234859  17/09/26    21:15:02     9567           
  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 @PRCA1
  19. *
  20. ***********************************************************************
  21. DEBP @CHCOTAE BOITE_US*'TABLE' ID_BU*'ENTIER' ;
  22.   SI (NON (EXIS BOITE_US 'CISAILLEMENT_DE_CONTACT')) ;
  23.     BOITE_US.'CISAILLEMENT_DE_CONTACT'          = TABL ; 
  24.     BOITE_US.'PRESSION_DE_CONTACT'              = TABL ; 
  25.     BOITE_US.'STATUT_DE_CONTACT'                = TABL ; 
  26.     BOITE_US.'STATUT_DE_GLISSEMENT'             = TABL ; 
  27.     BOITE_US.'AIRE_DE_CONTACT_NODALE'           = TABL ; 
  28.     BOITE_US.'VECTEUR_PRESSION'                 = TABL ; 
  29.     BOITE_US.'VECTEUR_CISAILLEMENT'             = TABL ; 
  30.     BOITE_US.'VECTEUR_TOTAL'                    = TABL ; 
  31.     BOITE_US.'PROCHE_VOISIN_GAUCHE'             = TABL ; 
  32.     BOITE_US.'PROCHE_VOISIN_DROIT'              = TABL ; 
  33.     BOITE_US.'INDICATEUR_CONTACT_NODAL'         = TABL ; 
  34.     BOITE_US.'CONFIGURATION_ENVIRONNANTE'       = TABL ; 
  35.     BOITE_US.'EVOLUTION_CONTACT'                = TABL ; 
  36.     BOITE_US.'VECTEUR_NORMAL'                   = TABL ; 
  37.     BOITE_US.'VECTEUR_TANGENTIEL'               = TABL ; 
  38.     BOITE_US.'TAUX_VOISIN_GAUCHE'               = TABL ;
  39.     BOITE_US.'TAUX_VOISIN_DROIT'                = TABL ;
  40.     BOITE_US.'ENERGIE_DISSIPEE_SUR_INCREMENT'   = TABL ;
  41.     BOITE_US.'ENERGIE_DISSIPEE_SUR_CYCLE'       = TABL ;
  42.     BOITE_US.'ENERGIE_DISSIPEE_TOTALE'          = TABL ;
  43.     BOITE_US.'DIST_PLUS_PROCHE_BORD_DE_CONTACT' = TABL ;
  44.     BOITE_US.'EVO_PRESSION_CONTACT'             = TABL ;
  45.     BOITE_US.'EVO_CISAILLEMENT_CONTACT'         = TABL ;
  46.     BOITE_US.'EVO_GLISSEMENT_CONTACT'           = TABL ;
  47.     BOITE_US.'EVO_ENERGIE_DISSIPEE_INCR'        = TABL ;
  48.     BOITE_US.'EVO_ENERGIE_DISSIPEE_CYCLE'       = TABL ;
  49.     BOITE_US.'EVO_ENERGIE_DISSIPEE_TOTALE'      = TABL ;
  50.     BOITE_US.'EVO_USURE_APPLIQUEE'              = TABL ;
  51.     BOITE_US.'EVO_USURE_CUMULEE'                = TABL ;
  52.     BOITE_US.'EVO_CISAILLEMENT_MOYEN_SUR_CYCLE' = TABL ;
  53.     BOITE_US.'EVO_PRESSION_MOYENNE_SUR_CYCLE'   = TABL ;
  54.     BOITE_US.'EVO_MAX_DCSLIP_VS_TEMPS_DU_CYCLE' = TABL ;
  55.     BOITE_US.'USURE_APPLIQUEE'                  = TABL ;
  56.     BOITE_US.'USURE_CUMULEE'                    = TABL ;  
  57.     BOITE_US.'CYCLE_DE_FRETTING'                = TABL ;  
  58.  
  59.     MESS 'INITIALISATION DES TABLES DE STOCKAGES DE RESULTATS ' ; 
  60.     MESS 'EFFECTUEE POUR LA BOITE D USURE N ' ID_BU ;  
  61.   FINSI ; 
  62. FINP BOITE_US ; 
  63.  
  64.  

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