移动载荷的列子.txt

我做的一些ansys的练习,命令流,对学习ansys很有帮助

/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 
finish