Télécharger topomate.procedur

Retour à la liste

Numérotation des lignes :

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

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