我照着做了一个移动载荷的例子!模拟一个圆柱内壁受滚动载荷!
/prep7
et,1,shell63
r,1,3
mp,ex,1,2e5
mp,nuxy,1,0.3
mp,dens,1,7.8e-6
CYL4,0,0,50, , , ,100
vdele,all,,,0
adele,1,2
numcmp,all
CSWPLA,11,1,1,1,
wpro,,90.000000,
wpro,,,90.000000
asbw,all
numcmp,all
aplot
LESIZE,all, , ,30
MSHAPE,0,2D
MSHKEY,1
amesh,all
*afun,deg
nrotat,all
finish
/solu
nsel,s,loc,z,0
nsel,a,loc,z,100
d,all,all
delt=1
tim=0
timint,on
*do,i,1,40
tim=tim+delt
time,tim
fdele,all,all
nsel,s,loc,z,30,70
nsel,r,loc,y,9*(i-1),9*i
f,all,fx,50
alls
nsubst,2
outres,all,all
solve
*enddo
finish
[ 本帖最后由 7god 于 2007-8-29 16:45 编辑 ] |