1、/filname,P287-2-1
/title,P287-2-1
*set,d,12
*set,l,3 !注意此处为L,不是一;
/prep7
mp,ex,1,1000
mp,prxy,1,0.35
tb,biso,1,1,2
tbdata,,1,2.99
et,1,visco106
keyopt,1,3,1 !设置轴对称单元,利用对称性建模;
rectng,0,d/2,0,l/2 !注意此处为L/2,不是二分之一;
lesize,1,,,12,,,,,1
lesize,2,,,5,,,,,1
mshkey,1
ames
2、h,all
nsel,s,loc,y,1.5
cp,1,uy,all !耦合图示节点y向自由度
nsel,all
fini
/solu
anty,0
dl,1,,symm !在线1、4上施加对称约束;
dl,4,,symm
d,all,,,,,,uz !在所有节点施加uz约束
dl,3,,ux !在线3上施加ux约束
d,14,,-0.3,,,,uy !在节点14上施加uy约束
nlgeom,on
pred,on
time,0.3
artots,1
nsubst,120,,
3、1
outres,all,-10
solve
fini
/post1
set,last
/dscale,1,1
pldisp,2
plnsol,nl,psv,0,1
plnsol,s,eqv,o,1
plnsol,epto,eqv,0,1
fini
/post26
rforce,2,14,f,force
add,2,2,,,n_force,,,-1,1,1
plvar,2
fini
实例分析:
1. 本例的特点在于约束的施加;对上面一条线进行耦合后,又对节点14施加了uy约束,等效于给上面一条线施加了uy约束;由于摩擦的缘故,又对上面一条线施加了ux约束;并且对面上所有节点施加了uz约束;其实等于把上面一条线施加了uy、ux、uz约束;其它点施加了uz约束;并对左线和底线施加了对称约束;
2. 本例为何没有施加力???????