ex7.1.txt

来自「通过实例详细介绍Ansys在实际工程中的应用」· 文本 代码 · 共 56 行

!7.1  单自由度弹簧质量系统的频率计算
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》，机械工业出版社（2004年）
FINISH
/CLEAR, NOSTART
! (1) 设置工程选项,求解选项,单元类型和实常数
/FILENAME, EX7.1
/PREP7
/TITLE, EX7.1, NATURAL FREQUENCY OF A SPRING-MASS SYSTEM
C*** VIBRATION THEORY AND APPLICATIONS, THOMSON, 2ND, PAGE 6, EX. 1.2-2
ANTYPE,MODAL
MODOPT,REDUC,1,,,1
MXPAND,1
ET,1,COMBIN14,,,2
ET,2,MASS21,,,4
R,1, 8406.4
R,2, 11.121/9.8
! (2) 定义模型节点和单元连接关系
N,1
N,2,,1
E,1,2
TYPE,2
REAL,2
E,2
M,2,UY
! (3) 指定输出选项,位移约束
OUTPR,ALL,1
OUTRES,ALL,0
D,1,ALL
D,2,UX
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,13.701
*VFILL,VALUE(1,2),DATA,FREQ
*VFILL,VALUE(1,3),DATA,ABS(FREQ/13.701)
/COM
/OUT, EX7_1, out
/COM,-------------------  EX7.1 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_1, out