在理论分析时，发现2倍一阶频率时一阶振幅也很大，但我在做数值分析时，只看得了1倍频率时一阶振幅很大，而2倍时很小，麻烦专家给予指点。
!索的谐响应分析
fini
/clear
/prep7
l=114.7$h=0$area=6.273e-3$e=2e11$M=52.8$dens=M/AREA$ts=3095e3$istran=ts/(e*area)
em=50
et,1,link10
mp,ex,1,e
mp,dens,1,dens
r,1,area,1e-6
n,1
n,em+1,l
fill
e,1,2
egen,em,1,1
d,1,all
d,em+1,uy
f,em+1,fx,ts
d,all,uz
fini
/solu$antype,0
pstres,on
stiff,on
ematwrite,yes
nsubst,20
outres,all,all
solve
fini
/solu
antype,2
upcoord,1,on
pstres,on
stiff,on
acel,,9.8
modopt,lanb,3
mxpand,3
psolve,eiglanb
fini
/solu
expass,on
psolve,eigexp
/post1
set,list
/solu
antype,harmic
hropt,full
pstress,on
d,em+1,ux,0.1
alphad,0.15
kbc,1
harfrq,0,10
nsubst,500
outres,all,all
solve
fini
/post26
nsol,2,em/2+1,u,y
PROD,3,2,,,,,,0.1
/axlab,x,frequency
/axlab,y,uy-(em/2+1)
plvar,3
|
