Télécharger la plaquette Cast3M


fr en

Télécharger uspost.procedur

Retour à la liste

Numérotation des lignes : 

  1. * USPOST    PROCEDUR  MB234859  25/05/05    21:15:11     12260          
  2. ************************************************************************
  3. *                         PROCEDURE USPOST
  4. *
  5. * Procedure de post-traitement specifique aux calculs d'usure.
  6. *
  7. * Entrees :
  8. *   T1    : Table de PASAPAS
  9. *   ID_BU : Entier donnant le numero de la BOITE D'USURE a considerer
  10. *
  11. * Appelee par USEXPL ou USIMPL
  12. *
  13. ************************************************************************
  14. 'DEBP' USPOST T1*'TABLE' ID_BU*'ENTIER'; 
  15. *
  16.   BOITE_US = T1.'BOITES_USURE' ; 
  17.   CycActu  = BOITE_US.'INFOS'.'INDICE_CYCLE_ACTUEL' ;
  18.   NbCycRe  = BOITE_US.'INFOS'.'NB_CYCLES_RESTANTS' ;
  19.   SUR_APPL = BOITE_US. ID_BU .'SURFACE_APPLICATION' ;
  20. *-----------------------------------------------------------------------
  21. * - CYCLE CALCULE ET CYCLE REEL (VALEURS COMMUNES)
  22. *-----------------------------------------------------------------------
  23.   'SI' ('EGA' ID_BU 1) ;
  24.     BOITE_US.'POST'.'CYCLES_CALCULES' = 
  25.        BOITE_US.'POST'.'CYCLES_CALCULES' 'ET' CycActu ;
  26. *
  27.     NCycle = BOITE_US.'DONNEES'.'NB_CYCLES' ;
  28.     BOITE_US.'POST'.'CYCLES_REELS' = 
  29.        BOITE_US.'POST'.'CYCLES_REELS' 'ET' (NCycle '-' NbCycRe) ; 
  30.   'FINSI' ;  
  31. *-----------------------------------------------------------------------
  32. * - PRESSION ET CISAILLEMENT MOYENS/MAX ET PROFONDEUR MAX
  33. *-----------------------------------------------------------------------
  34.   PresCum = 'ETG' BOITE_US. &BU .'PRESSION_CONTACT' ;
  35.   PresMoy = BOITE_US.'INFOS'.'UNSURT' '*' PresCum ; 
  36.   BOITE_US. ID_BU .'PRESSION_MOYENNE_CYCLE'. CycActu = PresMoy ;
  37. *  
  38.   BOITE_US. ID_BU .'PRESSION_MAX_CYCLE' =
  39.     BOITE_US. ID_BU .'PRESSION_MAX_CYCLE' 'ET' 
  40.      ('MAXI' BOITE_US. ID_BU .'PRESSION_MAX_INC') ;
  41. *
  42.   CisaCum = 'ETG' BOITE_US. &BU .'CISAILLEMENT' ;
  43.   CisaMoy = BOITE_US.'INFOS'.'UNSURT' '*' CisaCum ;
  44.   BOITE_US. ID_BU .'CISAILLEMENT_MOYEN_CYCLE'. CycActu = CisaMoy ;
  45. *
  46.   BOITE_US. ID_BU .'CISAILLEMENT_MAX_CYCLE' = 
  47.     BOITE_US. ID_BU .'CISAILLEMENT_MAX_CYCLE' 'ET'
  48.      ('MAXI' BOITE_US. ID_BU .'CISAILLEMENT_MAX_INC') ;
  49. *
  50.   Uscycle = BOITE_US. ID_BU .'INC_USURE'. CycActu ;
  51.   ProfMax = 'MAXI' Uscycle 'ABS' ;
  52.   BOITE_US. ID_BU .'PROF_USEE_MAX_CYCLE' =
  53.      BOITE_US. ID_BU .'PROF_USEE_MAX_CYCLE' 'ET' ProfMax ; 
  54. *
  55.   Utotale = BOITE_US. ID_BU .'USURE_TOT'. CycActu ;
  56.   ProfMax = 'MAXI' Utotale 'ABS' ;
  57.   BOITE_US. ID_BU .'PROF_USEE_MAX_TOTALE' =
  58.        BOITE_US. ID_BU .'PROF_USEE_MAX_TOTALE' 'ET' ProfMax ; 
  59. *-----------------------------------------------------------------------
  60. * - CALCUL DE DELTA_G ET DELTA_T
  61. *-----------------------------------------------------------------------
  62.   CyclFret = BOITE_US. ID_BU .'CYCLE_DE_FRETTING'. CycActu ; 
  63. *
  64.   F_N_CyFr = 'EXTR' CyclFret 'ORDO';
  65.   Ampl_F_N = ('MAXI' F_N_CyFr) '-' ('MINI' F_N_CyFr) ; 
  66.   ECycFret = 'ABS' ('INTG' CyclFret) ;
  67.   DltG_Est = ECycFret / 2. / Ampl_F_N ;
  68.   BOITE_US. ID_BU .'DELTA_G' = 
  69.      BOITE_US. ID_BU .'DELTA_G' 'ET' DltG_Est ;
  70. *
  71.   Dlt_CyFr = 'EXTR' CyclFret 'ABSC';
  72.   Ampl_Dlt = ('MAXI' Dlt_CyFr) '-' ('MINI' Dlt_CyFr) ; 
  73.   DltT_Est = (Ampl_Dlt / 2.) - DltG_Est ;  
  74.   LDltTPre = BOITE_US. ID_BU .'DELTA_T' ;
  75.   BOITE_US. ID_BU .'DELTA_T' = LDltTPre 'ET' DltT_Est ;
  76. *-----------------------------------------------------------------------
  77. * - ENERGIE DISSIPEE ET VOLUME USE PAR CYCLE ET TOTAL
  78. *-----------------------------------------------------------------------
  79.   ChamDEDC = 'CHAN' 'CHAM' (BOITE_US. ID_BU .'DENS_ENER_DISS_CYCLE') 
  80.      SUR_APPL ;
  81.   EdCycle  = 'INTG' BOITE_US. ID_BU .'MODINTG' ChamDEDC ;
  82.   BOITE_US. ID_BU .'ENERGIE_DISSIPEE_CYCLE' = 
  83.      BOITE_US. ID_BU .'ENERGIE_DISSIPEE_CYCLE' 'ET' EdCycle ;
  84. *
  85.   DensEnDT = BOITE_US. ID_BU .'DENS_ENER_DISS_TOTALE' ;
  86.   ChamDEDT = 'CHAN' 'CHAM' DensEnDT  SUR_APPL ;
  87.   EdTotale = 'INTG' BOITE_US. ID_BU .'MODINTG' ChamDEDT ;
  88.   BOITE_US. ID_BU .'ENERGIE_DISSIPEE_TOTALE' = 
  89.      BOITE_US. ID_BU .'ENERGIE_DISSIPEE_TOTALE' 'ET' EdTotale ;
  90. *
  91.   ChamUsuc = 'CHAN' 'CHAM' Uscycle SUR_APPL ;
  92.   VolUsCyc = 'INTG' BOITE_US. ID_BU .'MODINTG' ChamUsuc ;
  93.   BOITE_US. ID_BU .'VOLUME_USE_CYCLE' = 
  94.      BOITE_US. ID_BU .'VOLUME_USE_CYCLE' 'ET' VolUsCyc ;
  95. *
  96.   ChamUsut = 'CHAN' 'CHAM' Utotale SUR_APPL ;
  97.   VolusTot = 'INTG' BOITE_US. ID_BU .'MODINTG' ChamUsut ;
  98.   BOITE_US. ID_BU .'VOLUME_USE_TOTAL' = 
  99.      BOITE_US. ID_BU .'VOLUME_USE_TOTAL' 'ET' VolUsTot ;
  100. *-----------------------------------------------------------------------
  101. * - LARGEUR DE LA ZONE DE CONTACT
  102. *-----------------------------------------------------------------------
  103.   ChpCont = 'MASQ' DensEnDT 'SUPE' 0.D0 ;
  104.   ChmCont = 'CHAN' 'CHAM' ChpCont SUR_APPL ;
  105.   SurCont = 'INTG' BOITE_US. ID_BU .'MODINTG' ChmCont ;
  106.   BOITE_US. ID_BU .'LARGEUR_CONTACT_CYCLE' = 
  107.     BOITE_US. ID_BU .'LARGEUR_CONTACT_CYCLE' 'ET' SurCont ;
  108. *-----------------------------------------------------------------------
  109. * - CONSTRUCTION D'EVOLUTIONS AVANT DE QUITTER PASAPAS
  110. *-----------------------------------------------------------------------
  111.   'SI' ('EGA' BOITE_US.'INFOS'.'NB_CYCLES_RESTANTS' 0);
  112. *    
  113. *   Pression et cisaillement max en fonction du cycle calcule
  114.     PmCycle = 'EVOL' 'VERT' 'MANU' 
  115.             'Cycle_calcule' BOITE_US.'POST'.'CYCLES_CALCULES'
  116.             'Pression_Max'  BOITE_US. ID_BU .'PRESSION_MAX_CYCLE' ; 
  117.     CmCycle = 'EVOL' 'ROUG' 'MANU' 
  118.             'Cycle_calcule' BOITE_US.'POST'.'CYCLES_CALCULES'
  119.             'Cisaille_Max'  BOITE_US. ID_BU .'CISAILLEMENT_MAX_CYCLE' ;
  120. *
  121. *   Delta_g et Delta_t en fonction du cycle calcule
  122.     DgCycle = 'EVOL' 'BLEU' 'MANU' 
  123.            'Cycle_reel'  BOITE_US.'POST'.'CYCLES_REELS'
  124.            'Delta_G'     BOITE_US. ID_BU .'DELTA_G' ;
  125.     DtCycle = 'EVOL' 'ROUG' 'MANU' 
  126.            'Cycle_reel'  BOITE_US.'POST'.'CYCLES_REELS'
  127.            'Delta_T'     BOITE_US. ID_BU .'DELTA_T' ;
  128. *    
  129. *   Energie dissipee par cycle et totale en fonction du cycle calcule 
  130.     EdcCycle = 'EVOL' 'MANU' 
  131.        'Cycle_calcule'   BOITE_US.'POST'.'CYCLES_CALCULES'
  132.        'Ener_diss_cycle' BOITE_US. ID_BU .'ENERGIE_DISSIPEE_CYCLE' ; 
  133.     EdtCycle = 'EVOL' 'MANU' 
  134.        'Cycle_calcule'    (0 'ET' BOITE_US.'POST'.'CYCLES_CALCULES')
  135.        'Ener_diss_totale' BOITE_US. ID_BU .'ENERGIE_DISSIPEE_TOTALE' ;
  136. *
  137. *   Volume use en fonction du cycle reel et de l'energie dissipee
  138.     VuCycle = 'EVOL' 'MANU' 
  139.        'Cycle_reel'       (0 'ET' BOITE_US.'POST'.'CYCLES_REELS')
  140.        'Volume_use_total' BOITE_US. ID_BU .'VOLUME_USE_TOTAL' ;
  141.     VuEdt = 'EVOL' 'MANU' 
  142.        'Ener_diss_totale' BOITE_US. ID_BU .'ENERGIE_DISSIPEE_TOTALE'
  143.        'Volume_use_total' BOITE_US. ID_BU .'VOLUME_USE_TOTAL' ;
  144. *
  145.     BOITE_US. ID_BU .'PRESMAX_VS_CYCLES'   = PmCycle ;
  146.     BOITE_US. ID_BU .'CISAMAX_VS_CYCLES'   = CmCycle ;
  147.     BOITE_US. ID_BU .'DELTA_G_VS_CYCLES'   = DgCycle ; 
  148.     BOITE_US. ID_BU .'DELTA_T_VS_CYCLES'   = DtCycle ; 
  149.     BOITE_US. ID_BU .'ED_CYCLE_VS_CYCLES'  = EdcCycle ; 
  150.     BOITE_US. ID_BU .'ED_TOT_VS_CYCLES'    = EdtCycle ; 
  151.     BOITE_US. ID_BU .'V_USE_TOT_VS_CYCLES' = VuCycle ; 
  152.     BOITE_US. ID_BU .'V_USE_TOT_VS_ED_TOT' = VuEdt ; 
  153. *  
  154.   'FINSI' ;
  155. *-----------------------------------------------------------------------
  156. 'FINP' ;
  157.  
  158.  

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