Télécharger @CHCOTAE.procedur
Retour à la liste
* @CHCOTAE PROCEDUR MB234859 17/09/26 21:15:02 9567
***********************************************************************
*
* CETTE PROCEDURE A ETE MISE GRACIEUSEMENT A DISPOSITION DES
* UTILISATEURS PAR LE LTDS - Ecole Centrale Lyon (S. Fouvry et S.Garcin)
*
***********************************************************************
* PROCEDURE D INITIALISATION DES TABLES DE STOCKAGE
* DES RESULTATS (@ChCoTaE)
*
* Entrees :
* T1 : Table de PASAPAS
* ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
*
* Sortie :
* T1 : Table de PASAPAS avec initialisation des tables de stockage
*
* Appelee par @PRCA1
*
***********************************************************************
DEBP @CHCOTAE BOITE_US*'TABLE' ID_BU*'ENTIER' ;
SI (NON (EXIS BOITE_US 'CISAILLEMENT_DE_CONTACT'
)) ; BOITE_US.'CISAILLEMENT_DE_CONTACT'
= TABL ; BOITE_US.'PRESSION_DE_CONTACT'
= TABL ; BOITE_US.'STATUT_DE_CONTACT'
= TABL ; BOITE_US.'STATUT_DE_GLISSEMENT'
= TABL ; BOITE_US.'AIRE_DE_CONTACT_NODALE'
= TABL ; BOITE_US.'VECTEUR_PRESSION'
= TABL ; BOITE_US.'VECTEUR_CISAILLEMENT'
= TABL ; BOITE_US.'VECTEUR_TOTAL'
= TABL ; BOITE_US.'PROCHE_VOISIN_GAUCHE'
= TABL ; BOITE_US.'PROCHE_VOISIN_DROIT'
= TABL ; BOITE_US.'INDICATEUR_CONTACT_NODAL'
= TABL ; BOITE_US.'CONFIGURATION_ENVIRONNANTE'
= TABL ; BOITE_US.'EVOLUTION_CONTACT'
= TABL ; BOITE_US.'VECTEUR_NORMAL'
= TABL ; BOITE_US.'VECTEUR_TANGENTIEL'
= TABL ; BOITE_US.'TAUX_VOISIN_GAUCHE'
= TABL ; BOITE_US.'TAUX_VOISIN_DROIT'
= TABL ; BOITE_US.'ENERGIE_DISSIPEE_SUR_INCREMENT'
= TABL ; BOITE_US.'ENERGIE_DISSIPEE_SUR_CYCLE'
= TABL ; BOITE_US.'ENERGIE_DISSIPEE_TOTALE'
= TABL ; BOITE_US.'DIST_PLUS_PROCHE_BORD_DE_CONTACT'
= TABL ; BOITE_US.'EVO_PRESSION_CONTACT'
= TABL ; BOITE_US.'EVO_CISAILLEMENT_CONTACT'
= TABL ; BOITE_US.'EVO_GLISSEMENT_CONTACT'
= TABL ; BOITE_US.'EVO_ENERGIE_DISSIPEE_INCR'
= TABL ; BOITE_US.'EVO_ENERGIE_DISSIPEE_CYCLE'
= TABL ; BOITE_US.'EVO_ENERGIE_DISSIPEE_TOTALE'
= TABL ; BOITE_US.'EVO_USURE_APPLIQUEE'
= TABL ; BOITE_US.'EVO_USURE_CUMULEE'
= TABL ; BOITE_US.'EVO_CISAILLEMENT_MOYEN_SUR_CYCLE'
= TABL ; BOITE_US.'EVO_PRESSION_MOYENNE_SUR_CYCLE'
= TABL ; BOITE_US.'EVO_MAX_DCSLIP_VS_TEMPS_DU_CYCLE'
= TABL ; BOITE_US.'USURE_APPLIQUEE'
= TABL ; BOITE_US.'USURE_CUMULEE'
= TABL ; BOITE_US.'CYCLE_DE_FRETTING'
= TABL ;
MESS 'INITIALISATION DES TABLES DE STOCKAGES DE RESULTATS '
; MESS 'EFFECTUEE POUR LA BOITE D USURE N ' ID_BU
; FINSI ;
FINP BOITE_US ;