找不到原程式 重新改寫的
感謝zll2001 提供的參考程式
ET,1,SOLID164
et,2,shell163
r,2,,,0.1
mp,ex,1,6e7
mp,prxy,1,0.45
mp,dens,1,8000
edmp,hgls,1,4,,,,,
mp,ex,2,2e11
mp,prxy,2,0.3
mp,dens,2,8000
edmp,rigid,2,7,7
CYL4, , ,0.1, ,0.2, ,0.1
vsweep,all
cm,cl,node
nsel,none
mat,2
type,2
real,2
amesh,2
cm,disc,node
allsel
edpart,create
/solu
time,1
edenergy,1,1,1,1
*DIM,TIME,,2
*DIM,RTZ,,2
time(1)=0,1
rtz(1)=6.28,6.28
edload,add,rboz ,,2,time,rtz
EDRST,40,
EDHTIME,40,
solve
/post1
ESEL,U, , ,79
PLNS,U,SUM
ANTIME,40,0.5, ,1,0,0,1 |