Télécharger la plaquette Cast3M


fr en

Télécharger topoagre.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TOPOAGRE  PROCEDUR  FD218221  26/02/16    21:15:08     12436          
  2.  
  3. ************************************************************************
  4. ** Procedure called by TOPOCONT to evaluate the aggregated constraint
  5. ** and its derivative.
  6. **
  7. ** Author:
  8. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  9. **
  10. ** Version:
  11. ** 1.0 2025/11/21 Initial version
  12. ************************************************************************
  13.  
  14. DEBP TOPOAGRE tab*'TABLE' fld*'MCHAML' mod*'MMODEL' ;
  15.  
  16. * General input data
  17. * ******************
  18.  
  19. Wtab = tab.'WTABLE' ;
  20.  
  21. * Values and parameters
  22. * *********************
  23.  
  24. * List of values to be aggregated
  25. lstval = EXTR fld 'VALE' 'SCAL' ;
  26.  
  27. * Name/type of the aggregation function
  28. aggtyp = Wtab.'AGREGATION' ;
  29. aggp   = Wtab.'AGREGATION_P' ;
  30.  
  31. * Aggregation and its derivative
  32. * ******************************
  33.  
  34. agg dagg = AGRE aggtyp lstval aggp 'DERI' ;
  35.  
  36. * Derivative output field
  37. * ***********************
  38.  
  39. dagg = MANU 'CHML' mod 'REPA' 'SCAL' dagg 'TYPE' 'SCALAIRE' 'GRAVITE' ;
  40.  
  41. FINP agg dagg ;
  42.  
  43.  
  44.  
  45.  

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