问题描述

finish
/clear
/filname,modal
/title,modal analysis of a modal airplane wing

/prep7
et,1,plane42
et,2,solid45
mp,ex,1,38000
mp,dens,1,1.033e-3
mp,nuxy,1,0.3
k,1      !k,1,0,0,0
k,2,2    !k,2,2,0,0
k,3,2.3,0.2
k,4,1.9,0.45
k,5,1,0.25
lstr,1,2  !create a straight line between keypoints 1 and 2
lstr,5,1
bsplin,2,3,4,5,,,-1,,,-1,-0.25  !样条曲线,后面参数是两个切点处的向量

al,1,3,2
esize,0.25 !单元的边长
amesh,1    !对一号面划分网格
esize,,10  !边界线上单元的数量
type,2
vext,all,,,,,10 !拉伸
/view,,1,1,1
/ang,1
/rep
eplot
finish

/solu
antype,modal
modopt,subsp,5   !设置模态提取方法与提取数量

esel,u,type,,1   !不选择单元1,即选择单元2
nsel,s,loc,z,0   !选择z坐标为0的节点
d,all,all
nsel,all
mxpand,5       !如果你想在后处理器中察看振型，必须先扩展之（也就是将振型写入结果文件）
solve
finish

/post1
set,list,2   !set,list,2  set,list,1区别是每个子步下有一个标题
set,first    !读取一阶模态
pldisp,0     !展示变形结构
anmode,10,0.5e-1  !输出该阶模态动画。10表示帧数，可以理解为1s内机翼变换10个位置。0.5e-1表示每帧之间的延迟是多少，延迟越高，你就会看到振动很慢。
set,next     !读取下一阶模态
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
set,next
pldisp,0
anmode,10,0.5e-1
finish