/out,null
fini
/clear
/out

/prep7
/title,klemme
et,1,solid 117

mp,ex,1,2.1e5   
mp,nuxy,1,0.3
mp,dens,1,7.85e-9 


a=1



k,1,0,0,
k,2,0,42a,
k,3,74.5a,42a,
k,4,74.5a,0,
a,1,2,3,4		!a1

vrot,1,,,,,,1,2,,2		!v1

k,11,-74.5a,0,-66.8a
k,12,74.5a,0,-66.8a
k,13,-74.5a,0,-80a
k,14,74.5a,0,-80a
k,15,-74.5a,42a,-66.8a
k,16,74.5a,42a,-66.8a
k,17,-74.5a,42a,-80a
k,18,74.5a,42a,-80a
V,13,11,15,17,14,12,16,18	!v3

vsbv,1,3

k,13,-74.5a,0,80a
k,14,74.5a,0,80a
k,15,-74.5a,0,53.2a
k,16,74.5a,0,53.2a
k,17,-74.5a,42a,80a
k,18,74.5a,42a,80a
k,19,-74.5a,42a,53.2a
k,20,74.5a,42a,53.2a
V,15,13,17,19,16,14,18,20	!v1

vsbv,2,1

vadd,3,4			!v1 als einziges Volumen

k,23,0,0,80a
k,24,0,0,-80a
k,25,80a,0,80a
k,26,80a,0,-80a
k,27,0,42a,80a
k,28,0,42a,-80a
k,29,80a,42a,80a
k,30,80a,42a,-80a

V,25,29,27,23,26,30,28,24
vsbv,1,2

k,23,-44.7a,0,26.2a
k,24,-44.7a,42,26.2a
circle,23,4,24,,,1
l,23,24
al,1,2,3
vdrag,1,,,,,,4

vsbv,3,1		!v2

k,25,0,0,-67a
k,26,-15.5a,0,-67a
k,27,-27.5a,0,-16.3a
k,28,-22.5a,0,1.21a
k,29,0,0,1.21a
k,30,0,34a,1.21a
a,25,26,27,28,29
l,29,30
vdrag,1,,,,,,22

vsbv,2,1

k,40,-22.5a,0,-8.3a
k,41,-22.5a,34a,-8.3a
circle,40,9.5,41,,,1
l,40,41
al,7,14,15
vdrag,1,,,,,,16
vsbv,3,1

k,50,0,21,53.2
k,51,0,21,-80
circle,50,6,51,,,1
l,50,51
al,7,14,15
vdrag,1,,,,,,23
vsbv,2,1

k,55,-32.88a,0,-26.79a
k,56,-32.88a,8a,-26.79a
circle,55,5,56,,,1
al,7,24,15
l,55,56
vdrag,1,,,,,,25
vsbv,3,1

k,60,-28.5a,0,-67a
k,61,-37.74a,0,-27.95a
k,62,-32.88a,0,-21.79a
k,63,0,0,-21.79a
k,64,0,0,-67a
k,65,0,8,-67a
a,60,61,62,63,64
vdrag,1,,,,,,25
vsbv,2,1

k,80,-17.78a,0,-22.66a
k,81,-17.78a,43a,-22.66a
circle,80,4.99,81,,,1
al,7,15,24
l,80,81
vdrag,1,,,,,,31
vsbv,3,1

k,82,-14.77a,0,-35.3a
k,83,-14.77a,43a,-35.3a
circle,82,4.99,83,,,1
al,7,15,24
l,82,83
vdrag,1,,,,,,37
vsbv,2,1

k,94,-12.92a,0,-21.5a
k,95,-22.64a,0,-23.81a
k,96,-9.91a,0,-34.15a
k,97,-19.63a,0,-36.46a
k,98,-12.92a,43a,-21.5a
l,94,98
a,94,95,97,96
vdrag,1,,,,,,7
vsbv,3,1

aadd,40,41,43
ldel,30
ldel,106
ldel,105

aadd,17,23,55
ldel,62
ldel,18
ldel,64

aadd,30,45
aadd,12,54

MSHAPE,1,3D
MSHKEY,0

vmesh,all

vsymm,x,2

fini
/solu

antype,0,new

da,31,ux,,1
da,31,uy,,1
da,31,uz,,1


da,34,ux,,1
da,34,uy,,1
da,34,uz,,1


asel,s,area,,42
*get,b,area,42,area

f=2000/b

allsel

sfa,42,,pres,f
sfa,56,,pres,f

solve

fini
/post1

set,1,1

pldisp,2

plnsol,s,x,1,1
plnsol,s,y,1,1
plnsol,s,z,1,1