Télécharger la plaquette Cast3M


fr en

Télécharger extr_chm_vale.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  extr_chm_vale.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *
  5. *********************  CAS TEST : test_chm_vale.dgibi  *********************
  6.  
  7. ** Petit test de l'option 'VALE' de EXTR avec un objet MCHALM
  8. *  extraction de l'ensemble des valeurs d'un champ par elements
  9.  
  10.  
  11.  
  12. ** Maillages et modeles utiles
  13. OPTI 'DIME' 2 'ELEM' 'QUA8' ;
  14. nx  = 5 ;
  15. p1  = 0. 0. ;
  16. p2  = 1. 0. ;
  17. l1  = DROI nx p1 p2 ;
  18. s1  = l1 TRAN nx (0. 1.) ;
  19. ml1 = MODE l1 'MECANIQUE' ;
  20. ms1 = MODE s1 'MECANIQUE' ;
  21.  
  22.  
  23. ** Cas d'un MCHAML vide
  24. a0  = VIDE 'MCHAML' ;
  25. la0 = EXTR a0 'VALE' 'SHEB' ;
  26. LIST la0 ;
  27.  
  28. ** Cas d'un MCHAML variable aux points de gauss
  29. ze  = ZERO ml1 'STRESSES' ;
  30. a1  = COOR 1 ze ;
  31. a1  = NOMC 'WIZZ' a1 ;
  32. la1 = EXTR a1 'VALE' 'WIZZ' ;
  33. LIST la1 ;
  34.  
  35. ** Cas d'un MCHAML constant par elements
  36. lx  = BRUI 'BLAN' 'UNIF' 42. 5. nx ;
  37. a2  = MANU 'CHML' ml1 'REPA' 'POW' lx ;
  38. la2 = EXTR a2 'VALE' 'POW' ;
  39. LIST la2 ;
  40.  
  41. ** Cas d'un MCHAML constant
  42. a3  = MANU 'CHML' ml1 'BLOP' 42. ;
  43. la3 = EXTR a3 'VALE' 'BLOP' ;
  44. LIST la3 ;
  45.  
  46. ** Cas d'un MCHAML a plusieurs sous zones
  47. a4  = (MANU 'CHML' ms1 'WIZZ' 42.) ET a0 ET a1 ET a2 ET a3 ;
  48. la4 = EXTR a4 'VALE' 'WIZZ' ;
  49. LIST la4 ;
  50.  
  51. ** Cas d'un MCHAML constant contenant des pointeurs
  52. ob1 = EVOL 'MANU' (PROG 1. 2.) (PROG 3. 4.) ;
  53. ob2 = COOR 1 l1 ;
  54. a5  = (MANU 'CHML' ml1 'ZIP' ob1) ET (MANU 'CHML' ms1 'ZIP' ob2) ;
  55. la5 = EXTR a5 'VALE' 'ZIP' ;
  56. LIST la5 10 ;
  57.  
  58.  
  59. FIN ;
  60.  
  61.  
  62.  

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