finish
/clear
/prep7
!Elementtyp
et,1,shell63
!Elementdicke
r,1,50,50,50,50,,,
!Materialparameter(el-pl,billinear)
mp,ex,1,,1.0e5
mp,prxy,1,,0
tb,biso,1,1,2,
tbdata,,200,1000
/view,,-4,1,2
/vup,,z
!Geometrie

k, 1, 25,  0,  0
k, 2, 25,100,  0
k, 3,-25,100,  0
k, 4,-25,  0,  0
k, 5, 25,  0, 50
k, 6, 25,100, 50
k, 7,-25,100, 50
k, 8,-25,  0, 50
k, 9,  0,  0,  0
k,10,  0,100,  0
k,11,  0,100, 50
k,12,  0,  0, 50

a,1,2,3,4
a,5,6,7,8
a,9,10,11,12
a,1,5,8,4
a,2,6,7,3

!Elementtyp
et,1,shell63
!Elementdicke
r,1,50,50,50,50,,,
!Materialparameter(el-pl,billinear)
mp,ex,1,,1.0e5
mp,prxy,1,,0
tb,biso,1,1,2,
tbdata,,200,1000
/view,,-4,1,2
/vup,,z
!Geometrie
k,13,25,0,0
k,14,25,0,100
k,15,-25,0,100
k,16,-25,0,0
k,17,25,50,0
k,18,25,50,100
k,19,-25,50,100
k,20,-25,50,0
k,21,0,0,0
k,22,0,50,0
k,23,0,50,100
k,24,0,0,100

a,13,14,15,16
a,17,18,19,20
a,21,22,23,24
a,13,17,20,16
a,14,18,19,15

!Verbindung der beiden Flächen
!avolap,all
!aglue,all
!
flst,2,10,5,orde,2
fitem,2,1
fitem,2,-10
avolap,p51x
flst,2,23,5,orde,2
fitem,2,11
fitem,2,-33
aglue,p51x
/ang,1,30,ys,1
/rep,fast
/ang,1,30,ys,1
/rep,fast
/ang,1,30,ys,1
/rep,fast
/ang,1,30,ys,1
/rep,fast
/ang,1,30,ys,1
/rep,fast
/ang,1,30,ys,1
!
!Darstellung der Nummerierung von Keypoints und Linien
/pnum,kp,1
/pnum,line,1
/replot
!
!Lagerung
lsel,s,loc,y,0
dl,all,,all
allsel
!
!Belastung


!lesize,all,5
mshkey,1
amesh,all
cpintf,all,0.01

!lesize,all,5
mshkey,1
amesh,all
cpintf,all,0.01



!Vernetzung
type,1
mat,1
real,1
asel,all
aesize,all,.5
amesh,all
alls
/eshape,1,1
/replot

!Lagerung
lsel,s,loc,y,0