finish
/clear,all

/filname, Studienarbeit
/title, zylindrischer Pressverband mit plane183

/prep7
/com Bestimmung der Materialkennwerte

mp,ex,1,210000 $mp,nuxy,1,0.28 $mp,dens,1,7.85e-9
mp,ex,2,110500 $mp,nuxy,2,0.22 $mp,dens,2,7.25e-9


/com Bestimmung des Elemtetyps
et,1,plane183,,,1


/com Parameter der Geometrie festlegen 

delta=0.0485			!Übermaß der Passung
a=40				!Radius der Welle an Nabenfläche
b=2				!Radius an der Verdickung der Nabenfläche			
c=115				!Fugenlänge
d=120				!Nabenlänge
e=300				!Wellenlänge
f=190				!Nabendurchmesser
g=2				!Radius der Nabe
h=0.5				!Fasengröße an Nabenbohrung


/com Geometrieerstellung Welle

k,1,0,-e/2
k,2,0,e/2
k,3,a-b,e/2
k,4,a-b,c/2
k,5,a,c/2
k,6,a,-c/2
k,7,a-b,-c/2
k,8,a-b,-e/2

l,1,2 $l,2,3 $l,3,4 $l,4,5 $l,5,6 $l,6,7 $l,7,8 $l,8,1
lfillt,3,4,b
lfillt,7,6,b

/com Geometrieerstellung Nabe

k,,a-delta,d/2-h
k,,a-delta+h,d/2
k,,f/2-delta,d/2
k,,f/2-delta,-d/2
k,,a-delta+h,-d/2
k,,a-delta,-d/2+h

l,7,10 $l,10,11 $l,11,12 $l,12,13 $l,13,14 $l,14,7
lfillt,10,11,g
lfillt,11,12,g

al,1,8,7,4,5,9,3,2
al,14,13,12,16,11,15,10,6

/com Vernetzung
mat,1 $aesize,1,4		!Materialeigenschaften von Stahl mit einbeziehen
amesh,1
mat,2 $aesize,2,4		!Materialeigenschaften von Guss mit einbeziehen
amesh,2

dk,1,uy,0
dk,1,ux,0
dk,2,ux,0
dk,2,uy,0

/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,0.8 
MAT,1   
R,3 
REAL,3  
ET,2,169
ET,3,172
KEYOPT,3,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  
LSEL,A,,,5  
LSEL,A,,,7  
LSEL,A,,,8  
LSEL,A,,,9  
CM,_TARGET,LINE 
TYPE,2  
NSLL,S,1
ESLN,S,0
ESURF,ALL   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
LSEL,S,,,6  
LSEL,A,,,10 
LSEL,A,,,11 
LSEL,A,,,12 
LSEL,A,,,13 
LSEL,A,,,14 
LSEL,A,,,15 
LSEL,A,,,16 
CM,_CONTACT,LINE
TYPE,3  
NSLL,S,1
ESLN,S,0
ESURF,ALL   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   

/solu

nsel,s,loc,x,94.5,95.5
nsel,r,loc,y,-0.5,0.5
d,all,,,,,,all
allsel

antype,0
nlgeom,1
nsubst,10,20,5
time,1
solve

ddele,all,all
time,2
solve