Télécharger @USDEPL.procedur

Retour à la liste

Numérotation des lignes :

  1. * @USDEPL PROCEDUR MB234859 19/11/27 21:15:00 10399
  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. * [Collaboration LTDS - These E. Marc]
  13. *
  14. ***********************************************************************
  15. 'DEBP' @USDEPL T1*'TABLE' ID_BU*'ENTIER';
  16. *
  17. BOITE_US = T1.'BOITES_USURE' ;
  18. VREPN = BOITE_US. ID_BU .'VREP_POI1' ;
  19. VOL_REPA = BOITE_US. ID_BU .'VOLUME_REPARTITION' ;
  20. PINIT = BOITE_US. ID_BU .'SAPP_PTINI' ;
  21. SUR_APPL = BOITE_US. ID_BU .'SURFACE_APPLICATION' ;
  22. VUSURE_X = BOITE_US. ID_BU .'EVO_VX_USURE' ;
  23. VUSURE_Y = BOITE_US. ID_BU .'EVO_VY_USURE' ;
  24. *
  25. * Facteur multiplicatif pour appliquer l'usure en profondeur
  26. CDIST CDISN = 'PSIP' VOL_REPA SUR_APPL 'DEUX' PINIT ;
  27. CDISN = 'ABS' CDISN ;
  28. EPBOX = -1. * ('MAXI' CDISN) ;
  29. CHPUN = 'MANU' 'CHPO' VREPN 1 'PHI' 1. ;
  30. TauxU = (CDISN / EPBOX) '+' CHPUN ;
  31. TauxU = 'CHAN' TauxU 'COMP' 'SCAL' ;
  32. *
  33. * Recuperation du profil d'usure a appliquer
  34. EvDista = 'EVOL' 'CHPO' ('REDU' CDIST SUR_APPL) SUR_APPL ;
  35. ABS1 = 'EXTR' EvDista 'ORDO' ;
  36. NCyActu = BOITE_US.'INFOS'.'INDICE_CYCLE_ACTUEL' ;
  37. EvUsure = BOITE_US. ID_BU .'EVO_USURE_CYCLE' ;
  38. *
  39. EvxUsure = EvUsure * VUSURE_X ;
  40. ORD1 = 'EXTR' EvxUsure 'ORDO' ;
  41. EUsxDis = 'EVOL' 'MANU' ABS1 ORD1 ;
  42. ProfUx = 'IPOL' CDIST EUsxDis ;
  43. *
  44. EvyUsure = EvUsure * VUSURE_Y ;
  45. ORD1 = 'EXTR' EvyUsure 'ORDO' ;
  46. EUsyDis = 'EVOL' 'MANU' ABS1 ORD1 ;
  47. ProfUy = 'IPOL' CDIST EUsyDis ;
  48. *
  49. * Profil d'usure a appliquer en chaque noeud du volume VOL_REPA
  50. USVREPX = TauxU * ProfUx ;
  51. USVREPY = TauxU * ProfUy ;
  52. ValUSX = 'EXTR' USVREPX 'VALE' ;
  53. ValUSY = 'EXTR' USVREPY 'VALE' ;
  54. CHPO_Dep = 'MANU' 'CHPO' VREPN 2 'UX' ValUSX 'UY' ValUSY ;
  55. T1.'ESTIMATION'.'DEPLACEMENTS' = T1.'ESTIMATION'.'DEPLACEMENTS' + CHPO_Dep ;
  56. *
  57. * Deplacement des noeuds sur la configuration deformee
  58. 'FORM' (T1.'WTABLE'.'GE0_DEB') ;
  59. 'DEPL' 'PLUS' VREPN CHPO_Dep ;
  60. 'FORM' (T1.'WTABLE'.'FOR0') ;
  61. *
  62. 'FINP' ;
  63.  
  64.  
  65.  

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