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