陶瓷杆撞击铝板的例子

APDL：
/filename,barplate 
/title,Impact Of A Bar Into A Plate 
/PREP7 
/view,,1,2,3 
/plopts,info,1 
/pbc,all,1 
/pnum,mat,1 
/num,1 
ET,1,SOLID164 
! --- Enter Ceramic Material Properties For Bar 
mpmod,1,1 
mp,ex,1,330e9 
mp,nuxy,1,.24 
mp,dens,1,8400 
! --- Enter Aluminum Material Properties For Plate Using GUI (Later) ... 
! --- Create and Mesh Bar 
block,-.1,.1,1,5,-.2,.2 
desize,4 
mat,1 
vmesh,1 
cm,nbar,node 
cm,ebar,elem 
! --- Define Initial Velocity of Bar 
edivelo,nbar,,-500.0 
! --- Create and Mesh Plate 
block,-2,2,.75,.95,-1,1 
desize,6 
mat,2 
vmesh,2 
esel,s,mat,,2 
nsle 
cm,nplate,node 
cm,eplate,elem 
nsel,all 
esel,all 
! --- Apply Constraints To Bottom Perimeter of Plate 
nsel,s,loc,y,.75 
nsel,u,loc,x,-1.99,1.99 
d,all,ux,0,,,,uy,uz 
nsel,s,loc,y,.75 
nsel,u,loc,z,-0.99,0.99 
d,all,ux,0,,,,uy,uz 
! --- Generate Eroding Surface-To-Surface Contact Between Bar and Plate 
edcgen,ests,nbar,nplate,,,,,,1,1,1 ! Set V1=V2=V3=1 
edcontact,1.0,