楼主的附录1:
Large-sized Double-cone model_1.rar (2.47 KB)
下载次数:15
2008-11-9 13:13
阅读权限: 10
没有问题的双锥密封命令流
- Finish
- /clear
- /filn,Large-sized Double-cone model_1
- /TITLE,Large-sized Double-cone model_1
- !_____________________参数设定
- !!!!!!!!!!!!!!!!!!!!双锥环1尺寸
- szh1_A=153
- szh1_B=41
- szh1_C=84
- szh1_Di=3200
- szh1_alpha=30
- szh1_g=3.2
- szh1_E=10 !双锥环上部间隙
- !!!!!!!!!!!!!!!!!!!!模型结构尺寸
- deltap=600 !平盖总高
- delta=200
- L=1420
- theta=360/32
- !!!!!!!!!!!!!!!!!!!!螺栓尺寸
- LS_D=130 !螺栓直径
- LSD_D=140 !平盖上螺栓洞直径
- nut_h=80 !螺母高
- nut_r=95 !螺母外切半径
- forc_bolt=526760
- Pi=12.6
- !_____________________定义单元及材料属性
- /prep7
- et,1,solid45
- mp,ex,1,1.98E5 !双锥环35钢材料参数
- mp,nuxy,1,0.3
- mp,ex,2,1.98E5 !顶底盖和筒体材料16Mn参数
- mp,nuxy,2,0.3
- mp,ex,3,1.98E5 !螺栓材料40CrNiMo参数
- mp,nuxy,3,0.3
- mp,mu,4,0.3 !定义摩擦系数
- !________________________________________创建模型
- !!!!!!!!!!!!!!!!!!!!创建双锥环
- k,1001,0,0,0
- k,1002,0,1,0
- *afun,deg !必须把弧度换成角度
- k,1,szh1_Di/2,0
- k,2,kx(1)+(szh1_A-szh1_c)/2*tan(szh1_alpha),ky(1)+(szh1_A-szh1_c)/2
- k,3,kx(2),ky(2)+szh1_c
- k,4,kx(1),ky(1)+szh1_A
- k,5,kx(3)-szh1_B,ky(4)
- k,6,kx(5),ky(1)
- a,1,2,3,4,5,6
- !!!!!!!!!!!!!!!!!!!!创建双锥环间隙
- k,7,kx(6)-szh1_g,ky(6)
- k,8,kx(7),ky(5)+szh1_E
- k,9,kx(4),ky(8)
- a,4,5,6,7,8,9
- blc4,0,0,szh1_Di/2+delta,deltap
- blc4,kx(1),ky(1),delta,-L+ky(2)
- aptn,all
- kwpave,8
- wprota,,90
- asbw,6
- kwpave,5
- asbw,3
- asbw,7
- kwpave,3
- asbw,9
- kwpave,2
- asbw,10
- wprota,,,90
- kwpave,9
- asbw,4
- kwpave,8
- asbw,12
- alls
- adele,1,2,,1
- adele,11,,,1
- kl,33,0.5 !生成kp5
- kwpave,5
- asbw,10
- asbw,3
- asbw,7
- lglue,all
- alls
- vrotat,all,,,,,,1001,1002,theta !平盖与上锥面接触号22,筒体与下锥面接触面号43
- k,2001,szh1_Di/2,0
- k,2002,kx(2001)+(szh1_A-szh1_c)/2*tan(szh1_alpha),ky(2001)+(szh1_A-szh1_c)/2
- k,2003,kx(2002),ky(2002)+szh1_c
- k,2004,kx(2001),ky(2001)+szh1_A
- k,2005,kx(2003)-szh1_B,ky(2004)
- k,2006,kx(2005),ky(2001)
- a,2001,2002,2003,2004,2005,2006 !形成a58
- vrotat,58,,,,,,1001,1002,theta !双锥环v13,上锥面61,下锥面59
- !!!!!!!!!!!!!!!!!!!!创建平盖螺栓洞
- kl,44,0.5 !生成kp56
- wpstyl,defa
- kwpave,56
- wprota,,90
- cyl4,,,LSD_D/2,,,,ky(56)-szh1_A/2 !ky(56)是active cs下的坐标
- alls
- bopt,numb,off
- vsel,s,volu,,1,3
- vsel,a,volu,,9,11
- vsel,a,volu,,14
- vsbv,all,14 !挖出平盖螺栓孔洞
- alls
- cyl4,,,LS_D/2,,,,ky(56)+L-ky(2)
- vsel,s,volu,,1,5,4
- vsel,a,volu,,8
- vsbv,all,1 !挖出筒体螺栓洞
- cyl4,,,LS_D/2,,,,ky(56)+L-ky(2)+120 !创建螺栓,120是螺栓超出平盖部分长度
- vgen,2,1,,,,120,,,,1
- rpr4,6,,,nut_r,,-nut_h !螺母
- !!!!!!!!!!!!!!!!!!!创建cm
- alls
- vsel,s,volu,,1,3
- vsel,a,volu,,5
- vsel,a,volu,,19,20 !在平盖上映出螺母相关线
- vptn,all
- vsel,s,,,8,10
- vadd,all !螺栓体号v1
- vsel,s,,,23
- cm,luomu,volu
- alls
- vsel,s,,,6,7
- vsel,a,,,15,18
- vsel,a,,,21,22
- vsel,a,,,4,12,8
- cm,pinggai,volu
- alls
- vsel,s,,,11,14,3
- cm,tongti,volu
- alls
- vsel,s,,,13
- cm,szh,volu
- !_____________________划分网格
- wpstyl,defa !wp回原点,很可能在后面做预紧单元时有用
- alls
- mat,1 !双锥环网格
- esize,10
- lesize,108,,,16,,,,,1
- cmsel,s,szh
- vsweep,all
- mat,2
- cmsel,s,pinggai
- esize,20
- lesize,55,,,16,,,,,1
- lesize,3,,,4,,,,,1
- lesize,90,,,16,,,,,1
- lesize,26,,,17,,,,,1
- lesize,74,,,16,,,,,1
- lesize,13,,,10,,,,,1
- lesize,22,,,35,,,,,1
- lesize,75,,,35,,,,,1
- vsweep,15
- vsweep,18
- vsweep,17
- vsweep,16
- vsweep,7
- vsweep,6
- vsweep,12
- vsweep,4
- lesize,5,,,10,,,,,1
- lesize,18,,,10,,,,,1
- lesize,40,,,10,,,,,1
- lesize,38,,,10,,,,,1
- lesize,6,,,3,,,,,1
- lesize,2,,,3,,,,,1
- lesize,45,,,3,,,,,1
- lesize,39,,,3,,,,,1
- lesize,204,,,2,,,,,1
- lesize,202,,,2,,,,,1
- lesize,203,,,2,,,,,1
- lesize,205,,,2,,,,,1
- lesize,168,,,3,,,,,1
- lesize,169,,,3,,,,,1
- lesize,166,,,3,,,,,1
- lesize,171,,,3,,,,,1
- lesize,198,,,3,,,,,1
- lesize,200,,,3,,,,,1
- lesize,150,,,20,,,,,1
- lesize,149,,,20,,,,,1
- lesize,153,,,20,,,,,1
- lesize,147,,,20,,,,,1
- MSHKEY,0
- MSHAPE,1,3d
- esize,12
- vmesh,21
- vmesh,22
- cmsel,s,tongti
- esize,15
- lesize,31,,,4,,,,,1
- lesize,21,,,20,,,,,1
- lesize,82,,,16,,,,,1
- lesize,70,,,16,,,,,1
- vsweep,all
- mat,3
- vsel,s,,,1 !螺栓
- vmesh,all
- cmsel,s,luomu
- vmesh,all
- !!!!!!!!!!!!!!!!!!网格划分完毕
- !___________________________将各部分模型节点压缩,接触面部分节点不能压缩,否则将是刚性连接,不是接触
- !!!!!!!!!!!!!平盖,筒体,螺栓,螺母部分
- alls
- cmsel,s,pinggai
- cmsel,a,tongti
- cmsel,a,luomu
- vsel,a,,,1
- nslv,s,1
- nummrg,node
- !____________________________创建预紧单元
- alls
- psmesh,1,yujin,,volu,1,0,y,szh1_A/2,,,,lsyj
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- !____________________________创建接触
- !!!!!!!!!!!!!!!!上锥面和平盖接触
- alls
- asel,s,area,,61 !上锥面
- cm,szm_up,area
- alls
- asel,s,area,,22 !平盖下
- cm,pg_down,area
- et,3,170
- et,4,174
- keyopt,4,9,0
- keyopt,4,10,2
- mat,4
- r,2
- real,2
- cmsel,s,pg_down !目标面
- type,3
- nsla,s,1
- esln,s,0
- esurf,all
- alls
- cmsel,s,szm_up !接触面
- type,4
- nsla,s,1
- esln,s,0
- esurf,all
- !!!!!!!!!!!!!!!!下锥面和筒体接触
- alls
- asel,s,area,,59 !下锥面
- cm,szm_down,area
- alls
- asel,s,area,,43 !底座
- cm,dz,area
- et,5,170
- et,6,174
- keyopt,6,9,0
- keyopt,6,10,2
- r,3
- real,3
- mat,4
- cmsel,s,dz !目标面
- type,5
- nsla,s,1
- esln,s,0
- esurf,all
- alls
- cmsel,s,szm_down !接触面
- type,6
- nsla,s,1
- esln,s,0
- esurf,all
- !!!!!!!!!!!!!!!!双锥环内表面和平盖接触
- alls
- asel,s,area,,63 !双锥环内表面
- cm,szh_in,area
- alls
- asel,s,area,,36,41,5 !平盖与双锥环接触部分
- cm,pg_szh,area
- et,7,170
- et,8,174
- keyopt,8,10,2
- r,4,,,10,,2
- real,4
- mat,4
- cmsel,s,szh_in !接触面
- type,8
- nsla,s,1
- esln,s,0
- esurf,all
- alls
- cmsel,s,pg_szh !目标面
- type,7
- nsla,s,1
- esln,s,0
- esurf,all
- fini
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!接触创建完毕
- /solu
- alls
- lsclear,all
- nropt,full
- pred,on
- lnsrch,on
- antype,0
- autots,1
- nsubst,50,400,1
- outres,all,all
- EQSLV,pcg,1E-5
- NCNV,0,0,0,0,0 !发生错误不中断
- wpstyl,defa
- csys,5
- asel,s,loc,y,0
- asel,a,loc,y,theta
- da,all,symm
- csys,0
- asel,s,loc,y,-L+ky(2)
- nsla,s,1
- d,all,uy
- !_________________________________________加载
- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!预紧力
- alls
- sload,1,9,lock,forc,forc_bolt,1,2
- time,10
- alls
- lswrite,1
- time,20
- lswrite,2
- asel,s,,,40
- asel,a,,,64
- asel,a,,,34
- asel,a,,,27
- asel,a,,,51
- asel,a,,,62
- asel,a,,,63
- asel,a,,,36
- asel,a,,,41
- sfa,all,,pres,Pi
- alls
- time,30
- lswrite,3
- !lssolve,1,3,1
- !fini
复制代码 |