finish
/clear
/prep7
/view,1,-1,1,1
t=.025 
msize=.75 
esize,.15 

*SET,D_1,0.14 !Lagendicke
*SET,D_2,0.01 !Matrixdicke Zwischenschicht
*SET,D_3,0.01 !Matrixdicke Stoß
*SET,B_1,1    !Breite
*SET,L_1,2.8  !Stufe
*SET,K_P,10   !Kraft
*SET,M_M,0.1  !Mesh

blc4,0,0,D_1,L_1,B_1
blc4,0,L_1,D_1,L_1,B_1
blc4,0,2*L_1,D_1,L_1,B_1
blc4,D_1,0,D_1,L_1,B_1
blc4,D_1,L_1,D_1,L_1,B_1
blc4,D_1,2*L_1,D_1,L_1,B_1

et,1,45
vglue,all
ESIZE,M_M
MSHKEY,1
VSEL,all 
VMESH,ALL
ALLSEL

mp,ex,1,3e6
mp,prxy,1,.3

asel,s,loc,y,0
da,all,all
asel,s,loc,x,0
da,all,uz
asel,s,loc,x,2*D_1
da,all,uz
lsel,s,loc,y,3*L_1
dl,all,,uy,.1
alls

real,2
mat,2
asel,s,,,4
!asel,a,,,39
asel,a,,,49
nsla,s,1
esln
vsel,s,,,1
vsel,a,,,8
vsel,a,,,10
eslv,r
cm,e1,elem

asel,s,,,4
!asel,a,,,39
asel,a,,,49
nsla,s,1
esln
vsel,s,,,7
vsel,a,,,9
vsel,a,,,11
eslv,r
cm,e2,elem

alls
et,2,205
czmesh,e1,e2
tb,czm,2,,,
tbdata,1,3000,.0005,.0005 !sigmax,delt


/solu
outres,all,all
alls
nsubst,20
nlgeom,on
solve

/post1
/view,1,1,1,1
/auto,1
/dscale,1,1
plns,u,sum