Télécharger la plaquette Cast3M


fr en

Télécharger topophys.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TOPOPHYS  PROCEDUR  FD218221  25/12/18    21:15:10     12429          
  2.  
  3. ************************************************************************
  4. ** Procedure called by TOPOPTIM for updating the physical densities
  5. ** (and the intermediate densities) from the design variables.
  6. **
  7. ** Author:
  8. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  9. **
  10. ** Version:
  11. ** 1.0 2025/11/24 Initial version
  12. ************************************************************************
  13.  
  14. DEBP TOPOPHYS tab*'TABLE' ;
  15.  
  16. * Input data
  17. * **********
  18.  
  19. Wtab = tab.'WTABLE' ;
  20. Ltab = Wtab.'LOGIQUE' ;
  21.  
  22. * Save previous intermediate densities (S)
  23. SI (EXIS Wtab 'S_D') ;
  24.     Wtab.'S_D_PRECED' = Wtab.'S_D' ;
  25. FINS ;
  26.  
  27. * Get the intermediate densities (S)
  28. * from the design variables (X)
  29. SI Ltab.'FILTRE_DENSITE' ;
  30. *   Apply filtering to the design variables (X)
  31. *   to obtain the intermediate densities (S)
  32.     Wtab.'S_D' = TOPOFILT tab Wtab.'X_D' ;
  33. SINO ;
  34. *   If no filtering is applied, S = X
  35.     Wtab.'S_D' = Wtab.'X_D' ;
  36. FINS ;
  37.  
  38. * Get the physical densities (Y)
  39. * from the intermediate densities (S)
  40. SI Ltab.'PROJECTION' ;
  41. *   Apply projection to obtain the physical densities Y
  42. *   from the intermediate densities (S)
  43.     TOPOPROJ tab ;
  44. SINO ;
  45. *   If no projection is applied, Y = S
  46.     Wtab.'Y_D' = Wtab.'S_D' ;
  47. FINS ;
  48.  
  49. FINP ;
  50.  
  51.  
  52.  

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