单自由度弹簧质量系统(ansys命令)

FINISH
/CLEAR
/FILNAM,Mass-Spring
/TITLE,Table Load Demo
！第二步 创建弹簧-质量系统有限元模型
/PREP7
ET,1,MASS21 !单元类型1；质量单元
KEYOPT,1,3,4
ET,2,COMBIN14 !单元类型2，弹簧-阻尼连接单元
KEYOPT,2,2,1 !设置仅仅具有ux自由度
R,1,200 !实常数1：质量单元的质量
R,2,2000 !实常数2：弹簧-阻尼连接单元的质量

N,1,0,0,0
N,2,1,0,0

TYPE,1 !指定缺省单元属性
REAL,1
ESYS,0
E,2 !在节点1与2之间创建弹簧阻尼连接单元


SAVE
FINISH


!*第三步 定义载荷-时间表参数
*DIM,FORCE,TABLE,5,1,1 !定义表FORCE
*SET,FORCE(0,1,1),0 !赋值表FORCE
*SET,FORCE(1,0,1),1e-006
*SET,FORCE(2,0,1),0.8
*SET,FORCE(2,1,1),560
*SET,FORCE(3,0,1),7.2
*SET,FORCE(3,1,1),560
*SET,FORCE(4,0,1),8.5
*SET,FORCE(4,1,1),238
*SET,FORCE(5,0,1),10.3

！第四步 利用表载荷执行连续瞬态动力求解
/SOL
ANTYPE,4 !选择瞬态分析类型
TRNOPT,FULL !选择FULL瞬态分析方法

D,1,ALL !固定节点1上的所有自由度
D,2,UY !固定节点2上的所有自由度UY

F,2,FX,%FORCE% !在节点2上施加表载荷FORCE

NSUBST,100,200,50 !设置载荷子步数目
OUTRES,ALL,ALL !输出到结果文件的子部控制
KBC,0 !载荷按渐变方式增加
TIME,10.3 !设置载荷步时间
SOLVE !执行求解
FINISH

!第四步 在POST26中绘制位移响应曲线
/POST26
FILE,'Mass-Spring','rst','.'
NUMVAR,200
NSOL,2,2,U,X,UX_2 !定义变量2记录节点2的位移UX
XVAR,1 !定义X轴变量
PLVAR,2 !绘制变量2（Y轴变量）