请问：单自由度弹簧－振子振动的计算问题！

wfj0057

请各位高手帮忙！
我做了一个很简单的单自由度弹簧－振子振动的模型，施加初位移使其发生振动，但是结果不对，后期都没有振动了，请各位高手帮忙看一下！谢谢！！
命令流如下:
/prep7
ET,2,COMBIN14,,,2
ET,3,MASS21,,,4
R,2,840.4okok.org !刚度
R,3,11.121/9.8okok.org !质量
N,1000,0,-1,0
N,1002,0,0,0

TYPE,2
REAL,2
E,1000,1002
TYPE,3
REAL,3
E,1002
M,1002,UY

/solu

ANTYPE,TRANS
SSTIF,ON
TIMINT,ON
AUTOTS,ON
NSUBST,4
KBC,0
OUTRES,all,all
FCUM,ADDokok.org

TT=1
acel,,9.8
*do,I,1,300
*IF,I,EQ,1,THEN
  D,1002,UY,-0.01 !位移荷载
*ENDIF
d,1000,ALL
d,1002,ux
  TIME,TT
  lswrite,TT
  TT=TT+1
  ddele,ALL,ALL !去除约束
*enddo
FCUM,REPL

lssolve,1,TT
FINISH
SAVE

waltdon

你是在做谐响应分析吗？
我也这按你的过程做了一遍 出了好多错误 没有结果显示 :@L :@L