Télécharger la plaquette Cast3M


fr en

Télécharger topoconv.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TOPOCONV  PROCEDUR  FD218221  25/12/18    21:15:04     12429          
  2.  
  3. ************************************************************************
  4. ** Procedure called by TOPOPTIM to assess convergence or check if the
  5. ** maximum number of iterations has been reached.
  6. **
  7. ** Author:
  8. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  9. **
  10. ** Version:
  11. ** 4.0 2025/11/17 This step was previously defined directly in the
  12. **                TOPOPTIM procedure
  13. ************************************************************************
  14.  
  15. DEBP TOPOCONV tab*'TABLE' ;
  16.  
  17. * Input data
  18. * **********
  19.  
  20. Wtab = tab.'WTABLE' ;
  21. Ltab = Wtab.'LOGIQUE' ;
  22.  
  23. * Convergence criteria and iteration counters
  24. * *******************************************
  25.  
  26. * Evaluate if the optimization loop has converged
  27. * or if the maximum number of iterations has been exceeded
  28. SI ((Wtab.'MAX_X_CHANGE' < tab.'CONVERGENCE_CRITERE') OU
  29.     (Wtab.'CYCLE' >EG tab.'MAX_CYCLES')) ;
  30.  
  31. *   Logical for convergence
  32.     tab.'CONVERGENCE' = Wtab.'MAX_X_CHANGE' < tab.'CONVERGENCE_CRITERE' ;
  33.  
  34. *   Stop trigger activated
  35.     Ltab.'STOP' = VRAI ;
  36.  
  37. FINS ;
  38.  
  39. FINP ;
  40.  
  41.  
  42.  

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