再问对流换热系数加载问题（圆面）-----救救小弟
我在论坛上发了同样的贴了，但是好像没有受到重视，我这个问题非常急，请大家多多关心一下。:'(下面为加载对流换热系数的程序！主要为了实现在一个圆面上加载一个与半径大小有关的对流换热系数（关系式为：hs=f(R)），
我用了一个TABLE来实现（模仿论坛上帖子的编的），有高手能否帮我看看，不胜感激！我的联系方式QQ为：542417288
!***********************************************
finish
/clear
/PREP7
!*
et,1,55
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,46
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,C,1,,460
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7800
SAVE
PCIRC,0.01,0.1,0,360,
MSHAPE,0,2D
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
csys,1
*dim,hf,table,50,1,,x, !定义表
x=0.01
*set,hf(0,1),0
*do,i,1,50
h=0.308*0.1337*2*sqrt((998*0.00003*2000/0.1337))*sqrt(((2*3.1415926*2000/60*x)/0.00003))!对流换热系数
*set,hf(i,0),x
*set,hf(i,1),h
x=x+(0.1-0.01)/50
*enddo
/SOLU
FLST,2,1,5,ORDE,1
FITEM,2,1
/GO
!*
!*
SFA,P51X, ,CONV, %HF% ,10!通过表对面加载对流换热系数
!*
ANTYPE,4
!*
TRNOPT,FULL
LUMPM,0
!*
DELTIM,0.05,0,0
OUTRES,ERASE
OUTRES,ALL,ALL
AUTOTS,0
TIME,1
TUNIF,30,
[ 本帖最后由 biyvfhp2 于 2007-9-27 22:00 编辑 ] 顶一下 大侠们，给指点一下啊，兄弟真急啊 用workbench好了 请问楼主有成果吗？不妨再分享一下
页:
[1]