/batch,list
/title, twin disks - unbalance response
/PREP7
mp,EX ,1,2.07e+11
mp,DENS,1,7850
mp,PRXY,1,0.3
! shaft
et,1,188,,,2
sectype,1,beam,csolid
secdata,0.01,32
! disks
et,2,mass21
r,3,0.3946,0.3946,0.3946,3.1567e-4,1.5783e-4,1.5783e-4
! bearings
et,3,214,,1
r,4 ,4.7e+8,4.7e+8,,,2e+4,2e+4
r,5,9.3e+8,9.3e+8,,,5e+5,5e+5
! nodes
n,1,0
n,2 ,0.05
n,3 ,0.10
n,4 ,0.15
n,5 ,0.20
n,6 ,0.25
n,7 ,0.30
n,8 ,0.35
n,9 ,0.40
n,10,0.45
n,11,0.50
! bearings second nodes
n,101,0, 0.05
n,108,0.40,0.05
! components elements
type,1
secn,1
e,1,2
egen,10,1,1 !形成轴
type,2
real,3
e,5 !定义单元质点
e,11
cm,rotor,elem !把两个质点加载轴上形成一个单元.
allsel
! bearings !两个轴承
type,3
real,4
e,1,101
type,3
real,5
e,9,108
! boundary conditions
d,all,ux,,,,,rotx
d,101,all
d,108,all
fini |