apdl:弹簧分析

baninghe

把下面内容保存到c:\program files\ansys inc\ansys81\apdl,取名为xurenlus.mac,打开ansys输入xurenlus,就可以看到一个实例了.
是一个重物挂在弹簧上的运动情况.
finish
/clear !*清除内存
/title,the mass-string system !*改变标题
/filname,mass-spring !*改变文件名.
/prep7 !*进入前处理.
et,1,mass21 !*定义单元类型1:弹簧.
keyopt,1,3,4 !*设置为二维无转动贯量的质量.
et,2,combin14 !*单元类型2:弹簧-阻尼联接单元.
keyopt,2,2,1 !*设置仅仅具有UX自由度.
r,1,100, !*实常数1:质量单元的质量.
r,2,100 !*弹簧阻尼连结单元的弹簧刚度.
n,1,0,0,0 !*定义结点。
n,2,1,0,0 !*
type,1 !*指定缺省单元类型.
real,1
esys,0
e,2 !*在2上创建质量单元.
type,2 !*指定缺省单元类型.
real,2
esys,0
e,1,2 !*在节点1与2之间创建弹簧-阻尼连结单元.
save
finish
/solu !*进入求解器.
antype,modal !*模太分析
modopt,lanb,1,0,0,,off !*
mxpand,1,,,0
d,1,,,,,,all
d,2,,,,,,uy
solve
finish
/post1
set,list !*振动频率:0.15915HZ.
set,first !*读入第一阶模太.
pldisp,1 !*绘制模太变形.
plnsol,u,sum,0,1 !*绘制模太变形等值图.
anmode,10,0.5,,0 !*制作模太变形动画.