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