finish
/clear
/rep,start

/FILNAME,ContactAnalysis,0 

/prep7
!---------------------------------------------------------------------------
! Material Properties
et,1,SOLID95
mp,ex,,210000
mp,prxy,,0.3
et,2,TARGE170
mp,ex,,210000
mp,prxy,,0.3
et,3,CONTA175
mp,ex,,210000
mp,prxy,,0.3

!-------------------------------------------------------------------------
! MODELLING
! IMPORT Shaft Geometry
~PARAIN,sleeveshaft,x_t,'E:\Johannes\ShaftFatigue\Parts',SOLIDS,0,1

vlscale,all,,,1000,1000,1000,1,0,1

! Local coordinate system
L,15,22
KL,39
KL,37
KWPLAN,-1,23,15,24
cswpla,11


!------------------------------------------------------------------------
! MESHING
smrt,5
MSHAPE,1,3D 
MSHKEY,0
VMESH,1

!----------------------------------------------------------------------------
! Boundary conditions

! restriction to sleeve
csys,1
! fixed bottom area
da,6,uz,0
da,6,uy,0
da,6,ux,0
! pure rotation at the top
asel,,,,4
asel,a,,,5
nsla,r,1
nsel,r,loc,z,800,1000
nrotat,all
d,all,ux,0

! Moment on Top of sleeve
! Two Forces on keypoint 5 and 6
FK,5,FY,1217
FK,6,FY,1217

!-------------------------------------------------------------------------
! SOLUTION
FINISH  
/SOL
SOLVE