fini
/clear

/prep7

!Parameter definieren
!Balken
l_b = 20
b_b = 10
h_b = 1
!Folie
t_f = 3
l_f = 10
b_f = 5
h_f1 = 0.25
h_f2 = 0.25
!Keramik
t_k = 4
l_k = 7
b_k = 4
h_k = 0.5
!Hilfsvariable
start = 1

k,, 0, -b_b/2
k,, 0, b_b/2
k,, l_b, b_b/2
k,, l_b, -b_b/2
l, start + 0, start + 1
l, start + 1, start + 2
l, start + 2, start + 3
l, start + 3, start + 0

k,, t_f, -b_f/2
k,, t_f, b_f/2
k,, t_f + l_f, b_f/2
k,, t_f + l_f, -b_f/2
start = start + 4
l, start + 0, start + 1
l, start + 1, start + 2
l, start + 2, start + 3
l, start + 3, start + 0

k,, t_k, -b_k/2
k,, t_k, b_k/2
k,, t_k + l_k, b_k/2
k,, t_k + l_k, -b_k/2
start = start + 4
l, start + 0, start + 1
l, start + 1, start + 2
l, start + 2, start + 3
l, start + 3, start + 0

lsel, s,,, 1, 8
al, all
lsel, s,,, 5, 12
al, all
lsel, s,,, 9, 12
al, all
allsel

!Vernetzung
et, 1, mesh200, 7
et, 2, mesh200, 11
aesize, all, 0.25
amesh, all
esize,, 3

vext, 1, 3,,,, h_b
vext, 13, 18, 5,,, h_f1
vext, 19, 28, 9,,, h_k
vext, 29, 38, 9,,, h_f2

vsel, s,,, 1, 3
eslv, s
cm, Balken, elem
vsel, invert
vsel, u,,, 7
eslv, s
cm, Folie, elem
vsel, s,,, 7
eslv, s
cm, Keramik, elem