Télécharger @PRCA2.procedur

Retour à la liste

Numérotation des lignes :

  1. * @PRCA2 PROCEDUR MB234859 18/11/21 21:15:02 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. * PROCEDURE DE CALCUL @PRCA2
  9. *
  10. * Calcul du cycle de fretting en recuperant au point 'POINT_REF_DELTA'
  11. * le deplacement impose (LstDelta) et la force (LstFTang)
  12. * Ces donnees sont cumulees sur chaque cycle et mise a zero en debut
  13. * de chaque nouveau cycle.
  14. *
  15. * Entrees :
  16. * T1 : Table de PASAPAS
  17. * ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  18. *
  19. * Sortie :
  20. * T1 : Table de PASAPAS avec les booleens mis a jour
  21. *
  22. * Appelee par @EVN_MNG
  23. *
  24. ***********************************************************************
  25. DEBP @PRCA2 T1*'TABLE' ID_BU*'ENTIER';
  26.  
  27. * Booleen pour trace ou non le cycle de freeting
  28. OPCycFre = FAUX ;
  29.  
  30. BOITE_US = T1.'BOITES_USURES'. ID_BU ;
  31. OuiSauv = BOITE_US.'TermineC' ;
  32. NCNECC = BOITE_US.'NCNECC' ;
  33. * Indice associe aux resultats du pas courant
  34. Inc = BOITE_US.'INDICE-STOCKAGE' ;
  35. *
  36. SI ('EXIS' BOITE_US 'LISTE_DELTAS') ;
  37. LstDelta = BOITE_US.'LISTE_DELTAS' ;
  38. LstFTang = BOITE_US.'LISTE_FORCES_TANGENTIELLES' ;
  39. SINON ;
  40. LstDelta = PROG ;
  41. LstFTang = PROG ;
  42. FINSI ;
  43. *
  44. EvCShear = BOITE_US.'EVO_CISAILLEMENT_CONTACT'. Inc ;
  45. PGetDlta = BOITE_US.'POINT_REF_DELTA';
  46. TU = T1.'ESTIMATION'.'DEPLACEMENTS' ;
  47.  
  48. * Evaluation des composantes souhaitees
  49. FTang_ii = INTG EvCShear ;
  50. Delta_ii = EXTR TU 'UX' PGetDlta ;
  51. *
  52. * Cumul des valeurs
  53. LstDelta = LstDelta ET Delta_ii ;
  54. LstFTang = LstFTang ET FTang_ii ;
  55.  
  56. * Doit-on sauvegarder les resutlats?
  57. SI OuiSauv ;
  58. * - Sauvegarde
  59. DeltaMin = MINI LstDelta ;
  60. DeltaMax = MAXI LstDelta ;
  61. DeltaMoy = (DeltaMin + DeltaMax) / 2. ;
  62. LstDelta = LstDelta - DeltaMoy ;
  63.  
  64. * Cycle de fretting
  65. CyclFret = EVOL 'ROUG' 'MANU' 'Deplacement (mm)' LstDelta
  66. 'Force Tangentielle (N/mm)' LstFTang ;
  67. EnteteCF = CHAI 'Cycle de fretting n: ' NCNECC FORMAT '(I2)' ;
  68. CyclFret = CHAN CyclFret 'LEGE' EnteteCF ;
  69. BOITE_US.'CYCLE_DE_FRETTING'. NCNECC = CyclFret ;
  70.  
  71. * - Reinitialisation
  72. LstDelta = PROG Delta_ii ;
  73. LstFTang = FTang_ii ;
  74.  
  75. * - Trace eventuel
  76. SI OPCycFre ;
  77. TabDess = TABL ;
  78. TabDess. 1 = 'TIRC MARQ CROI' ;
  79. DESS CyclFret TabDess 'GRIL' 'LEGE' ;
  80. FINSI ;
  81.  
  82. FINSI ;
  83.  
  84. * MAJ des donnees contenues dans les listes courantes.
  85. BOITE_US.'LISTE_DELTAS' = LstDelta ;
  86. BOITE_US.'LISTE_FORCES_TANGENTIELLES' = LstFTang ;
  87.  
  88. FINP T1 ;
  89.  
  90.  

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