移动荷载的例子0 在面上施加移动的面力
/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
allsel
nsubst,5
outres,all,all
solve
*enddo
|
/2 
发表于 2009-1-2 18:30:00
