!!! Modell ohne CFK-Verstärkung!!! fini /clear,all /filename,kontakt /title, Platten-Bolzen-Verbindung mit Kontakt /rgb,index,100,100,100,0 /rgb,index,80,80,80,13 /rgb,index,60,60,60,14 /rgb,index,0,0,0,15 /replo !############################ ! Variable: d1 = 0.016 !Innendurchmesser Bolzen d2 = 0.022 !Außendurchmesser Bolzen = Innedurchmesser Buchse d3 = 0.026 !Außendruchmesser Buchse F = 45322 k1 = 0.1 !(halbe) Kantenlängen k2 = 0.05 dic = 0.24e-3 !Dicke der CFK-Lagen n = 8 !Anzahl der CFK-Lagen a = 0.01 b = 0.025 c = a+b d = 0.004 e = a+b+d g = e+b !############################ /prep7 !/pnum,line,1 !/pnum,kp,1 !/pnum,area,1 ! 1. Geometrie !############# K,1,k1,k1,a K,2,k1,-k1,a K,3,-k1,-k1,a K,4,-k1,k1,a K,5,0,0,a A,1,2,3,4 CIRCLE,5,d3/2 AL,5,6,7,8 ASBA,1,2 LCOMB,6,7,0 LCOMB,5,8,0 K,14,0,0,g L,5,14 VDRAG,3,,,,,,7 nummrg,kp K,19,k1,k1,c K,20,-k1,k1,c K,21,-k1,k1,e K,22,k1,k1,e K,23,k1,-k1,c K,24,-k1,-k1,c K,25,-k1,-k1,e K,26,k1,-k1,e V,19,20,21,22,23,24,25,26 VSBV,1,2 nummrg,kp WPLANE,1,0,0,a CYL4,0,0,d2/2,,d3/2,,b WPLANE,2,0,0,e CYL4,0,0,d2/2,,d3/2,,b WPLANE,3,0,0,0 CYL4,0,0,d1/2,,d2/2,,g+a nummrg,kp !doppelte Keypoints "verschnelzen" numcmp,kp !Keypoint-Nummern neu sortieren numcmp,line numcmp,area numcmp,volu wplane,4,0,0,e,0,0,0,0,1,e vsel,all vsbw,all vsel,s,,,6 vsel,a,,,8 vsel,a,,,10 vsel,a,,,12 vsel,a,,,14 vdele,all,,,1 allsel vplot numcmp,kp numcmp,line numcmp,area numcmp,volu wpstyle,,,,,,,,1 !Workingplane sichtbar machen csys,4 !Koordinatensystem nach der Workingplane ausrichten wpro,,,90.000000 !Workingplane so drehen, das die xy-Ebene durch alle vorhandenen wpro,,,90.000000 !Volumen zeigt wpro,,90.000000 vsbw,all !Volumen teilen wpstyle,,,,,,,,0 !Workingplane ausblenden csys,0 !wieder auf das globale Koordinatensystem umschalten /replot ! 2. Elementtyp, Material, RealConstants !####################################### et,1,186 et,2,82 mp,ex,1,210e9 !Stahl mp,prxy,1,0.3 mp,ex,2,116e9 !Bronze mp,prxy,2,0.3 mp,ex,4,10e9 !Sperrholz mp,prxy,4,0.3 allsel vplot ! 3. Einteilung der Linien für's Mesh up !####################################### ldele,3 !überflüssige Linie 3 löschen lsel,s,,,33 lsel,a,,,60 lsel,a,,,64 lsel,a,,,110 lsel,a,,,116 lsel,a,,,32 lsel,a,,,62 lsel,a,,,66 lsel,a,,,118 lsel,a,,,23 lsel,a,,,53 lsel,a,,,55 lsel,a,,,105 lsel,a,,,107 lsel,a,,,12 lsel,a,,,51 lsel,a,,,57 lsel,a,,,99 lesize,,,,10,,,,,1 asel,s,,,68 asel,a,,,72 asel,a,,,64 asel,a,,,60 mshkey,0 !Free mesh mshape,0 !viereckige Elemente amesh,all alls vsel,s,,,12 vsel,a,,,13 vsel,a,,,14 vsel,a,,,15 vsweep,all alls asel,s,,,42 asel,a,,,45 asel,a,,,47 asel,a,,,50 asel,a,,,52 asel,a,,,55 amesh,all vsel,s,,,6 vsel,a,,,7 vsel,a,,,8 vsel,a,,,9 vsel,a,,,10 vsel,a,,,11 vsweep,all aclear,all alls ! 5. Bildung der Kontaktflächen !############################## ! Kontaktflächen: et,3,170 et,4,174 !Kontaktpaar Platte-Buchse! !Target! asel,s,,,66 asel,a,,,71 asel,a,,,62 asel,a,,,57 !die 4 Flächen => Targe (Ziel) Platte nsla,s,1 type,3 mat,4 real,1 esurf !Elemente erstellen !Contact! asel,s,,,27 asel,a,,,28 asel,a,,,19 asel,a,,,20 !die 4 Flächen => Kontakt Buchse nsla,s,1 type,4 mat,2 real,1 esurf !Elemente erstellen alls rmodif,1,7, rmodif,1,8, keyopt,4,7,1 keyopt,4,10,2 keyopt,4,12,3 !Bonded Kontakt !Kontaktpaar Buchse-Bolzen! !Target! asel,s,,,35 asel,a,,,36 !die 2 Flächen => Targe (Ziel) Bolzen nsla,s,1 type,3 mat,1 real,2 esurf !Elemente erstellen !Contact! asel,s,,,29 asel,a,,,30 asel,a,,,21 asel,a,,,22 !die 4 Flächen => Buchse Kontakt nsla,s,1 type,4 mat,2 real,2 esurf !Elemente erstellen alls ! 6. Ranbedingungen, Kräfte !########################### nsel,s,loc,x,0 dsym,symm,x,0 alls asel,s,loc,y,0.1 asel,u,loc,z,0,0.039 nsla,s,1 d,all,all alls asel,s,loc,y,-0.1 asel,u,loc,z,0,0.039 nsla,s,1 d,all,all alls asel,s,loc,y,0.1 asel,u,loc,z,0.039,0.5 nsla,s,1 sf,all,pres,2*F/(b*k1) /psf,pres,2,0,on alls eplot /solu antype,static nlgeom,on autots,on nsub,20,100,5 outres,all,all !Alle Zwischenergebnisse speicher rescontrol,define,all,all,0 !Dateien für einen Restart rausschreiben solve !finish /post1