瞬态动力学的两个例子

第一个例子
/prep7
et,1,combin40
keyopt,1,3,2
r,1,6,,2
r,2,16,,4
n,1,0,0
n,2,0,1
n,3,0,2
real,1
e,1,2
real,2
e,2,3
finish
/solu
antype,modal
modopt,reduc,2,,,2
outpr,,all
m,1,uy,2
d,3,all
solve
finish
!
/solu
antype,trans
trnopt,msup,2
deltim,0.01
outpr,,all
outres,,1
kbc,1                !阶跃加载
F,1,FY,0
solve
time,1.8
f,1,fy,50
solve
time,3.2
f,1,fy,0
solve
finish
!
/post26
file,,rdsp
nsol,2,1,u,y,uy-1
nsol,3,2,u,y,uy-2
/axlab,y,disp
plvar,2,3
prvar,2,3

！
！
！
第二个例子
/PREP7
ET,1,BEAM3
MP,EX,1,2.1E11
MP,PRXY,1,0.3
MP,DENS,1,7800
R,1,0.1,0.0008/12,0.2
NELEM=100
LBEAM=16
DELTL=LBEAM/NELEM
V=120
DELTT=DELTL/V*3.6
NNODE=NELEM+1
FPW=40
FPC=100
*DO,I,1,NNODE,1
N,I,(I-1)*0.16,0
*ENDDO
*DO,I,1,NELEM,1
E,I,I+1
*ENDDO
D,1,UX,,,,,UY
D,NNODE,UY
FINISH
!
/SOLU
ANTYPE,TRANS
OUTRES,ALL,ALL
*DO,II,1,NNODE,1
TIME,II*DELTT
KBC,1
NSUBST,5
FDELE,ALL,ALL
NSEL,S,LOC,X,II*DELTL
F,ALL,FY,-FPC*COS(FPW*II*DELTT)
ALLSEL
SOLVE
*ENDDO
FINISH
!
/POST26
NSOL,2,51,U,Y,UY_2          !位移
XVAR,1
PLVAR,2
DERIV,3,2,1,,,,,1           !速度
PLVAR,3
DERIV,4,3,1,,,,,1           !加速度
PLVAR,4
FINISH