Télécharger topomate.procedur

Retour à la liste

Numérotation des lignes :

  1. * TOPOMATE PROCEDUR CB215821 18/03/22 21:15:02 9786
  2.  
  3. ************************************************************************
  4. ** Procedure called by TOPOPTIM for modifying the material properties to
  5. ** take into account a given density field
  6. **
  7. ** Author:
  8. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  9. **
  10. ** Version:
  11. ** 1.0 2017/04/18
  12. ************************************************************************
  13.  
  14. DEBP TOPOMATE mod0*'MMODEL' mat0*'MCHAML' dens0*'MCHAML' ;
  15. SI (EXIS mod0 'FORM' 'MECANIQUE') ;
  16. name0 = 'YOUN' ;
  17. SINO ;
  18. name0 = 'K' ;
  19. FINS ;
  20. * Multiply the desired variable by the density field
  21. mat1 = (EXCO name0 mat0) *
  22. (CHAN dens0 mod0 'RIGIDITE' '') ;
  23. * Extract the remaining variables
  24. tmp1 = (mat0 EXTR 'COMP') SAUF (MOTS name0) ;
  25. * Add them to the output field
  26. SI ((DIME tmp1) > 0) ;
  27. mat1 = mat1 ET (mat0 EXCO tmp1) ;
  28. FINS ;
  29. FINP mat1 ;
  30.  
  31.  
  32.  

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