声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1398|回复: 0

[CFD及热分析] 两个关于热辐射的例子

 关闭 [复制链接]
发表于 2006-11-9 11:01 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
1、面对面:
finish
/clear
/filname,surf_radi1,1

/PREP7  
ET,1,SOLID70

MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,KXX,1,,190   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,2700
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,C,1,,900

rd1=1.0
rd2=0.9
rd3=0.3
rd4=0.25
z0=0
z1=0.2
dt=0.0001

CYLIND,rd1,rd2,z0,z1,0,180,

wpof,-0.30000  

CYLIND,rd3,rd4,z0,z1,0,180,


VSYMM,Y,all, , , ,0,0
  
NUMMRG,KP, , , ,LOW
CSWPLA,11,1,1,1

lsel,s,loc,z,z0+dt,z1-dt
lesi,all,,,6,1

lsel,s,loc,x,rd3
lsel,r,loc,z,z0
lesi,all,,,20,1

lsel,s,loc,y,0
nsel,r,loc,z,z0
lesi,all,,,4

csys,1
lsel,s,loc,x,rd1
lsel,r,loc,z,z0
lesi,all,,,25

alls


MSHAPE,0,3D
MSHKEY,1

VMESH,all

asel,s,loc,x,rd2
sfa,all,,rdsf,0.85,1

csys,11
asel,s,loc,x,rd3
sfa,all,,rdsf,0.85,1
alls

nsel,s,loc,x,rd4
d,all,temp,1000

csys,1
nsel,s,loc,x,rd1
d,all,temp,300
alls

finish
/solu

tunif,300

STEF,0.567E-07  
TOFFST,0
RADOPT,0.1,0.1E-03,0,1000,0.1,0.1   
SPCTEMP,1,300
  
HEMIOPT,10  
V2DOPT,0,20,1,200   
VFOPT,OFF, , , ,BINA
alls
time,1
kbc,1
nsubst,10,100,5

save
solve

2、点对面:
!Radiation modeling using surface effect element method for 2d model.
finish
/clear

/PREP7  
ET,1,PLANE55
ET,2,SURF151

KEYOPT,2,4,1
KEYOPT,2,5,1
KEYOPT,2,9,1

R,1,.6,5.67e-8, , ,

RMORE, , , , , ,
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,KXX,1,,50
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,C,1,,500
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,1500
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EMIS,1,,0.85  


k,1,-0.75,0.15,0
k,2,-0.25,0.25,0
k,3,0.3,0.1,0   
k,4,0.8,0.25,0  
k,5,1.45,0.2,0  
k,6,-0.75,-0.55,0   
k,7,1.45,-0.55,0
k,8,0.5,0.5,0



bsplin,1,2,3,4,5
a,1,5,7,6

lsel,s,,,1
lesi,all,,,25

lsel,s,,,2
lesi,all,,,8

TYPE,   1   
MAT,    1
REAL,   1   

MSHAPE,0,2D
MSHKEY,1

AMESH,all   

NKPT,0,       8

*get,nmax,node,,num,max

lsel,s,,,1
nsll,s,1
nsel,a,,,nmax

TYPE,   2   
MAT,       1
REAL,       1   
TSHAP,LINE  
ESURF,nmax


ALLSEL,ALL  

D,nmax,TEMP,500

lsel,s,,,3
nsll,s,1
d,all,temp,300
alls


FINISH  
/SOLU   
ANTYPE,0
tunif,300
NROPT,FULL, ,   

OUTRES,ALL,ALL,
TIME,1  
AUTOTS,1
NSUBST,10,1000,5,1  
KBC,1   
   
SOLVE   
FINISH

[ 本帖最后由 sysh320 于 2006-11-9 12:04 编辑 ]
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-14 20:32 , Processed in 0.062089 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表