**________unite : mm, MPa________ *HEADING Joint GEM **PREPRINT,ECHO=YES, MODEL=YES, HISTORY=YES, CONTACT=YES *PARAMETER **Joint Bas_joint=14. Hauteur=7.81+Bas_joint Dint=29.98 Dext=45.93 Rint=Dint/2. Rext=Dext/2. Pt_milieu=Rint+((Rext-Rint)/2) **Chemise Epaisseur=3.9 Hauteur_chemise=45. **-------------------------------------------------------------------- **________maillage du joint________ *NODE 1, , 9, , 81, , 85, , 89, , *NGEN,NSET=BAS_JOINT 1,9 *NGEN,NSET=HAUT_JOINT 81,89 *NSET,NSET=INT_JOINT,GENERATE 1,81,10 *NSET,NSET=EXT_JOINT,GENERATE 9,89,10 *NFILL,NSET=ALL_JOINT BAS_JOINT,HAUT_JOINT,8,10 **________section________ *SOLID SECTION,MATERIAL=GEM,ELSET=JOINT_GEM **________element axisymetrique a 8 noeuds________ *ELEMENT,TYPE=CAX8 1,1,3,23,21,2,13,22,11 *ELGEN,ELSET=JOINT_GEM 1,4,2,1,4,20,10 **________surface pour contact________ *ELSET,ELSET=SURFACE_ELEMENT_JOINT,GENERATE 4,34,10 *SURFACE,TYPE=ELEMENT,NAME=SURFACE_JOINT SURFACE_ELEMENT_JOINT *ELSET, ELSET=ELT_14 14 **-------------------------------------------------------------------- **________maillage de la chemise________ *NODE 101, 22.975, 0. 105, 26.875, 0. 2101, 22.975, 45. 2105, 26.875, 45. *NGEN,NSET=BAS_CHEMISE 101,105 *NGEN,NSET=HAUT_CHEMISE 2101,2105 *NSET,NSET=INT_CHEMISE,GENERATE 101,2101,50 *NSET,NSET=EXT_CHEMISE,GENERATE 105,2105,50 *NFILL,NSET=ALL_CHEMISE BAS_CHEMISE,HAUT_CHEMISE,40,50 *NSET,NSET=BAS_INT_CHEMISE 101 **________section________ *SOLID SECTION,MATERIAL=ACIER,ELSET=CHEMISE **________element axisymetrique a 8 noeuds________ *ELEMENT,TYPE=CAX8,ELSET=CHEMISE 101,101,103,203,201,102,153,202,151 *ELGEN,ELSET=CHEMISE 101,2,2,1,20,100,10 **________surface pour contact________ *ELSET,ELSET=SURFACE_ELEMENT_CHEMISE,GENERATE 101,291,10 *SURFACE,TYPE=ELEMENT,NAME=SURFACE_CHEMISE SURFACE_ELEMENT_CHEMISE *ELSET, ELSET=ELT_16 171 **-------------------------------------------------------------------- **________proprietes du materiau________ *MATERIAL,NAME=GEM *ELASTIC 2100.,0.3 *MATERIAL,NAME=ACIER *ELASTIC 210000.,0.3 **-------------------------------------------------------------------- **________contact________ *SURFACE INTERACTION, NAME=JOINT_CHEMISE *CONTACT PAIR, INTERACTION=JOINT_CHEMISE,TYPE=SURFACE TO SURFACE **surface esclave,surface maitre SURFACE_CHEMISE,SURFACE_JOINT **________conditions aux limites________ *BOUNDARY BAS_JOINT,2 INT_JOINT,1 BAS_INT_CHEMISE,2 **________pilotage________ *STEP,NAME=charge,NLGEOM=YES,INC=1000000 *STATIC 0.1,1.,1.e-10,0.1 *BOUNDARY HAUT_JOINT,2,2,-0.30 *OUTPUT,FIELD *NODE OUTPUT U, RF, COORD *ELEMENT OUTPUT S, LE, COORD *CONTACT OUTPUT, VARIABLE=ALL *END STEP