|
/prep7
et,1,shell63
r,1,1
mp,ex,1,5e6
mp,nuxy,1,0.3
block,0,5,0,5,0,5
vdele,all,,,0
lesize,all,1
amesh,all
finish
/solu
antype,trans
nsel,s,loc,z,0
d,all,all
delt=0.5
tim=0
timint,on
*do,i,1,5（移动五次）
tim=tim+0.5
time,tim
nsel,s,loc,z,5
nsel,r,loc,y,i-1,i（对其中某一个位置加面力）
sf,all,pres,10
alls
nsubst,5
outres,all,all
solve
*enddo
finish
|