ex7.3.txt

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

!7.3  用弹簧单元连接的圆盘的扭转振动
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR, NOSTART
! (1) 设置工程选项,求解选项,单元类型和实常数
/FileName, EX7.3
/PREP7
/TITLE, EX7.3, TORSIONAL FREQUENCY OF A SUSPENDED DISK
C*** VIBRATION THEORY AND APPLICATIONS, THOMSON, 2ND, PAGE 10, EX 1.3-2
ANTYPE,MODAL
MODOPT,REDUC,,,,1
MXPAND,1
ET,1,COMBIN14,,,1
ET,2,MASS21,,,3
R,1, 0.542337
R,2,1, 0.034235
! (2) 定义模型节点和单元连接关系
/VIEW,1,1,1,1
N,1
N,2,,,-0.0254
E,1,2
TYPE,2
REAL,2
E,2
M,2,ROTZ
! (3) 指定输出选项,位移约束
OUTPR,BASIC,1
D,1,ALL
D,2,UX,,,,,UY
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,0.63346
*VFILL,VALUE(1,2),DATA,FREQ
*VFILL,VALUE(1,3),DATA,ABS(FREQ/0.63346 )
/COM
/OUT, EX7_3, out
/COM,-------------------  EX7.3 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.5,'  ',F10.5,'   ',1F5.3)
/COM,-----------------------------------------------------------
/OUT
FINISH
*LIST, EX7_3, out