ex7.4.txt

通过实例详细介绍Ansys在实际工程中的应用

!7.4  圆杆连接圆盘的扭转振动
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR, NOSTART
! (1) 定义工程选项,分析类型单元类型,实常数和材料参数
/FileName, EX7.4
/PREP7
/TITLE, EX7.4, NATURAL FREQUENCY OF A MOTOR-GENERATOR
C*** VIBRATION THEORY AND APPLICATIONS, THOMSON, 2ND, PAGE 10, EX 1.3-3
ANTYPE,MODAL
MODOPT,REDUC,1,,,1
MXPAND,1
ET,1,PIPE16
ET,2,MASS21
R,1,9.5248e-3,4.7624e-3
R,2,,,, 3.5026E-3
MP,EX,1, 215.13E9
MP,PRXY,,0.3
! (2) 定义模型节点和单元连接关系
N,1
N,2,0.2032
E,1,2
TYPE,2
REAL,2
E,2
M,2,ROTX
! (3) 指定输出选项,位移约束
OUTPR,BASIC,1
D,ALL,ALL
DDELE,2,ROTX
FINISH
! (4) 进入求解模块求解
/SOLU
SOLVE
! (5) 提取计算结果
*GET,FREQ,MODE,1,FREQ
! (6) 定义数组变量,将计算结果输出到文本文件
*DIM,LABEL,CHAR,1,2
*DIM,VALUE,,1,3
LABEL(1,1) = '      F,'
LABEL(1,2) = ' (Hz)  '
*VFILL,VALUE(1,1),DATA,48.763
*VFILL,VALUE(1,2),DATA,FREQ
*VFILL,VALUE(1,3),DATA,ABS(FREQ/48.763)
/COM
/OUT, EX7_4, out
/COM,-------------------  EX7.4 RESULTS COMPARISON ---------------
/COM,
/COM,                 |   TARGET   |   ANSYS   |   RATIO
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,'   ',F10.3,'  ',F10.3,'   ',1F5.3)
/COM,----------------------------------------------------------
/OUT
FINISH
*LIST, EX7_4, out