Télécharger cou22.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : cou22.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. OPTI ECHO 1 ;
  5. SAUT PAGE ;
  6. MESS ' ';
  7. MESS ' ';
  8. MESS ' TEST DE CISAILLEMENT SUR UN JOINT ';
  9. MESS ' ';
  10. MESS ' ';
  11. MESS ' C_________________D ';
  12. MESS ' A B ';
  13. MESS ' ';
  14. MESS ' JOINT FORME DES NOEUDS CDAB ';
  15. MESS ' CONDITIONS AUX LIMITES : ';
  16. MESS ' - AB BLOQUE EN UX ET EN UY ';
  17. MESS ' CHARGEMENT : ';
  18. MESS ' - FORCE DE CISAILLEMENT SUIVANT CD ';
  19. MESS ' ';
  20. MESS ' LE CHARGEMENT EST TEL QUE L ON RESTE DANS LE DOMAINE ';
  21. MESS ' ELASTIQUE ';
  22. MESS ' ';
  23. ********************************************************************
  24. *
  25. OPTION ELEM SEG2 MODE PLAN DEFO ;
  26. *
  27. COJANA = 1.5 ;
  28. DEPANA = 0.015 ;
  29. *
  30. * ----------DEFINITION DE LA GEOMETRIE DU JOINT ----------
  31. *
  32. A = 0.00 0.00 ;
  33. B = 1.00 0.00;
  34. C = 0.00 0.00 ;
  35. D = 1.00 0.00 ;
  36. *
  37. * ---------- LIGNE ----------
  38. *
  39. AB = A DROIT 1 B ;
  40. CD = C DROIT 1 D ;
  41. *
  42. * ---------- MAILLAGE ----------
  43. *
  44. OPTION ELEM RAC2 ;
  45. *
  46. JOINT = RACC 0.001 CD AB ;
  47. *
  48. * ---------- DEFINITION DES CONDITIONS AUX LIMITES ----------
  49. *
  50. *
  51. * JOINT
  52. *
  53. CL1 = BLOQ AB UX ;
  54. CL2 = BLOQ AB UY ;
  55. CLJOINT = CL1 ET CL2;
  56. *
  57. * ---------- DEFINITION DU MODELE DU JOINT ----------
  58. *
  59. MODJOI = MODE JOINT MECANIQUE ELASTIQUE PLASTIQUE COULOMB JOI2 ;
  60. MAJOI = MATE MODJOI KS 100.0 KN 100.0 EF 150.0 ECN 0.05
  61. COHE 2.0 FRIC 45.0 ;
  62. *
  63. * ---------- DEFINITION DU CHARGEMENT ----------
  64. *
  65. CHPFO = FORCE (1.5 00.00) CD ;
  66. LIST CHPFO;
  67. *
  68. * ---------- DEFINITION DE LA PROGRESSION DU CHARGEMENT ----------
  69. *
  70. LI1 = PROG 0. 2.0 ; LI2 = PROG 1.0 1.0 ;
  71. EV = EVOL MANU X LI1 Y LI2 ;
  72. CAR1 = CHAR 'MECA' CHPFO EV ;
  73. *
  74. * ---------- RESOLUTION ----------
  75. *
  76. TAB = TABLE ;
  77. LIS1 = PROG 0.0 1.0 2.0 ;
  78. TAB.'BLOCAGES_MECANIQUES' = CLJOINT;
  79. TAB.'CARACTERISTIQUES' = MAJOI;
  80. TAB.'MODELE' = MODJOI;
  81. TAB.'TEMPS_CALCULES' = LIS1;
  82. TAB.'CHARGEMENT' = CAR1;
  83. TMASAU=table;
  84. tab . 'MES_SAUVEGARDES'=TMASAU;
  85. TMASAU .'DEFTO'=VRAI;
  86. TMASAU .'DEFIN'=VRAI;
  87. PASAPAS TAB ;
  88. *
  89. * ---------- POST TRAITEMENT ----------
  90. *
  91. *
  92. * -----RECUPERATION DE LA TABLE DES DEPLACEMENTS
  93. *
  94. dtab1=tab.temps;
  95. *
  96. ndime= (dime dtab1) - 1;
  97. *
  98. * ----- EXTRACTION DES DIFFERENTES TABLES
  99. *
  100. * DEPLACEMENTS
  101. *
  102. i=0 ;
  103. repeter bloc1 ndime ;
  104. i=i+1 ;
  105. dep1=tab.deplacements.i ;
  106. sig1=tab.contraintes.i ;
  107. var1=tab.variables_internes.i ;
  108. def1=tab.deformations_inelastiques.i ;
  109. eps1 = epsi modjoi dep1 ;
  110. *
  111. * ----- REDUCTION DES CHPOINTS A L'ELEMENT JOINT
  112. *
  113. SIGJOI = REDU SIG1 JOINT ;
  114. DEFJOI = REDU EPS1 JOINT ;
  115. DPLJOI = REDU DEP1 JOINT ;
  116. DEPJOI = REDU DEF1 JOINT ;
  117. VARJOI = REDU VAR1 JOINT ;
  118. *
  119. mess ' ' ;
  120. mess ' PAS DE TEMPS ' i ;
  121. mess ' ____________ ' ;
  122. mess ' ' ;
  123. mess ' CONTRAINTES ' ;
  124. list sigjoi ;
  125. mess ' DEFO ELASTI ' ;
  126. list defjoi ;
  127. mess ' DEFO INELASTI' ;
  128. list depjoi ;
  129. mess ' VARIABLES INTERNES ' ;
  130. list varjoi ;
  131. mess ' DEPLACEMENTS ' ;
  132. list dpljoi ;
  133. *
  134. SIGJOI1 = EXTR SIGJOI SMSN 1 1 1 ;
  135. SIGJOI2 = EXTR SIGJOI SMSN 1 1 2 ;
  136. DEFJOI1 = EXTR DEFJOI DRSN 1 1 1 ;
  137. DEFJOI2 = EXTR DEFJOI DRSN 1 1 2 ;
  138. *
  139. RESI2 = ABS ( ( SIGJOI1 - COJANA)/COJANA ) ;
  140. RESI3 = ABS ( ( SIGJOI2 - COJANA)/COJANA ) ;
  141. RESI4 = ABS ( ( DEFJOI1 - DEPANA)/DEPANA ) ;
  142. RESI5 = ABS ( ( DEFJOI2 - DEPANA)/DEPANA ) ;
  143. *
  144. SI ( (RESI2 <EG 1E-4 ) ET (RESI3 <EG 1E-4 ) ET
  145. (RESI4 <EG 1E-4 ) ET (RESI5 <EG 1E-4 ) ) ;
  146. ERRE 0 ;
  147. SINON;
  148. ERRE 5 ;
  149. FINSI ;
  150. *
  151. MESS ' ' ;
  152. MESS ' SOLUTION THEORIQUE : ' ;
  153. MESS ' CONTRAINTES DANS LE JOINT' COJANA ;
  154. MESS ' DEFORMATION DANS LE JOINT' DEPANA ;
  155. MESS ' ' ;
  156. MESS ' SOLUTION CALCULEE : ' ;
  157. MESS ' CONTRAINTES DANS LE JOINT' SIGJOI1 ;
  158. MESS ' DEFORMATION DANS LE JOINT' DEFJOI1 ;
  159. fin bloc1 ;
  160. FIN ;
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  

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