Télécharger @EVN_MNG.procedur

Retour à la liste

Numérotation des lignes :

  1. * @EVN_MNG 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. * MANAGEUR D'EVENEMENTS (@EVN_MNG)
  9. *
  10. * Test les indicateurs d etat et les declancheurs d actions
  11. * pour gerer la realisation des actions utiles
  12. *
  13. * Entrees :
  14. * T1 : Table de PASAPAS
  15. * ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  16. *
  17. * Sortie :
  18. * T1 : Table de PASAPAS avec les booleens mis a jour
  19. *
  20. * Appelee par PERSO1
  21. *
  22. ******************************************************************
  23. DEBP @EVN_MNG T1*'TABLE' ID_BU*'ENTIER';
  24.  
  25. BOITE_US = T1.'BOITES_USURES'. ID_BU ;
  26. YesCANPU = BOITE_US.'YesCANPU' ;
  27. TermineC = BOITE_US.'TermineC' ;
  28. InPhasUs = BOITE_US.'InPhasUs' ;
  29. *
  30. SI InPhasUs ;
  31. * Glissement, cisaillement, pression de contact, energie dissipee
  32. T1 = @PRCA1 T1 ID_BU;
  33. * Enregistrement du cycle de fretting
  34. T1 = @PRCA2 T1 ID_BU;
  35. FINSI ;
  36.  
  37. * Calcul de la repartition de la deformee a appliquer en profondeur
  38. SI YesCANPU ;
  39. T1 = @PRCA3 T1 ID_BU;
  40. SI TermineC ;
  41. T1 = @PRCA5 T1 ID_BU;
  42. FINSI ;
  43. * Application du profil d'usure
  44. @PRCA4 T1 ID_BU ;
  45. FINSI ;
  46.  
  47. * Evaluation des donnees utiles lors de la fin des cycles numeriques
  48. SI (ET TermineC (NON YesCANPU));
  49. T1 = @PRCA5 T1 ID_BU;
  50. FINSI ;
  51.  
  52. FINP T1;
  53.  
  54.  

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