finish
/clear
!
/title, ANSYS 11.0 RotorDynamics workshop (Rotor-Shaft assembly model)

! Read this input into an ANSYS 11.0 GUI session and follow the instructions...
!
!###########################################################
! Generation of ROTOR-SHAFT assembly using BEAM189 elements
!###########################################################

/prep7

!####################################
! Modelling of Rotor-Shaft assembly
!####################################
!
et,1,189

mp,ex,1,2.08e05			! Units in SI 
mp,nuxy,1,0.28
mp,dens,1,7.85e-09

sectype,1,beam,ctube		! Defining section dimensions
secdata,85,91.5,48

sectype,2,beam,ctube
secdata,37.5,375,48

sectype,3,beam,ctube
secdata,37.5,350,48

sectype,4,beam,ctube
secdata,37.5,300,48

sectype,5,beam,ctube
secdata,37.5,275,48

sectype,6,beam,ctube
secdata,37.5,250,48

sectype,7,beam,ctube
secdata,37.5,225,48

sectype,8,beam,ctube
secdata,55,120,48


k,1				! Keypoint generation
k,2,110
k,3,120
k,4,210
k,5,220
k,6,310
k,7,320
k,8,410
k,9,420
k,10,510
k,11,520
k,12,610
k,13,620
k,14,645
k,15,665
k,16,685
k,17,925
k,18,940
k,19,1120
k,20,1140
k,21,1250

l,1,2				! Lines generation and Meshing
secnum,1
esize,10
lmesh,1

l,2,3
secnum,2
esize,5
lmesh,2

l,3,4
secnum,1
esize,10
lmesh,3

l,4,5
secnum,3
esize,5
lmesh,4

l,5,6
secnum,1
esize,10
lmesh,5

l,6,7
secnum,4
esize,5
lmesh,6

l,7,8
secnum,1
esize,10
lmesh,7

l,8,9
secnum,5
esize,5
lmesh,8

l,9,10
secnum,1
esize,10
lmesh,9

l,10,11
secnum,6
esize,5
lmesh,10

l,11,12
secnum,1
esize,10
lmesh,11

l,12,13
secnum,7
esize,5
lmesh,12

l,13,14
secnum,1
esize,10
lmesh,13

l,14,15
secnum,8
esize,5
lmesh,14

l,15,16
secnum,8
esize,5
lmesh,15

l,16,17
secnum,1
esize,10
lmesh,16

l,17,18
secnum,7
esize,5
lmesh,17

l,18,19
secnum,1
esize,10
lmesh,18

l,19,20
secnum,2
esize,5
lmesh,19

l,20,21
secnum,1
esize,10
lmesh,20
!*
allsel
cm,rotshaft,elem
!*
!*
!##############################################
! Modelling of Bearing using COMBIN14 element
!##############################################
!*
! Element type #2,3 : bearings
et,2,combin14
keyopt,2,2,2	! Y direction
et,3,combin14
keyopt,3,2,3	! Z direction
!*
!Real for bearings
r,2,0.13e+6,0,0		! Stiffness value in Y direction
r,3,0.13e+6,0,0		! Stiffness value in Z direction
!*
n,401,55,390
n,402,805,390
n,403,1195,390
!*
n,411,55,,390
n,412,805,,390
n,413,1195,,390
!*
type,2
real,2
e,node(55,0,0),401
e,node(805,0,0),402
e,node(1195,0,0),403
!
type,3
real,3
e,node(55,0,0),411
e,node(805,0,0),412
e,node(1195,0,0),413
!
allsel
d,node(0,0,0),all,all
d,all,ux,0
d,all,rotx,0
d,401,all,all
d,402,all,all
d,403,all,all
d,404,all,all
d,405,all,all
d,406,all,all

allsel
/eshape,1
eplo

save,rotor_housing_model_189,db
fini
!*
