3楼
我试了很久了，是书上的一个例子，我改变激励的方向没有任何变化，下面是命令流，麻烦你看一下，谢谢
/COM, Structural
!*
/PREP7
!*
ET,1,BEAM3
!*
R,1,0.0256,0.54e-4,0.16, , , ,
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7800
K, ,,,,
K, ,100,,,
K, ,50,25,,
LSTR, 1, 2
LARC, 1, 2, 3
!*
LDIV,1, , ,10,0
FLST,3,11,3,ORDE,4
FITEM,3,1
FITEM,3,-2
FITEM,3,4
FITEM,3,-12
KGEN,2,P51X, , , ,30, , ,0
KDELE, 3
LSTR, 4, 15
LSTR, 5, 16
LSTR, 6, 17
LSTR, 7, 18
LSTR, 8, 19
LSTR, 9, 20
LSTR, 10, 21
LSTR, 11, 22
LSTR, 12, 23
FLST,2,9,4,ORDE,2
FITEM,2,12
FITEM,2,-20
FLST,3,9,4,ORDE,2
FITEM,3,12
FITEM,3,-20
LSBL, 2,P51X
LSTR, 4, 3
LSTR, 5, 25
LSTR, 6, 26
LSTR, 7, 27
LSTR, 8, 28
LSTR, 9, 29
LSTR, 10, 30
LSTR, 11, 31
LSTR, 12, 24
GPLOT
NUMCMP,ALL
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
TYPE, 1
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
!*
!*
LESIZE,ALL, , ,1, ,1, , ,1,
FLST,2,29,4,ORDE,2
FITEM,2,1
FITEM,2,-29
LMESH,P51X
SAVE
FINISH
/SOL
FLST,2,1,1,ORDE,1
FITEM,2,1
!*
/GO
D,P51X, , , , , ,UX,UY, , , ,
FLST,2,1,1,ORDE,1
FITEM,2,12
!*
/GO
D,P51X, , , , , ,UY, , , , ,
ACEL,0,9.81,0,
SAVE
!*
!*
ANTYPE,2
!*
MSAVE,0
!*
MODOPT,SUBSP,28
EQSLV,FRONT
LUMPM,0
PSTRES,0
!*
MODOPT,SUBSP,28,0,0, ,OFF
RIGID,
SUBOPT,8,4,32,0,0,ALL
!*
/STATUS,SOLU
SOLVE
FINISH
/SOL
!*
!*
ANTYPE,8
!*
SPOPT,SPRS,28,1
SVTYP,2,1, ！改变这个参数也没有变化
SED,1,0,0, ！改变这个激励方向结构没变化
ROCK,0,0,0,0,0,0,
!*
FREQ,0.333,0.357,0.416,0.5,0.625,0.833,1.25,2.5,2.778
FREQ,3.333,3.571,4.167,5,6.25,8.333,10,12.5,16.667
FREQ,25,50
!*
!*
SV,0,0.013,0.013884,0.01595,0.018794,0.022974,0.029763,0.042871,0.08,0.08,
SV,0,0.08,0.08,0.08,0.08,0.08,0.08,0.08,0.0712,0.0624,
SV,0,0.0536,0.0448,
!*
/STATUS,SOLU
SOLVE
FINISH
/SOL
!*
!*
ANTYPE,2
!*
MSAVE,0
!*
MODOPT,SUBSP,28
EQSLV,FRONT
LUMPM,0
PSTRES,0
!*
MODOPT,SUBSP,28,0,0, ,OFF
RIGID,
SUBOPT,8,4,32,100,5,ALL
!*
MXPAND,28,0,0,1,0.005,
/STATUS,SOLU
SOLVE
FINISH
/SOL
!*
FINISH
/POST1
FINISH
/SOL
!*
ANTYPE,8
SRSS,0.02,DISP
/STATUS,SOLU
SOLVE
回复
