（必看）ANSYS转子动力学计算讨论(3)

|----50--------| || _____________________________||d=120 ^ ^ d0=10 || || h=0.5 |---------- 100----------------------------------|

算例命令流文件如下：

/PREP7

ET,1,BEAM4 !*

KEYOPT,1,2,0 KEYOPT,1,6,0 KEYOPT,1,7,1 KEYOPT,1,9,0 KEYOPT,1,10,0 *SET,p,acos(-1) *SET,R1,5 *SET,R2,60

R,1,p*R1**2,p*R1**4/4,p*R1**4/4,2*R1,2*R1, , RMORE, ,p*R1**4/2, , ,2175, ,

R,2,p*R2**2,p*R2**4/4,p*R2**4/4,2*R2,2*R2, , RMORE, ,p*R2**4/2, , ,2175, , !*

MPTEMP,,,,,,,, MPTEMP,1,0

MPDATA,EX,1,,2e5 MPDATA,PRXY,1,,.3 MPTEMP,,,,,,,, MPTEMP,1,0

MPDATA,DENS,1,,1e-10 MPTEMP,,,,,,,, MPTEMP,1,0

MPDATA,EX,2,,2E5 MPDATA,PRXY,2,,.3 MPTEMP,,,,,,,, MPTEMP,1,0

MPDATA,DENS,2,,8E-8 K, ,,,, K, ,100,,, TYPE, 1 MAT, 1 REAL, 1

ESYS, 0 LSTR, 1, 2

LESIZE,ALL, , ,200, ,1, , ,1, LMESH, 1 D,1,UX D,1,UY D,1,UZ D,102,UY D,102,UZ

FLST,2,1,2,ORDE,1 FITEM,2,200

EMODIF,P51X,MAT,2, FLST,2,1,2,ORDE,1 FITEM,2,200

EMODIF,P51X,REAL,2, FINISH /SOLU !*

ANTYPE,2 !*

MODOPT,DAMP,40 EQSLV,FRONT MXPAND,40, , ,0 LUMPM,0 PSTRES,0 !*

MODOPT,DAMP,40,10,40000, ,OFF /STATUS,SOLU SOLVE FINISH