Télécharger @PRCA3.procedur

Retour à la liste

Numérotation des lignes :

  1. * @PRCA3 PROCEDUR MB234859 17/09/26 21:15:04 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 DE CALCUL @PRCA3
  9. *
  10. * Calcul du profil d usure : DeltaH = alpha * beta * phi
  11. *
  12. * Entrees :
  13. * T1 : Table de PASAPAS
  14. * ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  15. *
  16. * Sortie :
  17. * T1 : Table de PASAPAS avec les booleens mis a jour
  18. *
  19. * Appelee par @EVN_MNG
  20. *
  21. ***********************************************************************
  22. DEBP @PRCA3 T1*'TABLE' ID_BU*'ENTIER';
  23.  
  24. * Booleen pour le trace
  25. OPEvUsCu = FAUX ;
  26.  
  27. BOITE_US = T1.'BOITES_USURES'. ID_BU ;
  28. OuiUsCyl = BOITE_US.'USURE_CYCLIQUE' ;
  29. ALPHA = BOITE_US.'COEFFICIENT_USURE' ;
  30. BETA = BOITE_US.'FACTEUR_ACCELERATION' ;
  31. SUR_APPL = BOITE_US.'SURFACE_APPLICATION' ;
  32. NCNECC = BOITE_US.'NCNECC' ;
  33. EntreeNC = BOITE_US.'EntreeNC' ;
  34. TermineC = BOITE_US.'TermineC' ;
  35.  
  36. TT = T1. 'TEMPS' ; Inc = (DIME TT) - 1 ;
  37. TpsEst = T1.'ESTIMATION'.'TEMPS' ;
  38. SI (TpsEst <EG 1.e-10) ; Inc = 0 ; FINSI ;
  39.  
  40. EnDisInc = BOITE_US.'ENERGIE_DISSIPEE_SUR_INCREMENT'. Inc ;
  41. EnDisCyc = BOITE_US.'ENERGIE_DISSIPEE_SUR_CYCLE'. NCNECC ;
  42.  
  43. * Usure obtenue par le produit : Energie Dissipee * Alpha * Beta
  44. * Avec Alpha le coefficient d'usure et Beta le facteur d'acceleration
  45. ed = MOTS 'ED' ;
  46. uu2 = MOTS 'UU2' ; COMM 'UU2 => Usure selon U2' ;
  47. scal = MOTS 'SCAL' ;
  48. AmplFctr = MANU 'CHPO' SUR_APPL 1 'SCAL' (ALPHA*BETA) ;
  49.  
  50. * Cas Usure cyclique
  51. SI OuiUsCyl ;
  52. NouvUsU2 = AmplFctr * EnDisCyc scal ed uu2 ;
  53. SI (NCNECC EGA 1) ;
  54. CumuUsU2 = MANU 'CHPO' SUR_APPL 1 'UU2' 0.0 ;
  55. SINON ;
  56. CumuUsU2 = BOITE_US.'USURE_CUMULEE'. (NCNECC - 1) ;
  57. FINSI ;
  58.  
  59. * Cas Usure incremetanle
  60. SINON ;
  61. NouvUsU2 = AmplFctr * EnDisInc scal ed uu2 ;
  62. FirstInc = EntreeNC ET (NON TermineC) ;
  63. SI FirstInc ;
  64. CumuUsU2 = MANU 'CHPO' SUR_APPL 1 'UU2' 0.0 ;
  65. SINON ;
  66. CumuUsU2 = BOITE_US.'USURE_CUMULEE'. (Inc - 1) ;
  67. FINSI ;
  68.  
  69. FINSI ;
  70.  
  71. CumuUsU2 = CumuUsU2 + NouvUsU2 ;
  72.  
  73. EvNouvUs = EVOL 'JAUN' 'CHPO' NouvUsU2 SUR_APPL ;
  74. EvNouvUs = EXTR EvNouvUs 'COUR' 1 ;
  75. EvNouvUs = CHAN EvNouvUs 'LEGE' 'Usure Nouvelle' ;
  76.  
  77. EvCumuUs = EVOL 'BLEU' 'CHPO' CumuUsU2 SUR_APPL ;
  78. EvCumuUs = EXTR EvCumuUs 'COUR' 1 ;
  79. EvCumuUs = CHAN EvCumuUs 'LEGE' 'Usure Cumulee' ;
  80.  
  81. SI OPEvUsCu ;
  82. DESS (EvNouvUs ET EvCumuUs) 'LEGE' ;
  83. FINSI ;
  84.  
  85. BOITE_US.'USURE_APPLIQUEE' . NCNECC = NouvUsU2 ;
  86. BOITE_US.'USURE_CUMULEE' . NCNECC = CumuUsU2 ;
  87. BOITE_US.'EVO_USURE_APPLIQUEE' . NCNECC = EvNouvUs ;
  88. BOITE_US.'EVO_USURE_CUMULEE' . NCNECC = EvCumuUs ;
  89.  
  90. T1.'BOITES_USURES'. ID_BU = BOITE_US ;
  91.  
  92. FINP T1 ;
  93.  
  94.  

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