iCAx开思网

标题: 要模拟两个物体之间热传导该怎么设置? [打印本页]

作者: Longgang1985    时间: 2010-7-12 15:08
标题: 要模拟两个物体之间热传导该怎么设置?

我现在需要模拟两个物体之间的热传导,我给两个物体之间创建了接触单元,在两物体外表面上施加空气对流载荷,两物体接触部分表面定义接触热传导系数,
给物体一施加27°,物体二施加83.3°。求解的结果显示两物体的温度都不变,根本就没有传热。是怎么回事?
命令流如下:
Finish
~PARAIN,'ballscrew','x_t',,SOLIDS,0,0  !导入实体模型(x_t格式)
/NOPR  
/GO
/FACET,NORML
/REPLOT  
/title,Thermal Analysis of Ballscrew
/prep7
et,1,solid70

mptemp,,,,,,,,
mptemp,1,0

mpdata,ex,1,,2.1e11
mpdata,prxy,1,,0.3
mpdata,dens,1,,7820
mpdata,c,1,,460
mpdata,kxx,1,,36.5
uimp,1,reft,,,20
mpdata,alpx,1,,1.12e-5

esize,0.002
MSHKEY,0
MSHAPE,1,3d

!自由网格划分
vmesh,1



esize,0.002
MSHKEY,0
MSHAPE,1,3d
vmesh,2


esize,0.002
MSHKEY,0
MSHAPE,1,3d
vmesh,3,6



/VIEW,1,1  
/ANG,1  
/REP,FAST

Asel,s,,,44    !螺母内表面
Nsla,s,1
Cm,plate1,node  !生成第一个节点组件
Allsel

Asel,s,,,5    !丝杠外表面
Nsla,s,1
Cm,shaft1,node  !生成第一个节点组件
Allsel

R,3
Real,3
et,2,170
et,3,174

Nsel,s,,,plate1
Type,2
Esln,s,0
Esurf,all
Allsel

Nsel,s,,,shaft1
Type,3
Esln,s,0
Esurf,all
Allsel

KEYOPT,3,1,2
KEYOPT,3,2,2
KEYOPT,3,4,2
KEYOPT,3,5,1
KEYOPT,3,6,0
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,2
KEYOPT,3,10,0  
KEYOPT,3,11,0  
KEYOPT,3,12,4

KEYOPT,3,14,0  
Finish

/solu          !进入求解器
Antype,trans    !定义为瞬态分析
Timint,on      !时间积分
Nropt,full      !使用完全的NR
Autots,on
Time,100      !指定求解时间
Deltim,20,20,50  !定义时间子步

kwpave,44,59      !坐标系偏移(点4459的中间位置)
wprota,0,0,180    !Y轴旋转180°
wpoffs,0,0,0.146  !沿转后的Z轴平移0.146
cswpla,11,1,1,1        !定义局部柱坐标系  
csys,11  

asel,s,area,,2,10
asel,a,area,,12,13
asel,a,area,,22,32
asel,a,area,,37,43
asel,a,area,,45,50,5
asel,a,area,,48,49
asel,a,area,,54,56
asel,a,area,,60,62
asel,a,area,,66,68
nsla,s,1
sf,all,conv,3.5,20  !在丝杠外表面上施加空气对流载荷
Allsel

asel,s,area,,1,11,10
asel,a,area,,14,21
nsla,s,1
sf,all,conv,532.7,20  ! 在丝杠内表面上施加水的对流载荷
allsel

nsel,s,loc,x,0.015
nsel,r,loc,z,-0.066,-0.036
sfdele,all, conv
allsel

nsel,s,loc,x,0.015
nsel,r,loc,z,1.232,1.262  !删去轴承处空气对流换热系数
sfdele,all,conv
Allsel

nsel,s,loc,x,0.015
nsel,r,loc,z,-0.066,-0.036  !删去轴承处空气对流换热系数
sf,all,conv,150,20
Allsel

nsel,s,loc,x,0.015
nsel,r,loc,z,1.232,1.262  !施加轴承与丝杠处接触热传导系数
sf,all,conv,150,20
Allsel


nsel,s,loc,x,0.02
nsel,r,loc,z,0.46,0.685
sfdele,all,conv  !删去螺母处空气对流换热系数
allsel

nsel,s,loc,x,0.02
nsel,r,loc,z,0.46,0.685    !施加螺母与丝杠处接触热传导系数
sf,all,conv,150,20
allsel


Vsel,s,volu,,1
Vsel,a,volu,,3,6
nslv,s,1
D,all,temp,27
allsel

Vsel,s,volu,,2
nslv,s,1
D,all,temp,83.3
allsel
Toffst,273
Outres,,all
solve

/post1
Plnsol,temp,,0,
作者: Longgang1985    时间: 2010-7-13 18:44
哎 怎么没人回复?高手在哪里?




欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3