/batch
/title, Harmonic Response of the Structure
/prep7
width=1!定义分析变量
length=2
high=-1
mass_hig=0.1
et,1,63!定义单元类型
et,2,4
r,1,0.02!定义单元实常数
r,2,2e-4,2e-8,2e-8,0.01,0.02
mp,ex,1,2e11!定义材料特性
mp,nuxy,1,0.3
mp,dens,1,7800
rect,,length,,width!定义有限元模型
k,5,,,high
k,6,length,,high
k,7,length,width,high
k,8,,width,high
l,1,5
*rep,4,1,1
esiz,0.1
amesh,all
type,2
real,2
lmesh,5,8
fini
/solu
anty,modal
modopt,Lanb,10
mxpand,10,,,yes
nsel,s,loc,z,high
d,all,all!添加边界条件
alls
solv
fini
/solu
anty,trans!选取瞬态分析
nsel,s,loc,z,high
d,all,all
outr,all,all
alls
alph,5!指定质量阻尼系数
time,1
delt,0.2,0.05,0.5
auto,on
kbc,0
sfa,1,,pres,10000
lswr,1!写第一个时间载荷步文件
time,2
lswr,2!写第二个时间载荷步文件
time,4
sfa,1,,pres,5000
kbc,1
lswr,3!写第三个时间载荷步文件
time,6
sfa,1,,pres,0
lswr,4!写第四个时间载荷步文件
lssolve,1,4
fini
/post26
nsol,2,146,u,z!定义变量2为节点146在X方向上的位移
/grid,1
plva,2!绘制变量2的曲线 |