fini /clear,start /filnam,M_3_28.06.07_Mike ! Meine Änderungen /triad,off /pnum,mat,1 /colo,1,oran /colo,3,blue /colo,2,lgra /colo,7,mred ! Kohäsionselement CFK /numb,1 /Prep7 --------------------------------- ! /com,Variablen ![cm] --------------------------------- Anker_Koerper=0 !Ja = 1 und Nein=0 *SET,bb,5 !breite Balken *SET,bl,5 !breite Lamellen *SET,dh,12 !höhe Balkenhöhe *SET,dk,0.2 !höhe Kleber *SET,dl,0.14 !höhe Lamellen *SET,lh,22 !länge Balken *SET,llh,10 !Lamellenlänge geklebt *SET,llf,15 !Lamellenlänge frei *SET,llg,llf+llh !Lamellenlänge gesamt *SET,lg,(llf+lh) !Gesamtlänge Versuchskörper *SET,a1,1 !Stirnseitige Luft *SET,ra,1 !Radius Ankerkörper *SET,e1,dh/6 *SET,e2,dh/3 *SET,e3,dh/3*2 *SET,e4,dh/6*5 /triad,lbot /replot,triad -------------------------------- /com,geometrie -------------------------------- k,1,,dh/2 !Lamellenzugrand - Krafteinwirkung Mittelachse k,2,,dh/2+dl !Oberseite Lamelle - ggf. frei k,3,llf,, !Startpunkt Prüfkörper Holzdruckrand unten k,4,llf,e1 k,5,llf,e2 k,6,llf,dh/2-dk !Fuge Übergang Holz - Kleber/Luft k,7,llf,dh/2 !Fuge Übergang Kleber/Luft - Lamelle - Systemachse k,8,llf,dh/2+dl !Fuge Übergang Lamelle - Kleber/Luft k,9,llf,dh/2+dl+dk !Fuge Übergang Kleber/Luft - Holz k,10,llf,e3 k,11,llf,e4 k,12,llf,dh !Balkenrand oben, Startpunkt Prüfkörper Holzdruckrand k,13,llg,, !Endpunkt Verankerung Lamelle unten k,14,llg,e1 k,15,llg,e2 k,16,llg,dh/2-dk !Fuge Übergang Holz - Kleber/Luft k,17,llg,dh/2 !Fuge Übergang Kleber/Luft - Lamelle k,18,llg,dh/2+dl !Fuge Übergang Lamelle - Kleber/Luft k,19,llg,dh/2+dl+dk !Fuge Übergang Kleber/Luft - Holz k,20,llg,e3 k,21,llg,e4 k,22,llg,dh !Balkenrand oben, Endpunkt Verankerung Lamelle k,23,llg+a1,dh/2-dk !Fuge Übergang Holz - Kleber/Luft k,24,llg+a1,dh/2+dl+dk !Fuge Übergang Kleber/Luft - Holz k,25,lg,, !Endpunkt Verankerung Lamelle unten k,26,lg,e1 k,27,lg,e2 k,28,lg,dh/2-dk !Fuge Übergang Holz - Kleber/Luft y-min k,29,lg,dh/2 !Fuge Übergang Kleber/Luft - Lamelle y-min Systemachse k,30,lg,dh/2+dl !Fuge Übergang Lamelle - Kleber/Luft k,31,lg,dh/2+dl+dk !Fuge Übergang Kleber/Luft - Holz k,32,lg,e3 k,33,lg,e4 k,34,lg,dh !Balkenrand oben, Endpunkt Verankerung Lamelle k,35,(llg-ra),dh/2 !Fuge Übergang Kleber/luft y-min - Lamelle - Systemachse ------------------- !Extrudierpunkte ------------------- k,36,llf,,bb/5 k,37,llf,,2*bb/5 k,38,llf,,3*bb/5 k,39,llf,,4*bb/5 k,40,llf,,bb l,1,2 !Lamellenanfang frei y-Ri l,3,4 !Startpunkt Prüfkörper Holzdruckrand y-Ri *rep,9,1,1 l,13,14 !Endpunkt Klebefläche/Lamelle Prüfkörper y-Ri *rep,9,1,1 l,23,24 !Endpunkt Freischnitt Prüfkörper y-Ri l,25,26 !Endpunkt Prüfkörper y-Ri *rep,9,1,1 l,1,7 !Lamellenanfang frei x-Ri l,3,13 !Verankerungsbereich Prüfkörper x-Ri l,13,25 !Prüfkörper - Rest x-Ri ------------------ !Extrudierlinie ------------------ l,3,36 l,36,37 *rep,4,1,1 adrag,1,,,,,,30 adrag,2,3,4,5,6,7,,31,32 adrag,8,9,10,,,,,53,66 numm, kp !Doppelte Linien löschen l,16,23 adrag,14,15,16,,,,,38 numm, kp !------------------------- !Ankerkörper !------------------------- *if,Anker_Koerper,eq,1,then !Falls Anker- Körper vorhanden CYL4,kx(35),ky(35),ra !CYL4, XCENTER, YCENTER, RAD1, THETA1, RAD2, THETA2, aina,4,23 CYL4,kx(35),ky(35),ra aina,5,4 CYL4,kx(35),ky(35),ra aina,6,4 CYL4,kx(35),ky(35),ra aina,7,4 CYL4,kx(35),ky(35),ra aina,14,4 adrag,13,14,15,16,17,,,45 CYL4,kx(35),ky(35),ra /pnum,area,1 /numb,0 aplo asel,s,area,,4 asel,a,area,,14 asel,a,area,,25 asel,a,area,,26 asel,a,area,,27 cm,Kontakt-Anker,area alls ASBA,Kontakt-Anker,28,,keep,delete asel,all asel,r,,cm,kontakt-anker cmdel,Kontakt-Anker adel,all alls numm, kp !Doppelte Linien löschen aplo *endif !------------------------- !Freischnitt/Luftschicht !------------------------- ASBA,11,20 ASBA,12,21 ASBA,13,22 *if,Anker_Koerper,eq,1,then !Falls Anker- Körper vorhanden adel,6 !Bei beidseitiger Klebefuge beibehalten. adel,32 adel,34 *Else adel,7 *endif *if,Anker_Koerper,eq,1,then !Falls Anker- Körper vorhanden FLST,5,22,5,ORDE,12 FITEM,5,1 FITEM,5,-5 FITEM,5,7 FITEM,5,-12 FITEM,5,15 FITEM,5,-19 FITEM,5,23 FITEM,5,-24 FITEM,5,31 FITEM,5,33 FITEM,5,35 FITEM,5,-36 ASEL,R, , ,P51X asel,inve adel,all alls *Else FLST,5,18,5,ORDE,7 FITEM,5,1 FITEM,5,-6 FITEM,5,8 FITEM,5,-12 FITEM,5,14 FITEM,5,-19 FITEM,5,23 ASEL,R, , ,P51X asel,inve adel,all alls alls *endif !------------------------- !Materialzuordnung !------------------------- *if,Anker_Koerper,eq,1,then !Falls Anker- Körper vorhanden asel,s,area,,1 asel,a,area,,33 asel,a,area,,5 asel,a,area,,30 cm,alamelle,area *Else asel,r,,,1,6,5 cm,alamelle,area *endif *if,Anker-Körper,eq,1,then asel,s,area,,31 asel,a,area,,23 asel,a,area,,24 !Ankerkörper cm,akleber,area *Else asel,s,,,5 cm,akleber,area *endif asel,all asel,u,area,,akleber asel,u,area,,alamelle cm,aholz,area cmsel,s,alamelle aatt,1,1,1 cmsel,s,akleber aatt,3,1,1 cmsel,s,aholz aatt,2,1,1 /PNUM,KP,1 /PNUM,LINE,1 /PNUM,AREA,1 ----------------------------------------------------------- !Querschnittswerte ----------------------------------------------------------- *SET,Eb,1160 !(1100 KN/cm² für KVH FI/TA ) *SET,Ek,1000 !(800-1200 KN/cm² für Epoxykleber S&P Resin 220, Typ S ) *SET,El,16400 !(16400 KN/cm² für S&P - Lamelle CFK 150/2000 ) --------------------------------- ! /com,Material --------------------------------- ! /com,2D et,1,82 et,2,82 et,3,82 ! /com,3D !Material 1=Lamelle !Material 2=Holz !Material 3=Kleber et,4,186 !Lamelle Elementtyp DOF,ROTX,ROTY,ROTZ MP,ex,1,El MP,nuxy,1,0.3 !--------------------------------- et,5,186 !Holz Elementtyp Probekörperspezifisch ! MP,Ex,2,Eb !GLh24 MP,Ey,2,39 MP,Ez,2,82 MP,Gxy,2,72 MP,Gxz,2,62 MP,Gyz,2,4.2 MP,nuxy,2,0.035 MP,nuyz,2,0.599 MP,nuxz,2,0.055 ! FC,2,S,XTEN,0.04 !Versagenskriterium Material ! FC,2,S,YTEN,0.04 ! FC,2,S,ZTEN,1.8 ! FC,2,S,XCMP,-0.27 ! FC,2,S,YCMP,-0.27 ! FC,2,S,ZCMP,-2.3 ! FC,2,S,XY,0.27 ! FC,2,S,YZ,0.27 ! FC,2,S,XZ,0.27 !--------------------------------- et,6,186 !Kleber Elementtyp MP,ex,3,Ek MP,nuxy,3,0.3 -------------------------- /com, Vernetzung !Vernetzung müsste noch optimiert werden -------------------------- *SET,es1,dh/12 !Elementgröße Fläche *SET,es2,dh/24 !Elementgröße Volumen asel,s,area,,alamelle esize,es2 ames,all asel,s,area,,akleber *If,Anker_Koerper,eq,1, Then *Else asel,a,,,4 *endif asel,a,,,2,3 esize,es2 ames,all asel,s,area,,aholz esize,es2 ames,all alls !-------------------------- /com, Volumen erzeugen !-------------------------- mshape,0 extopt,on !-------------------- !SHPP,ON !SHPP,MODIF,1,1e8 !SHPP,MODIF,2,1e8 !SHPP,MODIF,3,1e8 /VIEW,1,1,1,1 /ANG,1 /REP,FAST EPLOT --------------------- !Volumen Lamelle --------------------- alls cmsel,s,alamelle type,4 *SET,es,nint(bb/10) !Nearest Integer esize,,es !Anzahl der Elemente pro Strecke vext,all,,,0,0,kz(36) asel,all *do,i,36,39 asel,s,loc,z,kz(i) *SET,dz,kz(i+1)-kz(i) !Streckenlänge esize,,es !Anzahl der Elemente pro Strecke vext,all,,,0,0,dz asel,all *enddo alls esel,s,mat,,1 cm,lamelle,elem esel,none --------------------- !Volumen Holz --------------------- alls cmsel,s,aholz type,5 *SET,es,nint(bb/10) !Nearest Integer esize,,es !Anzahl der Elemente pro Strecke vext,all,,,0,0,kz(36) asel,all *do,i,36,39 asel,s,loc,z,kz(i) asel,u,mat,,1 *SET,dz,kz(i+1)-kz(i) !Streckenlänge esize,,es !Anzahl der Elemente pro Strecke vext,all,,,0,0,dz asel,all *enddo alls esel,s,mat,,2 cm,holz,elem esel,none --------------------- !Volumen Kleber --------------------- alls cmsel,s,akleber type,6 *SET,es,nint(bb/10) !Nearest Integer esize,,es !Anzahl der Elemente pro Strecke vext,all,,,0,0,kz(36) asel,all *do,i,36,39 asel,s,loc,z,kz(i) asel,u,mat,,1 asel,u,mat,,2 *SET,dz,kz(i+1)-kz(i) !Streckenlänge esize,,es !Anzahl der Elemente pro Strecke vext,all,,,0,0,dz asel,all *enddo alls esel,s,mat,,3 cm,kleber,elem esel,none alls asel,s,loc,z aclear,all alls cmsel,s,lamelle emodif,all,type,4 emodif,all,mat,1 esel,none cmsel,s,holz emodif,all,type,5 emodif,all,mat,2 esel,none cmsel,s,kleber emodif,all,type,6 emodif,all,mat,3 alls numm,node ! Wenn dann Merge Keypoints, sind ja keine Nodes erstellt worden !--------------------- /com,cohesionselement vernetzen !--------------------- alls esel,s,elem,,kleber esel,a,elem,,lamelle et,7,204 type,7 mat,7 czmes,kleber,lamelle tb,czm,7 tbdata,1,0.27,0.05,0.05 ! Sigma_v=0.4 kN/cm²; dx=0.5 mm alls !--------------------- /com,Auflager !--------------------- alls asel,s,loc,x,kx(3) asel,u,loc,y,ky(5),ky(10) da,all,ux da,all,uy da,all,uz alls nsel,s,loc,x,0 nsel,r,loc,y,ky(1) !d,all,uy !d,all,uz alls alls asel,s,loc,y,kx(3) ! Was soll hier selektiert werden???? da,all,uy da,all,uz alls asel,s,loc,y,kx(12) ! Was soll hier selektiert werden???? da,all,uy da,all,uz alls !--------------------- /com,Einzellasten !--------------------- alls nsel,s,loc,x,0 nsel,r,loc,y,ky(1) *SET,last,20 !20 kN Zug /com,----------------------------- esel,s,mat,,1 nsle,s nsel,s,loc,x,kx(1) fzug=last/(bl*dl) sf,all,pres,-fzug alls /com,----------------------------- local,11 emod,all,esys,11 fini /solu time,last outres,all,all nsub,5,50,5 neqit,50 ncnv,2 save /com,**!--------------------------------------------------------------------------------- /com,**!------------- Modellierung hier fortführen -------------------------------------- /com,**!---------------------------------------------------------------------------------