Télécharger drx_grd_defo_cisail_elplas.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : drx_grd_defo_cisail_elplas.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *
  5. * CAS TEST POUR LES GRANDES DÉFORMATIONS
  6. *
  7. *
  8. * ref Rapport DMT 96/359 A de Gayffier
  9. * "Les lois de comportement des matériaux solides
  10. * en grandes déformations dans Castem2000 et Plexus"
  11.  
  12. *
  13. * on considère un test de traction sur un rectangle
  14. * en 2D deformation planes
  15. *
  16. * comparaison avec une solution analytique
  17. compar = vrai ;
  18. graph = faux;
  19. *
  20. opti dime 2 elem seg2 mode plan defo ;
  21. opti epsilon lineaire;
  22.  
  23. y1 = 1. ;
  24. y2 = 1. ;
  25.  
  26. p1 = 0. 0. ;
  27. p2 = y1 0. ;
  28. p3 = y1 y2 ;
  29. p4 = 0. y2 ;
  30.  
  31. n = 1 ;
  32. l1 = d n p1 p2 ;
  33. l2 = d n p2 p3 ;
  34. l3 = d n p3 p4 ;
  35. l4 = d n p4 p1 ;
  36.  
  37. opti elem qua4 ;
  38. su1 = dall l1 l2 l3 l4 plan ;
  39.  
  40.  
  41. youn1 = 1.d0 ;
  42. nu1 = 0.3 ;
  43. h = 0.1 ;
  44. evtrac = evol manu ( prog 0. 1.732 11.732 ) ( prog 0. 1.732 2.641 ) ;
  45. mod1 = mode su1 mecanique elastique plastique isotrope ;
  46. mat1 = mate mod1 'YOUN' youn1 'NU' nu1 'RHO' 1.d0 'TRAC' evtrac;
  47.  
  48. blo1 = bloq l1 'UY' 'UX' ;
  49. blox3 = bloq l3 'UX' ;
  50. bloy3 = bloq l3 'UY' ;
  51. blo2 = bloq l2 'UY' ;
  52. blo4 = bloq l4 'UY' ;
  53.  
  54. * le chargement unité correspond à 100% de defo suivant x
  55. fblo2 = depi blox3 y1 ;
  56. lt1 = prog 0. pas 10. 400. ;
  57. * L'acceleration des blocages est nulle
  58. evt = evol manu lt1 (lt1 * 0.) ;
  59.  
  60.  
  61.  
  62. char1 = char 'MECA' evt fblo2 ;
  63.  
  64. tab1 = table 'DYNEXPLX' ;
  65. tab1 . 'VITESSE_INITIALE' = ('MANU' 'CHPO' su1 2 'UX' 0. 'UY' 0. 'NATURE' 'DIFFUS') + ( 'MANU' 'CHPO' ( P3 ET P4 ) 1 'UX' 0.01) ;
  66. tab1 . 'MODELE' = mod1 ;
  67. tab1 . 'CARACTERISTIQUES' = mat1 ;
  68. tab1 . 'CHARGEMENT'= char1 ;
  69. tab1 . 'LIAISONS' = blo1 et blox3 et bloy3 ;
  70. tab1 . 'MASSE_CONSISTANTE' = faux ;
  71. tab1 . 'GRANDES_DEFORMATIONS' = vrai ;
  72. tab1 . 'PAS_TEMPS' = 5. ;
  73. tab1 . 'NPASMAX' = 10000 ;
  74. tab1 . 'TEMPS_SORTIE' = lt1 * 0.99999 ;
  75.  
  76.  
  77. DREXUS tab1 ;
  78.  
  79.  
  80.  
  81.  
  82. * sortie deformation - force suivant x
  83.  
  84. lpxx = prog ;
  85. lpyy = prog ;
  86. lpxy = prog ;
  87. lpp = prog ;
  88. lepxy = prog ;
  89.  
  90. i=0 ;
  91. repeter bloc1 ( dime tab1 . deplacements ) ;
  92.  
  93. dep1 = tab1 . deplacements . i ;
  94. sig1 = tab1 . contraintes . i ;
  95. var1 = tab1 . variables_internes . i ;
  96. def1 = tab1 . deformations_inelastiques . i ;
  97.  
  98. pxx = intg sig1 mod1 'SMXX';
  99. pyy = intg sig1 mod1 'SMYY';
  100. pxy = intg sig1 mod1 'SMXY';
  101. p = ( intg var1 mod1 'EPSE' ) ;
  102. epsxy = ( intg def1 mod1 'GAXY' ) / 2.;
  103. lpxx = lpxx et (prog pxx ) ;
  104. lpyy = lpyy et (prog pyy ) ;
  105. lpxy = lpxy et (prog pxy ) ;
  106. lpp = lpp et ( prog p ) ;
  107. lepxy = lepxy et ( prog epsxy ) ;
  108. i = i+1 ;
  109. fin bloc1 ;
  110.  
  111.  
  112. k2gdsxx = evol bleu manu 'defo' lt1 lpxx ;
  113. k2gdsyy = evol bleu manu 'defo' lt1 lpyy ;
  114. k2gdsxy = evol bleu manu 'defo' lt1 lpxy ;
  115. k2gdhp = evol bleu manu 'defo' lt1 lpp ;
  116. k2gdepxy = evol bleu manu 'defo' lt1 lepxy ;
  117.  
  118.  
  119. tabgraf = table ;
  120. tabgraf . 1 = 'MARQ CROI ' ;
  121. tabgraf . 2 = 'MARQ ETOI ' ;
  122. tabgraf . 3 = 'MARQ TRIA ';
  123. tabgraf . 4 = 'MARQ PLUS ' ;
  124. tabgraf.'TITRE' = table ;
  125. tabgraf .'TITRE'. 1 = mot 'sxx_k2000' ;
  126. tabgraf .'TITRE'. 2 = mot 'syy_k2000' ;
  127. tabgraf .'TITRE'. 3 = mot 'sxy_k2000';
  128. tabgraf .'TITRE'. 4 = mot 'Hp_k2000' ;
  129.  
  130.  
  131. 'TITR' 'Solution numérique avec DREXUS' ;
  132. si graph ;
  133. dess (k2gdsxx et k2gdsyy et k2gdsxy et k2gdepxy) tabgraf lege ;
  134. finsi;
  135. * Solution analytique avec la derivée de Truesdell
  136. * Cette solution a été obtenue par intégration d'un système
  137. * d'équation réduit avec un algorithme de Runge Kutta.
  138. * cf referénce page 37
  139.  
  140.  
  141. lanaxx = prog 0.0E+00 8.63882E-03 2.06581E-02 3.62831E-02 6.75331E-02 9.87831E-02 .14325 .19373 .24782 .31753 .38724 .47018 .55912 .65167 .75984 .86801 .98941 1.1168 1.2462 1.3185 1.3846 1.4465 1.5049 1.5605 1.6139 1.6655 1.7157 1.7649 1.8135 1.8617 1.9097 1.9578 2.0062 2.0551 2.1046 2.1549 2.2062 2.2586 2.3121 2.3671 2.4233 ;
  142. ANASXX = evol rouge manu lt1 lanaxx ;
  143.  
  144.  
  145. lanaxy = prog 0.00000E+00 3.84615E-02 7.69231E-02 .11538 .15385 .19231 .23077 .26923 .30769 .34615 .38462 .42308 .46154 .50000 .53846 .57692 .61538 .65385 .69231 .67975 .66974 .66312 .65967 .65914 .66130 .66591 .67280 .68169 .69235 .70464 .71834 .73330 .74935 .76638 .78423 .80281 .82201 .84176 .86195 .88258 .90354 ;
  146. ANASXY = evol rouge manu lt1 lanaxy ;
  147.  
  148.  
  149. lanayy = prog 0.0E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.0E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.0E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.00E+00 3.24362E-02 6.68313E-02 .10251 .13941 .17752 .21683 .25737 .29919 .34228 .38668 .43244 .47957 .52809 .57801 .62937 .68213 .73631 .79192 .84894 .90729 .96713 1.0282 ;
  150. ANASYY = evol rouge manu lt1 lanayy ;
  151.  
  152.  
  153.  
  154. tabgraf = table ;
  155.  
  156. tabgraf . 1 = 'MARQ CROI REGU ' ;
  157. tabgraf . 2 = 'MARQ ETOI REGU ' ;
  158. tabgraf . 3 = 'MARQ TRIA REGU ' ;
  159.  
  160. tabgraf . 4 = 'MARQ CROI REGU ' ;
  161. tabgraf . 5 = 'MARQ ETOI REGU ' ;
  162. tabgraf . 6 = 'MARQ TRIA REGU ' ;
  163. tabgraf.'TITRE' = table ;
  164. tabgraf .'TITRE'. 1 = mot 'sxx_ana' ;
  165. tabgraf .'TITRE'. 2 = mot 'syy_ana' ;
  166. tabgraf .'TITRE'. 3 = mot 'sxy_ana' ;
  167.  
  168. tabgraf .'TITRE'. 4 = mot 'sxx_k2000' ;
  169. tabgraf .'TITRE'. 5 = mot 'syy_k2000' ;
  170. tabgraf .'TITRE'. 6 = mot 'sxy_k2000' ;
  171.  
  172. titr 'Test de Cisaillement elasto-plastique - H = 0' ;
  173. si graph ;
  174. dess ( anasxx et anasyy et anasxy et k2gdsxx et k2gdsyy et k2gdsxy ) tabgraf LEGE ;
  175. finsi;
  176.  
  177. * code de bon fonctionnement
  178. err1 = (maxi abs ( lpxx - lanaxx )) / ( maxi abs lanaxx ) * 100.;
  179. err2 = (maxi abs ( lpxy - lanaxy )) / ( maxi abs lanaxy ) * 100.;
  180.  
  181.  
  182. 'OPTI' 'ECHO' 0 ;
  183. 'SAUTER' 1 LIGNE ;
  184. 'MESS' 'Erreur sur SMXX' err1 '% ' 'Erreur sur SMXY' err2 '%';
  185. 'SAUTER' 1 LIGNE ;
  186. 'OPTI' 'ECHO' 1 ;
  187.  
  188. si ( ( err1 '>EG' 5. ) 'OU' ( err2 '>EG' 5. ) ) ;
  189. erreur 5 ;
  190. finsi ;
  191.  
  192.  
  193. fin ;
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  

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