Télécharger la plaquette Cast3M


fr en

Télécharger topoinfo.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TOPOINFO  PROCEDUR  FD218221  23/11/29    21:15:09     11799          
  2. * TOPOINFO  PROCEDUR  CB215821  21/04/15    14:10:01     9715
  3.  
  4. ************************************************************************
  5. ** Procedure called by TOPOPTIM for giving information and remarks
  6. ** just before the optimization loop.
  7. **
  8. ** Author:
  9. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  10. **
  11. ** Version:
  12. ** 1.0 2021/04/15
  13. ************************************************************************
  14.  
  15. DEBP TOPOINFO tab0*'TABLE' ;
  16.  
  17. * Input data
  18. * **********
  19.  
  20. wtab0 = tab0.'WTABLE' ;
  21. bool0 = wtab0.'BOOL' ;
  22.  
  23. * Informations
  24. * ************
  25.  
  26. MESS 'Informations sur l''optimisation topologique :' ;
  27. MESS '=============================================' ;
  28. SI (NEG wtab0.'CYCLE' 1) ;
  29.     MESS '  - Poursuite / reprise d''une optimisation topologique' ;
  30. FINS ;
  31. SI bool0.'PASAPAS' ;
  32.     MESS '  - Resolution non lineaire (via la procedure PASAPAS)' ;
  33. SINO ;
  34.     MESS '  - Resolution lineaire (via l''operateur RESO)' ;
  35. FINS ;
  36. SI (bool0.'MECANIQUE' ET bool0.'THERMIQUE') ;
  37.     MESS '    d''un probleme thermo-mecanique' ;
  38. SINO ;
  39.     SI bool0.'MECANIQUE' ;
  40.         MESS '    d''un probleme mecanique' ;
  41.     FINS ;
  42.     SI bool0.'THERMIQUE' ;
  43.         MESS '    d''un probleme thermique' ;
  44.     FINS ;
  45. FINS ;
  46. SI bool0.'CAS_MULTIPLES' ;
  47.     MESS '    avec de multiples (' wtab0.'NB_CAS' ') cas de charge' ;
  48.     SI bool0.'RESTRICTIONS' ;
  49.         MESS '    et des restrictions geometriques' ;
  50.     FINS ;
  51. SINO ;
  52.     SI bool0.'RESTRICTIONS' ;
  53.         MESS '    avec des restrictions geometriques' ;
  54.     FINS ;
  55. FINS ;
  56. SI bool0.'MECANISME' ;
  57.     MESS '  - Maximisation des deplacements de sortie d''un mecanisme';
  58. FINS ;
  59. SI (bool0.'MECANIQUE' ET ((ABS tab0.'POIDS_ENERGIE_DEFO') > tab0.'PRECISION')) ;
  60.     MESS '  - Minimisation de l''energie de deformation elastique';
  61. FINS ;
  62. SI (bool0.'THERMIQUE' ET ((ABS tab0.'POIDS_ENERGIE_DEFO') > tab0.'PRECISION')) ;
  63.     MESS '  - Minimisation de la quantite de chaleur' ;
  64. FINS ;
  65. MESS '  - Contrainte sur la fraction volumique de ' tab0.'FRACTION_VOLUME' ;
  66. SI bool0.'ZONE_FIGEE' ;
  67.     MESS '    avec une portion du domaine initial figee' ;
  68. FINS ;
  69. * Filter type
  70. SI (EGA tab0.'FILTRE' 'MATRICE') ;
  71.     MESS '  - Filtre utilisant une matrice de filtrage (generee par MFIL)' ;
  72. SINO ;
  73.     MESS '  - Filtre classique (en Gibiane)' ;
  74. FINS ;
  75. SI tab0.'PROCEDURE_TOPOPERS' ;
  76.     MESS '  - Appel d''une procedure utilisateur (TOPOPERS)' ;
  77. FINS ;
  78. SI (NEG (VALE 'RESO') 'ITER') ;
  79.     MESS '        ' ;
  80.     MESS 'Remarque :' ;
  81.     MESS '==========' ;
  82.     MESS '  - L''option de resolution iterative n''est pas activee.' ;
  83.     MESS '    Activez la pour de meilleures performances.' ;
  84. FINS ;
  85. MESS '        ' ;
  86. SI (NON bool0.'PASAPAS') ;
  87.     MESS ' Cycle |   Objective  |  Max change  |Penalty fac. P| GSF factor Q | Nb. elem.' ;
  88. FINS ;
  89.  
  90. FINP ;
  91.  
  92.  
  93.  

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