大家帮忙分析个地震作用下位移不能衰减的算例吧

我计算一个悬臂梁在地震作用下的时程分析，可是用下面的命令流计算出来的顶端位移一直没有衰减，而地震波的加速度是衰减了的已经
如附件所示，位移根本没有要衰减的迹象。
大家能不能帮忙看一下是哪里出了问题，小弟初学，多多指教！谢谢



/prep7
et,1,plane42
et,2,solid65

mp,nuxy,1,0.2
mp,ex,1,2.6e10
MP,PRXY,1,0.167
TB,CONC,1,1,9,
TBDATA,,0.3,1,1.2e6,17.5e6 !张开剪切传递系数为0.3，抗拉强度fc=1.2e6pa,抗压强度fs=17.5e6pa,
mp,dens,1,2400

rectng,0,10,0,2.5

! /pnum,area,1
! /pnum,line,1
! APLOT
lsel,s,,,1,3,2
lesize,all,,,10
lsel,s,,,2,4,2
lesize,all,,,2
amesh,1

extopt,esize,32,0,
extopt,aclear,1
type,2
mat,1
vext,1,,,,,32.000

FINISH
/SOL
nsel,s,loc,z,0
! aplot
d,all,all

allsel
! eplot
gplot


allsel
acel,0,0,9.8

nsel,s,loc,z,32
esln,s
eplot
sfe,all,6,pres,,200
allsel
gplot


finish
/config,nres,10000
Nt=1250
Dt=0.02
*dim,ac,,nt
/input,EI18025s,txt !EI18025s是地震波的数据文件，
/solu
nsubst,1,,,1
outres,all,1
antype,trans
*do,i,1,nt
acel,0,ac(i),0!定义地震波方向
time,i*dt
solve
*enddo