钢板卷制成圆筒实例

ferriswanglei

Finish
/clear
/config,nres,2000
!设置最大子步数
/prep7
Et,1,shell43
!用于划分上下辊
Et,2,solid186
Mp,ex,1,2e11
Mp,dens,1,7800
Mp,prxy,1,0.3
Mp,ex,2,2e11
Mp,dens,2,7800
Mp,prxy,2,0.3
Tb,bkin,2,1
Tbtemp,0
Tbdata,,240e6,2e8
!定义材料的屈服极限、切变模量

R,1,0.02

!壳单元的厚度
Cylind,0.19,,0.3,2.3,,360
!创建上辊
Cylind,0.095,,0.3,,360
Cylind,0.095,,2.6,2.3,,360
Wpoff,0.27,-0.4
Cylind,0.15,,0.3,2.3,,360
Cylind,0.075,,0.3,,,360
Cylind,0.075,,2.6,2.3,,360
Wpoff,-0.54
Cylind,0.15,,0.3,2.3,,360
Cylind,0.075,,0.3,,,360
Cylind,0.075,,2.6,2.3,,360
Vglue,all
Allsel
Vdele,all
Csys,0
Hptcreate,area,5,,coord
!在辊端面中心处创建硬点
Hptcreate,area,10,,coord,,,2.6
Hptcreate,area,34,,coord,-0.27,-0.4,2.6
Hptcreate,area,29,,coord,-0.27,-0.4
Hptcreate,area,22,,coord,0.27,-0.4,2.6
Hptcreate,area,17,,coord,0.27,-0.4
Mat,1
Type,1
Real,1
Esize,0.05
Smrtsize,8
Mshape,1
Amesh,all
Csys,4
Block,0.7,-1,0.17,0.2,0.5,2.1
Smrtsize,off
Lesize,96,,,1
Mat,2
Type,2
Mshkey,1
Mshape,0
Esize,0.05
Vmesh,all
/view,1,1,1,1
eplot
/pnum,area,1
aplot
Et,4,targe170
Et,5,conta174
Keyopt,5,12,1
Keyopt,5,5,3
R,10,,,0.01,,0.1
R,11,,,0.01,,0.1
R,12,,,0.01,,0.1
Asel,s,,,14
Nsla,s,1
Nsel,u,loc,z,0.8,1.8
Mat,3
Real,10
Type,4
Esurf
Allsel
Asel,s,,,3,4,1
Nsla,s,1
Nsel,u,loc,z,0.9,1.7
Nsel,u,loc,z,0.3,0.4
Nsel,u,loc,z,2.2,2.3
Mat,3
Real,10
Type,5
Esurf
Allsel
Asel,s,,,13
Nsla,s,1
Nsel,u,loc,z,0.8,1.8
Mat,4
Real,11
Type,4
Esurf
Allsel
Asel,s,,,27,28,1
Nsla,s,1
Nsel,u,loc,z,0.9,1.7
Nsel,u,loc,z,0.3,0.4
Nsel,u,loc,z,2.2,2.3

Mat,4,
Real,11
Type,5
Esurf
Allsel
Asel,s,,,13
Nsla,s,1
Nsel,u,loc,z,0.8,1.8
Mat,4
Real,12
Type,4
Esurf
Allsel
Asel,s,,,15,16,1
Nsla,s,1
Nsel,u,loc,z,0.9,1.7
Nsel,u,loc,z,0.3,0.4
Nsel,u,loc,z,2.2,2.3
Mat,4
Real,12
Type,5
Esurf
Allsel
Finish
/solu
Csys,0
D,all,uz
D,all,rotx
D,all,roty
Nsel,s,loc,x
Nsel,r,loc,y
D,all,uy,-0.08
D,all,ux
D,all,uz
Allsel
Csys,4
Asel,s,loc,y,-2,0.16
Nsla,s,1
D,all,all
Allsel
Antype,trans
Neqit,100
Lnsrch,on
Nlgeom,on
Time,1
Autot,on
Nsubst,30,80,20
Kbc,0
outres,all,all
Solve

Finish
/clear
/config,nres,2000
!设置最大子步数
/prep7
Et,1,shell43
!用于划分上下辊
Et,2,solid186
Mp,ex,1,2e11
Mp,dens,1,7800
Mp,prxy,1,0.3
Mp,ex,2,2e11
Mp,dens,2,7800
Mp,prxy,2,0.3
Tb,bkin,2,1
Tbtemp,0
Tbdata,,240e6,2e8
!定义材料的屈服极限、切变模量

R,1,0.02

!壳单元的厚度
Cylind,0.19,,0.3,2.3,,360
!创建上辊
Cylind,0.095,,0.3,,360
Cylind,0.095,,2.6,2.3,,360
Wpoff,0.27,-0.4
Cylind,0.15,,0.3,2.3,,360
Cylind,0.075,,0.3,,,360
Cylind,0.075,,2.6,2.3,,360
Wpoff,-0.54
Cylind,0.15,,0.3,2.3,,360
Cylind,0.075,,0.3,,,360
Cylind,0.075,,2.6,2.3,,360
Vglue,all
Allsel
Vdele,all
Csys,0
Hptcreate,area,5,,coord
!在辊端面中心处创建硬点
Hptcreate,area,10,,coord,,,2.6
Hptcreate,area,34,,coord,-0.27,-0.4,2.6
Hptcreate,area,29,,coord,-0.27,-0.4
Hptcreate,area,22,,coord,0.27,-0.4,2.6
Hptcreate,area,17,,coord,0.27,-0.4
Mat,1
Type,1
Real,1
Esize,0.05
Smrtsize,8
Mshape,1
Amesh,all
Csys,4
Block,0.7,-1,0.17,0.2,0.5,2.1
Smrtsize,off
Lesize,96,,,1
Mat,2
Type,2
Mshkey,1
Mshape,0
Esize,0.05
Vmesh,all
/view,1,1,1,1
eplot
/pnum,area,1
aplot
Et,4,targe170
Et,5,conta174
Keyopt,5,12,1
Keyopt,5,5,3
R,10,,,0.01,,0.1
R,11,,,0.01,,0.1
R,12,,,0.01,,0.1
Asel,s,,,14
Nsla,s,1
Nsel,u,loc,z,0.8,1.8
Mat,3
Real,10
Type,4
Esurf
Allsel
Asel,s,,,3,4,1
Nsla,s,1
Nsel,u,loc,z,0.9,1.7
Nsel,u,loc,z,0.3,0.4
Nsel,u,loc,z,2.2,2.3
Mat,3
Real,10
Type,5
Esurf
Allsel
Asel,s,,,13
Nsla,s,1
Nsel,u,loc,z,0.8,1.8
Mat,4
Real,11
Type,4
Esurf
Allsel
Asel,s,,,27,28,1
Nsla,s,1
Nsel,u,loc,z,0.9,1.7
Nsel,u,loc,z,0.3,0.4
Nsel,u,loc,z,2.2,2.3

Mat,4,
Real,11
Type,5
Esurf
Allsel
Asel,s,,,13
Nsla,s,1
Nsel,u,loc,z,0.8,1.8
Mat,4
Real,12
Type,4
Esurf
Allsel
Asel,s,,,15,16,1
Nsla,s,1
Nsel,u,loc,z,0.9,1.7
Nsel,u,loc,z,0.3,0.4
Nsel,u,loc,z,2.2,2.3
Mat,4
Real,12
Type,5
Esurf
Allsel
Finish
/solu
Csys,0
D,all,uz
D,all,rotx
D,all,roty
Nsel,s,loc,x
Nsel,r,loc,y
D,all,uy,-0.08
D,all,ux
D,all,uz
Allsel
Csys,4
Asel,s,loc,y,-2,0.16
Nsla,s,1
D,all,all
Allsel
Antype,trans
Neqit,100
Lnsrch,on
Nlgeom,on
Time,1
Autot,on
Nsubst,30,80,20
Kbc,0
outres,all,all
Solve

Finish
/solu
Acel,0,9.8
Csys,0
Nsel,s,loc,x
Nsel,r,loc,y
D,all,uy,-0.06
D,all,ux
D,all,uz
D,all,rotx
D,all,roty
Allsel
Kbc,0
Nsubst,20,300,10
Time,2.1
Solve
Finish
/post1
Set,last
Plns,u,sum
Antime,50,0.5,,1,2,2.1
Finish

J_L

学习学习，接触博大精深啊

sensesport

膜拜楼主 我何时能独立作出此等复杂的模拟啊

yao24688

多谢，好东东啊

yao24688

LZ ,命令流我看不懂！有没有别的方式可以介绍下？

hust2008

学习~  

呵呵  可不可以转仿真币给楼主呀

看到发技术贴的楼主，就想转仿真币。哈哈

cuixingshuang

版主，能不能转化为ABAQUS6.8的INP呀，我是新手想学习下，谢谢

p24j

楼主厉害，学习啦

zdq1966

以后有时间消化一下

FXL2010

谢谢楼主分享！

cui03170206

运行中的警告：麻烦版主解释为什么，看你命令流也没MAT3啊，怎么回事呢！
Material number 3 (used by element 4357 ) should normally have at least
one MP or one TB type command associated with it.  Output of energy by  
material may not be available.

marsltp

好像真的有点问题

开心与哈哈312

试一下看看