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

et,1,beam3
et,2,plane42

MP,EX,1,340917000
MP,EX,2,10.5E6
MP,NUXY,2,.3125
MP,DENS,1,73E-5
MP,NUXY,1,.5
mp,mu,1,0.3


r,2,1e8   ! Real Const für Kontaktstefigkeit (Wichtig)

R,1,0.01236,1.093E-7,0.013,,,      ! AREA,IZZ,HEIGHT, Beam3
!!!!!!!!!!!!!!!!!!!!!!!!!!!
cyl4,0,0,10,,8

lesize,all,,,10

type,2
mat,2
real,2
amesh,all

csys,1		!Wechsel zu zylindrischen Koordinaten

nsel,s,loc,x,8
nrotat,all
cm,rot,node
allsel          ! Speichern der rotierten Nodes

csys,0		!Wechsel zu kartesischen Koordinaten
    

k,100,10,
k,101,10,-10
k,102,10,-20
k,103,10,-30
k,104,10,-40
k,105,10,-50
l,100,101
l,101,102
l,102,103
l,103,104
l,104,105

type,1 
real,1
mat,1  

lmesh,9,10
lmesh,11,12
lmesh,13

nummrg,all
numcmp,all

!!!!!!!!!!!!!!!!Contact Wizard
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
/GSAV,cwz,gsav,,temp
MP,MU,1,0.3 
MAT,1   
R,3 
REAL,3  
ET,3,169
ET,4,172
KEYOPT,4,9,0
R,3,
RMORE,  
RMORE,,0
RMORE,0 
! Generate the target surface   
LSEL,S,,,1  
LSEL,A,,,2  
LSEL,A,,,3  
LSEL,A,,,4  
CM,_TARGET,LINE 
TYPE,3  
NSLL,S,1
ESLN,S,0
ESURF,ALL   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
LSEL,S,,,9  
LSEL,A,,,10 
LSEL,A,,,11 
LSEL,A,,,12 
LSEL,A,,,13 
CM,_CONTACT,LINE
TYPE,4  
NSLL,S,1
ESLN,S,0
ESURF,ALL   
*SET,_REALID,3  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,NONE   
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
ESURF,,REVERSE  
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,3  
ESEL,A,TYPE,,4  
ESEL,R,REAL,,3  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
FINISH  

!!!!!!!!!!!!!!!!Created