昨天 11:12 上传下载次数: 4
各位大家好,这是小弟我做《ANSYS有限元原理与工程应用实例大全》一书中厚板轧制模拟这一节的命令流,几经调试,就是得不到最后的结果,提示出现了单元节点未被选择的警告,不知何故啊,请各位大侠帮帮忙,万分感谢了。
小弟泪奔中,希望能够得到各位的指点或者交流,我的qq:10589757
命令流:
/prep7
Et,1,solid164
Mp,dens,1,785000
Mp,ex,1,1.17e11
Mp,nuxy,1,0.36
Tb,biso,1,,,,
Tbdat,1,8e7
Tbdat,2,8e6
Edmp,rigi,2,7,5
Mp,dens,2,785000
Mp,ex,2,2.1e11
Mp,nuxy,2,0.3
Rectng,0,1.45,0,0.087,
Rectng,-0.001,1.7,0.077,0.1,
/pnum,kp,1
Kgen,2,1, , , , ,-1.5, ,0
Kgen,2,5, , , , 0.51, , ,0
Kgen,2,6, , , ,0.51, , ,0
Lstr,1,9
Vdrag,1, , , , , ,9
Flst,8,2,3
Fitem,8,10
Fitem,8,11
Vrotat,2, , , , , ,p51x, ,360, ,
Vsel,s, , ,1
Allsel,below,volu
/pnum,line,1
Mat,1
Lesize,2, , ,6, , , , ,1
Lesize,14, , ,60, , , , ,1
Lesize,1, , ,40,0.2, , , ,1
Lesize,10, , ,40,0.2, , , ,1
Lesize,3, , ,40,5, , , ,1
Lesize,15, , ,40,5, , , ,1
Vmesh,1
Allsel,all
Vsel,s,,,2,5
Allsel,below,volu
Mat,2
Lesize,6, , ,1, , , , ,1
Lesize,5, , ,45, , , , ,1
Lesize,45, , ,45, , , , ,1
Vmesh,2,5,1
Allsel,all
Ldele,9
Vgen, ,1, , , , ,-0.15, , ,1
edpart,create
Edcgen,asts,1,2,0.35,0.25,0,0,0, , , , ,0,10000000,0,0
Nsel,s,loc,x,0
D,all,ux,0
Nsel,s,loc,y,0
D,all,uy,0
Vsel,s, , ,1
Nslv,s,1
Cm,plate,node
Edve,velo,plate,0,0,3.8,0,0,0, , , , , ,
/solu
*dim,time1,array,4,1,1, , ,
*dim,velocity1,array,4,1,1, , ,
*dim,time2,array,4,1,1, , ,
*dim,rollgap,array,4,1,1, , ,
*dim,time3,array,5,1,1, , ,
*dim,acc1,array,5,1,1, , ,
*set,time1(2,1,1),0.48
*set,time1(3,1,1),0.5
*set,time1(4,1,1),10
*set,time2(2,1,1),0.48
*set,time2(3,1,1),0.5
*set,time1(4,1,1),10
*set,velocity1(1,1,1),-7.843137254902
*set,velocity1(2,1,1),-7.843137254902
*set,velocity1(3,1,1),7.843137254902
*set,velocity1(4,1,1),7.843137254902
*set,rollgap(3,1,1),-0.009
*set,rollgap(4,1,1),-0.009
*set,time3(2,1,1),0.48
*set,time3(3,1,1),0.58
*set,time3(4,1,1),0.68
*set,time3(5,1,1),10
*set,acc1(3,1,1),-80
Edload,add,aclz,0,plate,time3,acc1,0, , , , ,
Edload,add,rbox,0,2,time1,velocity1,0, , , , ,
Edload,add,rbuy,0,2,time2,rollgap,0, , , , ,
Edenergy,1,1,1,1
Time,1.5,
Edopt,add,blank,both
Edrst,100,
Edhtime,200,
Edout,rcforc
Solve
/post1
File,’platerollingprogress’,’rst’,’.’
Set,1,40,1,
/dscale,1,1
Pldisp,2
Set,last
/replot
Plnsol,epel,eqv,0,1
Vsel,s, , ,1
Allsel,below,volu
/replot
Set,1,40,1,
/replot
Plnsol,s,eqv,0,1
Set,last
/replot![]() |