Télécharger la plaquette Cast3M


fr en

Télécharger boite.procedur

Retour à la liste

Numérotation des lignes : 

  1. * BOITE     PROCEDUR  GOUNAND   16/12/01    21:15:02     9218           
  2. ************************************************************************
  3. * NOM         : BOITE
  4. * DESCRIPTION : maille une boite englobante d'un maillage
  5. *
  6. *
  7. *
  8. * LANGAGE     : GIBIANE-CAST3M
  9. * AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  10. *               mél : stephane.gounand@cea.fr
  11. **********************************************************************
  12. * VERSION    : v1, 29/11/2016, version initiale
  13. * HISTORIQUE : v1, 29/11/2016, création
  14. * HISTORIQUE :
  15. * HISTORIQUE :
  16. ************************************************************************
  17. *
  18. 'DEBPROC' BOITE ;
  19. *
  20. 'ARGU' monmai*'MAILLAGE' ;
  21. *
  22. vdim = 'VALEUR' 'DIME' ;
  23. lmima = 'PROG' ;
  24. *
  25. 'REPETER' iidim vdim ;
  26.    idim = &iidim ;
  27.    cooi = 'COORDONNEE' idim monmai ;
  28.    mii = 'MINIMUM' cooi ;
  29.    mai = 'MAXIMUM' cooi ;
  30.    lmima = 'ET' lmima ('PROG' mii mai) ;
  31. 'FIN' iidim ;
  32. *
  33. 'SI' ('EGA' vdim 1) ;
  34.    xmin = 'EXTR' lmima 1 ;
  35.    xmax = 'EXTR' lmima 2 ;
  36.    p1 = 'POIN' xmin ; p2 = 'POIN' xmax ;
  37.    mb = 'MANU' 'SEG2' p1 p2 ;
  38. 'FINS' ;
  39. *
  40. 'SI' ('EGA' vdim 2) ;
  41.    xmin = 'EXTR' lmima 1 ; xmax = 'EXTR' lmima 2 ;
  42.    ymin = 'EXTR' lmima 3 ; ymax = 'EXTR' lmima 4 ;
  43.    p1 = xmin ymin ; p2 = xmax ymin ;
  44.    p3 = xmax ymax ; p4 = xmin ymax ;
  45.    mb = 'MANU' 'QUA4' p1 p2 p3 p4 ;
  46. 'FINS' ;
  47. *
  48. 'SI' ('EGA' vdim 3) ;
  49.    xmin = 'EXTR' lmima 1 ; xmax = 'EXTR' lmima 2 ;
  50.    ymin = 'EXTR' lmima 3 ; ymax = 'EXTR' lmima 4 ;
  51.    zmin = 'EXTR' lmima 5 ; zmax = 'EXTR' lmima 6 ;
  52.    p1 = xmin ymin zmin ; p2 = xmax ymin zmin ;
  53.    p3 = xmax ymax zmin ; p4 = xmin ymax zmin ;
  54.    p5 p6 p7 p8 = 'PLUS' p1 p2 p3 p4 (0. 0. ('-' zmax zmin)) ;
  55.    mb = 'MANU' 'CUB8' p1 p2 p3 p4 p5 p6 p7 p8 ;
  56. 'FINS' ;
  57. *
  58. 'RESPRO' mb ;
  59. *
  60. * End of procedure file BOITE
  61. *
  62. 'FINPROC' ;
  63.  
  64.  
  65.  

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