!2-D-Trommel!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
finish
/com,Trommelfläche
/clear
/prep7

et,1,link10
!et,1,beam3
et,2,plane42
et,3,contac48,,,1

MP,EX,2,10.5E6
MP,NUXY,2,.3125
MP,EX,1,20E6
MP,DENS,1,73E-5

mp,mu,3,0.1

R,2,5
R,3,1000  ! KN Federsteifigkeit für Kontaktelement
!!!!!!!!!!!!!!!!!!!!!!!!!!!
!R,1,0.01                 ! Link10
R,1,.25,52083E-7,.5       ! AREA,IZZ,HEIGHT, Beam3
!!!!!!!!!!!!!!!!!!!!!!!!!!!
local,11,1,               !cylindr. KO System 
k,1,10
kgen,4,1,1,,,90
a,1,2,3,4
k,11,8
kgen,4,11,11,,,90,,1
a,11,12,13,14
asba,1,2

!kdele,all
csys
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!cyl4,,,10,360,8,360
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

lESIZE,1,,,10
lesize,2,,,10
lESIZE,3,,,10
lesize,4,,,10
lESIZE,5,,,10
lesize,6,,,10
lESIZE,7,,,10
lesize,8,,,10


type,2

!mshkey,1
amesh,all

lsel,s,,,1,4
nsll,s,1
cm,con1,node

type,1       
!!!!!!!!!!!!!!!!!Beam3
k,100,10
k,101,10,-50
l,100,101
lmesh,9
!!!!!!!!!!!!!!!
! Link 10 abarbeiten
n,100,10,
n,101,10,-10
n,102,10,-20
n,103,10,-30
n,104,10,-40
n,105,10,-50
e,100,101
e,101,102
e,102,103
e,103,104
e,104,105
!!!!!!!!!!!!1
!lsel,s,,,9     ! Für Beam3
esel,s,,,41,45  ! oder Esel für Linkelemente
nsll,s,1        ! selektiert nodes
cm,tar1,node

type,3
mat,3
real,3  
alls

gcgen,con1,tar1,,25 ! Red. auf 15 Elemente



dl,5,,rotz,
dl,6,,rotz,
dl,7,,rotz,
dl,8,,rotz,


Fini
/solu
antype,trans
acel,,9810
nlgeom,on
autots,on
nsub,10,50
outres,all
solve

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!