再问对流换热系数加载问题（圆面）-----救救小弟

biyvfhp2

我在论坛上发了同样的贴了，但是好像没有受到重视，我这个问题非常急，请大家多多关心一下。
下面为加载对流换热系数的程序！主要为了实现在一个圆面上加载一个与半径大小有关的对流换热系数（关系式为：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 编辑 ]

biyvfhp2

顶一下

biyvfhp2

大侠们，给指点一下啊，兄弟真急啊

feimj

用workbench好了

shaoyun1987

请问楼主有成果吗？不妨再分享一下