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

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

/prep7

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                       ! Line 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

d,node(0,0,0),all,0
allsel

/eshape,1
/view,1,1,2,3
/ang,1
eplot

save,rotor_model_189,db
finish
!*

