首先谢谢楼上的指点:handshake
我又搜了一下了,重新试了table施加简谐载荷,p(t)=200*sin(628*t),施加位置为自由端的12节点处。
取自由端的16节点随时间位移响应,我觉得稳定状态该是周期性的正弦(余弦)曲线才对嘛,可仿真显示不是的。请大虾们帮忙指点一下了。
整体命令流如下:
/clear
/filname, ndisp
/title, nodal displacement of straigh cantilever beam
/prep7
!建立模型
ET,1,SOLiD45
MP,EX,1,2.1e11
MP,PRXY,1,0.25
MP,DENS,1,7800
blc4,,,0.06,0.02,1
lesize,11,0.1
lesize,6,0.02
lesize,7,0.03
vmesh,all
allsel
save
finish
!模态分析
/solu
antype,modal
modopt,subsp,8,,,,on
lumpm,1 !集中质量矩阵
nsel,s,loc,z,0
d,all,all
allsel
nsel,all
allsel
save
solve
finish
/solu
expass,on !激活扩展模块
mxpand,3 !指定模块展开的阶数
save
solve
finish
!自由右端施加简谐载荷,并测节点位移响应
NT=68
DT=0.0005
*dim,p,array,NT
/INPUT,modal,txt
/SOLU
ANTYPE,TRANS
TRNOPT,FULL
!ALPHAD,0.1
!BETAD,0.03
KBC,1
NSUBST,1, , ,1
OUTRES,ALL,ALL
*do,i,1,NT
TIME,i*DT
AUTOTS,on
f,12,fy,p(i)
LSWRITE, i
*enddo
LSSOLVE,1,NT,1
SAVE
finish
/post26
nsol,2,16,u,y,16uy
plvar,2
save
finish |