Télécharger la plaquette Cast3M


fr en

Télécharger usacce.procedur

Retour à la liste

Numérotation des lignes : 

  1. * USACCE    PROCEDUR  MB234859  24/02/06    21:15:02     11833          
  2. ***********************************************************************
  3. *                         PROCEDURE USACCE 
  4. *
  5. * Procedure recuperant ou estimant le facteur de saut de cycle.
  6. *
  7. * Entree :
  8. *   T1     : Table de PASAPAS
  9. *
  10. * Sortie :
  11. *   deltaN : facteur de saut de cycle
  12. *
  13. * Appelee par USIMPL et USEXPL
  14. *
  15. ************************************************************************
  16. 'DEBP' USACCE T1*'TABLE' ;
  17. *
  18.   BOITE_US = T1.'BOITES_USURE' ; 
  19.   CycActu  = BOITE_US.'INFOS'.'INDICE_CYCLE_ACTUEL';
  20.   NbCycRe  = BOITE_US.'INFOS'.'NB_CYCLES_RESTANTS' ;
  21.   NCycle   = BOITE_US.'DONNEES'.'NB_CYCLES';
  22.   deltaN   = BOITE_US.'INFOS'.'ACCELERATION' ;
  23. *
  24.   'SI' ('NON' BOITE_US.'INFOS'.'SCH_EXPL');
  25.     'SI' ('EXIS' BOITE_US.'POST'.'FACTEUR_ACCELERATION' CycActu) ;
  26.       deltaN = BOITE_US.'POST'.'FACTEUR_ACCELERATION'. CycActu ;
  27.       'QUIT' USACCE ;
  28.     'SINON';
  29.       deltaNList = 'PROG' 0. 0. ;
  30.       'SI' (CycActu '>EG' BOITE_US.'INFOS'.'DN_CYCLES_INIT') ;
  31.         'REPE' BU BOITE_US.'INFOS'.'N_BOITES';
  32. *
  33. *         Deduire la valeur du facteur d'acceleration a partir de L(N)
  34.           LLargCont = BOITE_US. &BU  .'LARGEUR_CONTACT_CYCLE';
  35.           LCycReels = BOITE_US.'POST'.'CYCLES_REELS';
  36. *
  37. *         On calcule lambda1 et lambda2 de maniere a approcher cette evolution
  38.           paramsIn = 'PROG' 0.005 0.3;
  39.  
  40. *         On retranche la largeur de contact initiale 
  41. *         (uniquement si L(N) = L_0 + lambda_1*N**lambda_2)
  42.           LLargCont = LLargCont '-' ('EXTR' LLargCont 1) ;
  43.  
  44. *         LPoids : la liste des ponderations pour LEVM
  45.           LPoids = 'PROG' ('DIME' LLargCont) '*' 1. ;
  46. ***       repe i (dime LLargCont);
  47. ***          LPoids = LPoids et ((extr listLargContRedu &i)**2);
  48. ***         LPoids = LPoids et 1.;
  49. ***       fin i;
  50.  
  51. *         Appel à LEVM : determiner lambda1 et lambda2
  52.           paramsOut chi2Out = levm 'ABSC' LCycReels 'ORDO' LLargCont
  53.             'SIGM' LPoids 'PARA' paramsIn 'PROC' USADAC ; 
  54. *
  55.           A DN = USADAC (PROG) (paramsOut 'ET' (NCycle '-' NbCycRe)) ;
  56.           deltaNBU = BOITE_US.'INFOS'.'DELTA_L0' '/' DN ;
  57.           'REMP' deltaNList &BU deltaNBu ;
  58.         'FIN' BU;
  59.       'FINSI' ;
  60.       deltaN = 'MINI' deltaNList;
  61.       'SI' (deltaN '<' BOITE_US.'INFOS'.'ACCELERATION');
  62.         deltaN = BOITE_US.'INFOS'.'ACCELERATION';
  63.       'FINSI';
  64.     'FINSI';
  65.   'FINSI';
  66. *  
  67.   'SI' (deltaN '>' NbCycRe);
  68.     deltaN = NbCycRe;
  69.   'FINSI';
  70.   BOITE_US.'POST'.'FACTEUR_ACCELERATION'. CycActu = deltaN ;
  71. *-----------------------------------------------------------------------
  72. 'FINP' deltaN ;
  73.  
  74.  

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