Télécharger joi23.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : joi23.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. OPTI ECHO 0 ;
  5. SAUT PAGE ;
  6. MESS'!==============================================================!';
  7. MESS'! !';
  8. MESS'! TEST JOI23 !';
  9. MESS'! !';
  10. MESS'! ESSAI DE CISAILLEMENT SUR UN JOINT 2D !';
  11. MESS'! !';
  12. MESS'! Un joint 2D JOI2 a son bord inferieur encastre. !';
  13. MESS'! Son bord superieur est libre. Un effort de cisaillemnent !';
  14. MESS'! est exercee sur son bord superieur. !';
  15. MESS'! !';
  16. MESS'! !';
  17. MESS'! Solution analytique : !';
  18. MESS'! !';
  19. MESS'! En ecrivant le principe des travaux virtuels, on montre !';
  20. MESS'! que le deplacement delta en chaque noeud est egal, dans le !';
  21. MESS'! cas d un essai de traction uniaxial, a : !';
  22. MESS'! F !';
  23. MESS'! delta = ---------------- !';
  24. MESS'! k * L * l !';
  25. MESS'! ou !';
  26. MESS'! F = force totale exercee sur la structure !';
  27. MESS'! k = raideur !';
  28. MESS'! L = longueur de l element joint !';
  29. MESS'! l = largeur de l element joint !';
  30. MESS'! !';
  31. MESS'! Application numerique : !';
  32. MESS'! !';
  33. MESS'! F = 100000.0 !';
  34. MESS'! k = 4.2E08 !';
  35. MESS'! L = 2.0 !';
  36. MESS'! l = 1.0 !';
  37. MESS'! !';
  38. MESS'! Delta = 100000 / (4.2E08 * 2.0 * 1.0) !';
  39. MESS'! = 1.19047619E-4 !';
  40. MESS'! !';
  41. MESS'!==============================================================!';
  42. OPTION ELEM SEG2 MODE PLAN CONT ;
  43. *
  44. SOLANA = 1.190476E-4 ;
  45. SOLNUL = 0.0 ;
  46. *
  47. * ---------- DEFINITION DE LA SURFACE TOP DU JOINT ----------
  48. *
  49. A1 = 0.00 0.00 ;
  50. B1 = 2.00 0.00 ;
  51. *
  52. * ---------- MAILLAGE ----------
  53. *
  54. H1 = A1 DROIT 1 B1 ;
  55. *
  56. L1 = H1 ;
  57. *
  58. * ---------- DEFINITION DE LA SURFACE BOT DU JOINT ----------
  59. *
  60. IA1 = 0.00 0.00 ;
  61. IB1 = 2.00 0.00 ;
  62. *
  63. * ---------- MAILLAGE ----------
  64. *
  65. IH1 = IA1 DROIT 1 IB1 ;
  66. *
  67. IL1 = IH1 ;
  68. *
  69. * ---------- CREATION DU JOINT JOI2 ----------
  70. *
  71. OPTION ELEM RAC2 ;
  72. VOL = RACCORD 0.00001 L1 IL1 ;
  73. *
  74. * ---------- DEFINITION DES CONDITIONS LIMITES ----------
  75. *
  76. CL11 = BLOQ IA1 UX ;
  77. CL12 = BLOQ IA1 UY ;
  78. CL1 = CL11 ET CL12 ;
  79. *
  80. CL21 = BLOQ IB1 UX ;
  81. CL22 = BLOQ IB1 UY ;
  82. CL2 = CL21 ET CL22 ;
  83. *
  84. CL = CL1 ET CL2 ;
  85. *
  86. * ---------- DEFINITION DU MODELE DU JOINT ----------
  87. *
  88. MOD1 = MODE VOL 'MECANIQUE' 'ELASTIQUE' 'ISOTROPE' JOI2 ;
  89. MA1 = MATE MOD1 KS 4.2E08 KN 4.2E10 ;
  90. *
  91. * ---------- MATRICE DE HOOK ----------
  92. *
  93. HOO1 = HOOKE MOD1 MA1 ;
  94. ******LIST HOO1 ;
  95. *
  96. * ---------- MATRICE DE RIGIDITE ----------
  97. *
  98. ******RI1 = RIGI MOD1 MA1 ;
  99. RI1 = RIGI MOD1 HOO1 ;
  100. RI2 = RI1 ET CL ;
  101. *
  102. * ---------- FORCE DE TRACTION ----------
  103. *
  104. FO1 = FORCE ( 100000.0 0.0 ) L1 ;
  105. *
  106. * ---------- RESOLUTION ----------
  107. *
  108. RE = RESO RI2 FO1 ;
  109. MESS ' ' ;
  110. MESS ' ' ;
  111. MESS ' Solution Analytique :' ;
  112. MESS ' ' ;
  113. MESS ' UX =' SOLANA ;
  114. MESS ' UY =' SOLNUL ;
  115. MESS ' ' ;
  116. MESS ' ' ;
  117. MESS ' ' ;
  118. MESS ' Solution Calculee :' ;
  119. MESS ' ' ;
  120. LIST RE ;
  121. *
  122. * ---------- CODE DE FONCTIONNEMENT ----------
  123. *
  124. DEPA1 = EXTR RE UX A1 ;
  125. RESI = ABS( (DEPA1-SOLANA)/SOLANA ) ;
  126. *
  127. SI (RESI <EG 1E-4 ) ;
  128. ERRE 0 ;
  129. SINO;
  130. ERRE 5 ;
  131. FINSI ;
  132. *
  133. * ---------- CALCUL DES DEFORMATIONS ----------
  134. *
  135. EPS1 = EPSI MOD1 RE ;
  136. LIST EPS1 ;
  137. *
  138. * ---------- CALCUL DES CONTRAINTES ----------
  139. *
  140. SIG1 = SIGMA MOD1 MA1 RE ;
  141. LIST SIG1 ;
  142. *
  143. FIN ;
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  

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