Télécharger contact2D-adhe.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : contact2D-adhe.dgibi
  2. *
  3. * TEST du MODELE CONTACT AVEC COMPOSANTE MATERIAU ADHE
  4. *
  5. *
  6. OPTI DIME 2 ELEM QUA4 ;
  7. OPTI DEBU 1 ;
  8. *
  9. * Maillage
  10. NEL1 = 10 ;
  11. *NEL1 = 14 ;
  12. *NEL1 = 2 ;
  13. P1 = -1. 1.E-3 ; P2 = 1. 1.E-3 ;
  14. L1 = DROI NEL1 P1 P2 ;
  15. S1 = L1 TRAN NEL1 (0. 1.) ;
  16. S1D = S1 'COTE' 2 ;
  17. S1H = S1 'COTE' 3 ;
  18. S1G = S1 'COTE' 4 ;
  19. *
  20. NEL2 = 14 ;
  21. *NEL2 = 5 ;
  22. P3 = -1.5 0. ; P4 = 1.5 0. ;
  23. L2 = DROI NEL2 P3 P4 ;
  24. S2 = L2 TRAN NEL2 (0. -1.) ;
  25. S2D = S2 'COTE' 2 ;
  26. S2B = S2 'COTE' 3 ;
  27. S2G = S2 'COTE' 4 ;
  28. *
  29. LC = 'IMPO' 'MAIL' 'SYME' ('INVE' L2) L1 ;
  30. *
  31. * Conditions aux limites
  32. CL1 = 'BLOQ' 'UX' (S2D 'ET' S2G) ;
  33. CL2 = 'BLOQ' 'UY' S2B ;
  34. CL3 = 'BLOQ' 'UY' S1H ;
  35. CL4 = 'BLOQ' 'UX' (S1G POIN INITIAL) ;
  36. CL4 = 'BLOQ' 'UX' (S1D 'ET' S1G) ;
  37. CL4 = 'BLOQ' 'UX' S1G ;
  38. CLT = CL1 'ET' CL2 'ET' CL3 'ET' CL4 ;
  39. *
  40. * Chargements
  41. COOX = 'COOR'1 S1H ;
  42. *DEIM = 'DEPI' CL3 (-1.E-3 * ('ABS' (('ABS' COOX) - 2.))) ;
  43. DEIM = 'DEPI' CL3 (-1.E-3 * (COOX + ('ABS' ('MINI' COOX)))) ;
  44. LTPS = 'PROG' 0. 1. 2. 3. 4. ;
  45. LCOE = 'PROG' 0. 2. -1. -2. -3. ;
  46. EVZ = 'EVOL' 'MANU' 'TEMPS' LTPS 'COEF' (30. * LCOE) ;
  47. CHAT = 'CHAR' 'DIMP' DEIM EVZ ;
  48. *
  49. * Modeles
  50. MOD1 = 'MODE' S1 'MECANIQUE' 'ELASTIQUE' ;
  51. MAT1 = 'MATE' MOD1 'YOUN' 200.E9 'NU' 0.3 ;
  52. MOD2 = 'MODE' S2 'MECANIQUE' 'ELASTIQUE' ;
  53. MAT2 = 'MATE' MOD2 'YOUN' 100.E9 'NU' 0.3 ;
  54. *
  55. MODC = 'MODE' LC 'CONTACT' ;
  56. MATC = 'MATE' MODC 'ADHE' 7.E8 ;
  57. MODT = MOD1 'ET' MOD2 'ET' MODC ;
  58. MATT = MAT1 'ET' MAT2 'ET' MATC ;
  59. *
  60. * Resolution
  61. LTIME = 'PROG' 0. 0.5 1. PAS 0.2 4.0 ;
  62.  
  63. TAB1 = 'TABL' ;
  64. TAB1.'MAITOT' = S1 ET S2 ;
  65. TAB1.'MAICON'= LC ;
  66. TAB1.'MODELE' = MODT ;
  67. TAB1.'CARACTERISTIQUES' = MATT ;
  68. TAB1.'BLOCAGES_MECANIQUES' = CLT ;
  69. TAB1.'CHARGEMENT' = CHAT ;
  70. TAB1.'TEMPS_CALCULES' = LTIME ;
  71. PASAPAS TAB1 ;
  72. *
  73. * Post-traitement
  74. OPTI TRAC PSC ;
  75. DEP = TAB1.'DEPLACEMENTS' ;
  76. DEPP = TAB1.'DEPLACEMENTS'. 0 ;
  77. CONF0 = 'FORM' ;
  78. 'REPE' BCL ('DIME' DEP) ;
  79. TPSZ = TAB1.'TEMPS'. (&BCL - 1) ;
  80. TITZ = 'CHAI' 'Deformee a l instant 'TPSZ ;
  81. DEPZ = DEP. (&BCL-1) ;
  82. DEF0 = 'DEFO' (S1 'ET' S2) DEPZ 0. ;
  83. DEF1 = 'DEFO' (S1 'ET' S2) DEPZ 1. ;
  84. TRAC (DEF0 'ET' (DEF1 COUL ROUG)) 'TITR' TITZ ;
  85. 'FIN' BCL ;
  86.  
  87. FIN ;
  88.  
  89.  
  90.  

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