上边做的是一个两个质量块-两个弹簧系统的谐相应,命令流如下:
/PREP7
ET,1,MASS21
ET,2,COMBIN14
R,1,200, , , , , ,
R,2,27779,0,0,0,0,0,
R,3,1.9618,0.22, ,
R,4,3.7418,0.02,0,
N,1,0,2,0,,,,
N,2,0,1,0,,,,
N,3,0,0,0,,,,
TYPE, 1
MAT,
REAL, 1
ESYS, 0
SECNUM,
TSHAP,LINE
E, 1
!*
TYPE, 1
MAT,
REAL, 2
ESYS, 0
SECNUM,
TSHAP,LINE
E, 2
TYPE, 2
MAT,
REAL, 3
ESYS, 0
SECNUM,
TSHAP,LINE
FLST,2,2,1
FITEM,2,1
FITEM,2,2
E,P51X
TYPE, 2
MAT,
REAL, 4
ESYS, 0
SECNUM,
TSHAP,LINE
FLST,2,2,1
FITEM,2,2
FITEM,2,3
E,P51X
SAVE
FINISH
/SOL
ANTYPE,3
FLST,2,1,1,ORDE,1
FITEM,2,3
!*
/GO
D,P51X, , , , , ,ALL, , , , ,
FLST,2,1,1,ORDE,1
FITEM,2,1
!*
/GO
F,P51X,FY,-1,
!*
HARFRQ,0,2000,
NSUBST,250,
KBC,0
!*
SAVE
solve
后处理做的是第一个节点位移随频率变化曲线图 |