Télécharger la plaquette Cast3M


fr en

Télécharger topofctr.procedur

Retour à la liste

Numérotation des lignes : 

  1. * TOPOFCTR  PROCEDUR  FD218221  23/11/29    21:15:08     11799          
  2. * TOPOFCTR  PROCEDUR  CB215821  21/04/15    14:10:01     9715
  3.  
  4. ************************************************************************
  5. ** Procedure called by TOPOPTIM for updating factor values.
  6. **
  7. ** Author:
  8. ** Guenhael Le Quilliec (LaMe - Polytech Tours)
  9. **
  10. ** Version:
  11. ** 1.0 2021/04/15
  12. ************************************************************************
  13.  
  14. DEBP TOPOFCTR tab0*'TABLE' ;
  15.  
  16. * Input data
  17. * **********
  18.  
  19. wtab0 = tab0.'WTABLE' ;
  20. bool0 = wtab0.'BOOL' ;
  21.  
  22. * Update factors
  23. * **************
  24.  
  25. * Update D factor (Damping)
  26. SI bool0.'FACTEUR_D_EVOL' ;
  27.     wtab0.'FACTEUR_D' = IPOL (FLOT wtab0.'CYCLE') tab0.'FACTEUR_D' ;
  28. FINS ;
  29.  
  30. * Update P factor
  31. SI bool0.'FACTEUR_P_EVOL' ;
  32.     wtab0.'FACTEUR_P' = IPOL (FLOT wtab0.'CYCLE') tab0.'FACTEUR_P' ;
  33. FINS ;
  34.  
  35. * Update Q factor (or Gray Scale Factor)
  36. SI bool0.'FACTEUR_Q_EVOL' ;
  37.     wtab0.'FACTEUR_Q' = IPOL (FLOT wtab0.'CYCLE') tab0.'FACTEUR_Q' ;
  38. FINS ;
  39.  
  40. FINP ;
  41.  
  42.  
  43.  

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