Télécharger la plaquette Cast3M


fr en

Télécharger @usdepl.procedur

Retour à la liste

Numérotation des lignes : 

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

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