命令为:(点到面接触单元)
/prep7
et,1,plane42
mp,ex,1,5e6
mp,nuxy,1,0.3
et,2,contac48,,,1
r,2,3e4,,,,,0.001
mp,mu,2,0.3
rectng,0,20,0,5
rectng,0,5,5,10
lesize,all,1
amesh,all
asel,s,,,1
nsla,s,1
nsel,r,loc,y,5
cm,block1,node
alls
asel,s,,,2
nsla,s,1
nsel,r,loc,y,5
cm,block2,node
alls
real,2
mat,2
type,2
gcgen,block2,block1
finish
/solu
time,1
auto,on
nsubst,100,1000,10
lsel,s,,,8
nsll,s,1
d,all,ux,5
alls
lsel,s,,,7
nsll,s,1
sf,all,pres,100
alls
lsel,s,,,1
nsll,s,1
d,all,all
alls
outres,all,all
NLGEOM,ON
solve
finish
/post1
set,last
plnsol,s,eqv
finish |