!--------------------   Lamelle    ------------------------------
/com, Lamelle
El=21000		 		! E-Modul CFK 200/2000
Gxy=El/28.5
MP,Ex,1,El
MP,Ey,1,El/15
MP,Ez,1,El/15
MP,prxy,1,0.28
MP,pryz,1,0.0
MP,prxz,1,0.28
MP,Gxy,1,Gxy
MP,Gxz,1,Gxy/15
MP,Gyz,1,Gxy/15



!--------------------   GFK -Stäbe    ------------------------------
/com, GFK -Stäbe
MP,ex,13,3800				! GFK -Stäbe
MP,Ey,13,1150
MP,Ez,13,1150
MP,prxy,13,0.27
MP,pryz,13,0.27
MP,prxz,13,0.27
MP,Gxy,13,400
MP,Gxz,13,400
MP,Gyz,13,400


!--------------------   Holz    ------------------------------
/com, Holz-UZ				! für den Unterzug
Et=900					! Versuchswert
eta=et/1199				! Holz TL-Richtung
MP,Ex,2,1199*eta		
MP,Ey,2,42*eta
MP,Ez,2,82*eta
MP,Gxy,2,74
MP,Gxz,2,62
MP,Gyz,2,4.2
MP,nuxy,2,0.035
MP,nuyz,2,0.311
MP,nuxz,2,0.055
mp,dens,2,3.5e-6


!--------------------   Polymerbeton    ------------------------------
/com, Polymerbeton
MP,ex,8,2139.40				! Polymerbeton
mp,nuxy,8,1/6
mp,dens,8,25e-6

TB,MELA,8,1,11,
TBPT,,0,0
TBPT,,1.41/1000,3.01606
TBPT,,2.19/1000,4.53931
TBPT,,3.5/1000,6.74563
TBPT,,3.99/1000,7.42311
TBPT,,4.6/1000,8.14654    
TBPT,,5.36/1000,8.85569   
TBPT,,6.5/1000,9.57788
TBPT,,7.57/1000,9.9958
TBPT,,8.69/1000,10.22369         
TBPT,,9.28/1000,10.24481	        ! Dehnungs-Spannungs-Verhalten


!--------------------   Stahlplatten    ------------------------------
/com, Stahlplatten
et,3,191				! Solid191 für Auflagerplatten
MP,ex,3,675
MP,nuxy,3,0.15
mp,mu,3,0.6


!--------------------   CZM Verguss - Lamelle    ------------------------------

/com, CZM Verguss - Lamelle

sig_max_v=2.20/10	       		! Oberflächenzugfestigkeit fctm=2.2 MPa 
tau_max_v=4.50/10      		        ! Schubfestigkeit 4.5 MPa
gap_v=0.50/10                   	! delta_x normal 0.5 mm

slip_v=sig_max_v/tau_max_v*gap_v*sqrt(2*exp(1))                  		

tb,czm,14,,,expo			! Obere CZM- Schicht
tbdata,1,sig_max_v,gap_v,slip_v    


!--------------------   Kontaktdefinition    ------------------------------

MAT,10 
TYPE,11
REAL,10
rmod,10,3,1
rmod,10,6,6
rmod,10,9,0.6


ET,10,170   				! Kontakt Auflagerplatte/Holz links
ET,11,174   
KEYOPT,11,5,1
KEYOPT,11,9,1
KEYOPT,11,10,2   
!KEYOPT,11,12,6  			! wird auskommentiert, da sonst im Kontakt Zugspannungen entstehen!!!


!--------------------   Kontaktdefinition CBDD   ------------------------------


ET,2000+i*2-1,170   				! Kontakt Auflagerplatte/Holz links
ET,2000+i*2,174   
KEYOPT,2000+i*2,2,1
KEYOPT,2000+i*2,12,5

R,2000+i*2-1     				! Leerer Realkonstantensatz für Kontakt- Auflager

!Jeweilige Komponenten selektieren

MAT,2000+i*2-1  
TYPE,2000+i*2-1 
REAL,2000+i*2-1 
ESURF   					! Target, weil MW nicht so beweglich ist!!!!


!Jeweilige Komponenten selektieren

MAT,2000+i*2-1 
TYPE,2000+i*2 
REAL,2000+i*2-1 
ESURF   					! Kontakt

sigma_max=1					! Eigenschaften für CBDD
ucn=0.00561
u_n=0.00187
stabfact=1e-1

tb,czm,2000+i*2-1,,,cbdd
tbdata,1,sigma_max,ucn,,,stabfact
r,2000+i*2-1,,,-sigma_max/(u_n),,,2