Télécharger la plaquette Cast3M


fr en

Télécharger maxi_noeuds_01.dgibi

Retour à la liste

Numérotation des lignes : 

  1. itrac = FAUX ;
  2.  
  3. OPTI 'DIME' 2 'ELEM' 'QUA4' ;
  4.  
  5. mail = (DROI 1 (0. 0.) (0. 0.3)) TRAN 5 (1. 0.) ;
  6. mo   = MODE mail 'MECANIQUE' ;
  7.  
  8. ** Test sur un champ constant par element avec 1 sous zone
  9. lis1 = PROG 1. 2. 3. 4. 5. ;
  10. chm1 = MANU 'CHML' mo 'REPA' 'SCAL' lis1 ;
  11. chp1 = MINI 'NOEU' mo chm1 ;
  12. chp2 = MAXI 'NOEU' mo chm1 ;
  13. SI itrac ;
  14.   TRAC chm1 mo 'TITR' 'MCHAML de depart' ;
  15.   TRAC chp1 mail 'TITR' 'CHPOINT resultat de MINI NOEU' ;
  16.   TRAC chp2 mail 'TITR' 'CHPOINT resultat de MAXI NOEU' ;
  17. FINSI ;
  18.  
  19. ** Test sur un champ variable sur plusieurs sous zones
  20. OPTI 'ELEM' 'TRI6' 'DENS' 0.1 ;
  21. mail = (DROI (0. 0.) (0. 0.3)) TRAN (1. 0.) ;
  22. lig1 = mail COTE 1 ;
  23. lig2 = mail COTE 3 ;
  24. OPTI 'ELEM' 'QUA8' ;
  25. toto = lig2 ROTA 90. (1. 0.6) ;
  26. lig2 = toto COTE 3 ;
  27. mail = mail ET toto ;
  28. OPTI 'MODE' 'PLAN' 'DEFO' ;
  29. mo   = MODE mail 'MECANIQUE' ;
  30. ma   = MATE mo 'YOUN' 1.E9 'NU' 0.3 ;
  31. ri   = RIGI mo ma ;
  32. bl   = BLOQ 'DEPL' lig1 ;
  33. f    = FSUR 'MASS' mo lig2 (0. 1.E3) ;
  34. u    = RESO (ri ET bl) f ;
  35. sig  = SIGM mo ma u ;
  36. sig  = PRIN mo sig ;
  37. sig1 = CHAN 'CHPO' mo sig ;
  38. sig2 = MINI 'NOEU' mo sig ;
  39. sig3 = MAXI 'NOEU' mo sig ;
  40. SI itrac ;
  41.   TRAC sig  mo   'TITR' 'MCHAML de contraintes' ;
  42.   TRAC sig1 mail 'TITR' 'CHPOINT de contraintes (moyennes aux noeuds)' ;
  43.   TRAC sig2 mail 'TITR' 'CHPOINT de contraintes (mini aux noeuds)' ;
  44.   TRAC sig3 mail 'TITR' 'CHPOINT de contraintes (maxi aux noeuds)' ;
  45. FINSI ;
  46.  
  47. FIN ;
  48.  
  49.  
  50.  

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