Télécharger la plaquette Cast3M


fr en

Télécharger usdepl.procedur

Retour à la liste

Numérotation des lignes : 

  1. * USDEPL    PROCEDUR  MB234859  24/02/06    21:15:03     11833          
  2. ************************************************************************
  3. *                         PROCEDURE USDEPL
  4. *
  5. * Procedure qui applique le profil d'usure au maillage.
  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' USDEPL T1*'TABLE' ID_BU*'ENTIER'; 
  15. *
  16.   BOITE_US = T1.'BOITES_USURE' ; 
  17.   BUSURE   = BOITE_US. ID_BU ;
  18.   VOL_REPA = BUSURE.'VOLUME_REPARTITION' ; 
  19.   SUR_APPL = BUSURE.'SURFACE_APPLICATION' ;
  20.   LF       = BOITE_US.'INFOS'.'LFORCE' ;
  21.   LU       = BOITE_US.'INFOS'.'LDEPLA' ;
  22.   LS       = BOITE_US.'INFOS'.'LSCAL' ;
  23. *-----------------------------------------------------------------------
  24. * - FACTEUR MULTIPLICATIF POUR APPLIQUER L'USURE DANS VOL_REPA
  25. *-----------------------------------------------------------------------
  26.   MAIL3 = BUSURE.'MAIL_PSIP' ;
  27.   'SI' BOITE_US.'INFOS'.'ITRID' ;
  28.     CDIST CDISN CDISP = 'PSIP' VOL_REPA SUR_APPL 'TROIS' MAIL3 ;
  29.   'SINON' ;
  30.     CDIST CDISN = 'PSIP' VOL_REPA SUR_APPL 'DEUX' MAIL3 ;
  31.   'FINSI' ; 
  32. * CDIST = 'ABS' CDIST ;
  33.   CDISN = 'ABS' CDISN ;
  34.   NOMDISN = 'EXTR' ('EXTR' CDISN 'COMP') 1;
  35.   NOMDIST = 'EXTR' ('EXTR' CDIST 'COMP') 1;
  36.   EPBOX = -1. * ('MAXI' CDISN) ;
  37.   CHPUN = 'MANU' 'CHPO' VOL_REPA 1 NOMDISN 1. ;
  38.   TauxU = (CDISN / EPBOX) '+' CHPUN ;
  39.   TauxU = 'CHAN' TauxU 'COMP' 'SCAL' ;
  40. *-----------------------------------------------------------------------
  41. * - PROFIL D USURE A APPLIQUER EN CHAQUE NOEUD DE VOL_REPA
  42. *-----------------------------------------------------------------------
  43.   CHUSURE = BUSURE.'USURE_CYCLE' '*' BUSURE.'VNORM_INTE' LS LF LU ;
  44.   ChProf = 'VIDE' 'CHPOINT' ;
  45. *
  46.   CDISTS = 'REDU' CDIST SUR_APPL ;
  47.   CUSURE = 'REDU' ('CHAN' 'ATTRIBUT' CHUSURE 'NATURE' 'DIFFUS') SUR_APPL ;
  48.   CHPTMP0 = CDIST ;
  49.   CHPTMP1 = CDISTS 'ET' CUSURE ;
  50.   'SI' BOITE_US.'INFOS'.'ITRID' ;
  51.     CDISPS = 'REDU' CDISP SUR_APPL ;
  52.     CHPTMP0 = CHPTMP0 'ET'  CDISP ;
  53.     CHPTMP1 = CDISPS 'ET' CHPTMP1 ;
  54. *** NUAGTMP = 'NUAG' (CDISTS 'ET' CDISPS 'ET' CUSURE) ;
  55. *** CHPOTMP = 'IPOL' (CDIST 'ET' CDISP) NUAGTMP 'PID' ;
  56. *** ChProf  = ChProf 'ET' CHPOTMP ;
  57. *
  58.   'SINON' ;
  59. *
  60.   SI FAUX ;
  61.     VALDIST = 'REDU' CDIST SUR_APPL ;
  62.     VALDIST = ('CHAN' 'COMP' BUSURE.'CZERO' NOMDIST) 'ET' 
  63.       ('CHAN' 'ATTRIBUT' VALDIST 'NATURE' 'DISCRET')  ;
  64.     ABSDIST = 'EXTR' VALDIST 'VALE' ; 
  65.     'REPE' BCOMP ('DIME' LU) ;
  66.       NOMCOMP = 'EXTR' LU &BCOMP ; 
  67.       VALCOMP = 'EXCO' CHUSURE NOMCOMP NOMCOMP ;
  68.       VALETMP = 'EXTR' VALCOMP 'VALE' ;
  69. ****  EVOLTMP = 'EVOL' 'MANU' ABSDIST VALETMP ;
  70. **
  71. ***   LABSC = 'PROG' ; LORDO = 'PROG' ;
  72. ***   'REPE' BNOEUD ('NBNO' SUR_APPL) ;
  73. ***     NODE = SUR_APPL 'POIN' &BNOEUD ;
  74. ***     LABSC = LABSC 'ET' ('EXTR' VALDIST 'VALE' NODE) ; 
  75. ***     LORDO = LORDO 'ET' ('EXTR' VALCOMP 'VALE' NODE) ; 
  76. ***   'FIN' BNOEUD ;
  77. ***   EVOLTMP = 'EVOL' 'MANU' LABSC LORDO ;
  78. **
  79. ****  CHPOTMP = 'IPOL' CDIST EVOLTMP ;
  80. ****  ChProf  = ChProf 'ET' ('CHAN' 'COMP' CHPOTMP NOMCOMP) ;
  81. **
  82.       NUAGTMP = 'NUAG' 'COMP' NOMDIST ABSDIST 'COMP' NOMCOMP VALETMP ;
  83.       CHPOTMP = 'IPOL' NUAGTMP CDIST 'GRILL' ;
  84.       ChProf  = ChProf 'ET' CHPOTMP ;
  85. **  
  86.     'FIN' BCOMP ;
  87.   'FINSI' ;
  88.   'FINSI' ;
  89.   NUAGTMP = 'NUAG' CHPTMP1 ;
  90.   CHPTMP2 = 'IPOL' CHPTMP0 NUAGTMP 'PID' ;
  91.   CHPO_Dep = TauxU * CHPTMP2 ;
  92. *-----------------------------------------------------------------------
  93. * - MODIFICATIONS DU CHAMP DE DEPLACEMENTS ET DE LA CONFIGURATION
  94. *-----------------------------------------------------------------------
  95.   T1.'ESTIMATION'.'DEPLACEMENTS' = 
  96.     (T1.'ESTIMATION'.'DEPLACEMENTS') + CHPO_Dep ;
  97. *  
  98. * Deplacement des noeuds dans la configuration deformee
  99.   'FORM' T1.'WTABLE'.'GE0_DEB' ;
  100.   'DEPL' VOL_REPA 'PLUS' CHPO_Dep ;
  101.   'FORM' T1.'WTABLE'.'FOR0' ;
  102. *-----------------------------------------------------------------------
  103. 'FINP' ; 
  104.  
  105.  

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