>>256
!強制変位を使った接触解析例題
/PREP7
!***要素定義
et,1,185
et,2,186
et,3,170
et,4,174
!****リアルコンスタント定義
r,1 $r,2 $r,3
!材料特性
mp,ex,1,1e7 $mp,nuxy,1,0.49 $mp,mu,1,0
!モデリング
cyl4,,0.1,0.08,270,,360,0.01 $vatt,1,1,1 $vsel,none
cyl4,,0.1,0.08,270,0.09,360,0.01 $vatt,1,1,2 $vsel,none
bloc,,0.1,-0.1,,,0.02 $vatt,1,2,1 $allsel
nummrg,kp
vsel,s,type,,1 $vmesh,all
vsel,inve $vsweep,all
!****接触要素作成
asel,s,loc,y,0 $nsla,s,1 $type,3 $real,3 $esurf
local,11,1,,0.1
asel,s,loc,x,0.09 $nsla,s,1 $type,4 $esurf
csys,0
!荷重定義節点のカップリング
nsel,s,loc,y,0.1 $cp,1,uy,all
*get,ndof,node,,num,min
allsel
finish