Télécharger @USPROF.procedur

Retour à la liste

Numérotation des lignes :

  1. * @USPROF PROCEDUR MB234859 19/11/27 21:15:01 10399
  2. ***********************************************************************
  3. * PROCEDURE @USPROF
  4. *
  5. * Procedure qui calcule le profil d usure a appliquer en chaque point
  6. * de la surface a user. En notant phi la densite d'energie dissipee,
  7. * on a pour chaque point x de la surface a user :
  8. *
  9. * H(x) = alpha * beta * phi(x)
  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 contenant les champs calcules
  17. *
  18. * Appelee par @USURE
  19. * [Collaboration LTDS - These E. Marc]
  20. *
  21. ***********************************************************************
  22. DEBP @USPROF T1*'TABLE' ID_BU*'ENTIER';
  23.  
  24. * Booleen pour le trace
  25. ITRAC = FAUX ;
  26.  
  27. BOITE_US = T1.'BOITES_USURE' ;
  28. ALPHA = BOITE_US. ID_BU .'COEFFICIENT_USURE' ;
  29. BETA = BOITE_US.'DONNEES'.'ACCELERATION' ;
  30. SUR_APPL = BOITE_US. ID_BU .'SURFACE_APPLICATION' ;
  31.  
  32. * Calcul du nouveau profil d'usure
  33. AmplFctr = 'MANU' 'CHPO' SUR_APPL 1 'SCAL' (ALPHA*BETA) ;
  34. EnerDiss = BOITE_US. ID_BU .'ENERGIE_DISSIPEE_CYCLE' ;
  35. NouvUsU2 = AmplFctr * EnerDiss ('MOTS' 'SCAL') ('MOTS' 'ED')
  36. ('MOTS' 'UU2') ;
  37. *
  38. EvNouvUs = 'EVOL' 'JAUN' 'CHPO' NouvUsU2 SUR_APPL ;
  39. EvNouvUs = 'EXTR' EvNouvUs 'COUR' 1 ;
  40. EvNouvUs = 'CHAN' EvNouvUs 'LEGE' 'Usure Nouvelle' ;
  41. *
  42. * Cumul des profils d'usure
  43. CumuUsU2 = BOITE_US. ID_BU .'USURE_TOTALE' ;
  44. CumuUsU2 = CumuUsU2 + NouvUsU2 ;
  45. EvCumuUs = 'EVOL' 'BLEU' 'CHPO' CumuUsU2 SUR_APPL ;
  46. EvCumuUs = 'EXTR' EvCumuUs 'COUR' 1 ;
  47. EvCumuUs = 'CHAN' EvCumuUs 'LEGE' 'Usure Totale' ;
  48. *
  49. SI ITRAC ;
  50. DESS (EvNouvUs 'ET' EvCumuUs) 'LEGE' ;
  51. FINSI ;
  52. *
  53. BOITE_US. ID_BU .'USURE_TOTALE' = CumuUsU2 ;
  54. BOITE_US. ID_BU .'EVO_USURE_TOTALE' = EvCumuUs ;
  55. BOITE_US. ID_BU .'EVO_USURE_CYCLE' = EvNouvUs ;
  56. *
  57. FINP T1 ;
  58.  
  59.  
  60.  

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