heat.cpp

《蓄热式陶瓷球燃烧器设计系统(版本:1.01aFinal)》为自由软件

// Heat.cpp: implementation of the CHeat class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "HtacBall.h"
#include "Heat.h"
#include "math.h"


#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CHeat::CHeat()
{

}

CHeat::~CHeat()
{

}

    //空气出口温度Ｔa2,K
/**********************************************
L－烟气或空气的流量，ｋｇ／ｓ
C－空气或烟气的平均定压比热，Ｊ／ｋｇ．Ｋ
T1－烟气的入口或空气的出口温度，Ｋ
T2－烟气的出口或空气的入口温度，Ｋ
Tao－换向时间，ｓ
**********************************************/
float CHeat::FTa2(float L,float C,float T1,float T2,float tao)
{
	return L*C*(T1-T2)*tao;
}

	//换热系数alf,w/m2.K
/**********************************************
Ｔ－蓄热室内空气或烟气的平均温度，Ｋ
ｕ－空气或烟气在蓄热室中标态下的空塔速度，ｍ／ｓ
ｄ－蓄热球的直径，ｍ
**********************************************/
float CHeat::Falfc(float T,float u,float d)
{//计算在冷却期蓄热球与空气的换热系数
	float fn;
	fn=(float) (4.06*pow(T,0.316)*pow(u,0.84));
	fn=(float) (fn/pow(d,0.392));
	return fn;
}
float CHeat::Falfh(float T,float u,float d)
{//计算在燃烧期蓄热球与烟气的换热系数
	float fn;
	fn=(float) (2.41*pow(T,0.712)*pow(u,0.37));
	fn=(float) (fn/pow(d,0.106));
	return fn;
}

	//综合传热系数ｋ,w/m2.K
/**********************************************
alfh－加热期综合（对流和辐射）换热系数，w/m2.K
alfc－冷却期综合换热系数，w/m2.K
lmd－蓄热球的导热系数，ｗ／ｍ．ｋ
d－蓄热球的直径，ｍ
fai－解析解的后项
**********************************************/
float CHeat::Fk(float alfh,float alfc,float lmd,float d,float fai)
{
	float fn;
	fn=1/alfh+1/alfc+4*d*fai/lmd;
	fn=(float) (fn/0.93);
	fn=1/fn;
	return fn;
}
/***********解析解的后项************************
a－蓄热球的导温系数，ｍ2／ｓ
tao－换向时间，ｓ
d－蓄热球的直径，ｍ
Fo－傅里叶准数
**********************************************/
float CHeat::FFo(float a,float tao,float d)
{
	return (float) (a*tao/pow(d,2));
}
float CHeat::Ffai(float Fo)
{
	return (float) (0.1-0.00143/Fo);
}

	//所需传热面积Ｆ,m2
/********************************************
Qf－燃烧器中烟气所放出的热量，Ｊ
k－蓄热体综合传热系数，w/m2.K
dltt－烟气和空气的对数平均温差，Ｋ
tao－换向时间，ｓ
**********************************************/
float CHeat::FF(float Qf,float k,float dltt,float tao)
{//所需传热面积Ｆ,m2
	return Qf/(k*dltt*2*tao);
}
/*********************************************
Lf－烟气流量，ｋｇ／ｓ
Cf－烟气的平均定压比热，Ｊ／ｋｇ．Ｋ
Tf1－烟气的入口温度，Ｋ
Tf2－烟气的出口温度，Ｋ
tao－换向时间，ｓ
**********************************************/
float CHeat::FQf(float Lf,float Cf,float Tf1,float Tf2,float tao)
{
	return (float) (Lf*Cf*(Tf1-Tf2)*tao);
}
/********************************************
dlttmax、dlttmin－（Tf1-Ta2)、(Tf2-Ta1)中的较大者和较小者
**********************************************/
float CHeat::Fdltt(float dlttmax,float dlttmin)
{
	return (float)((dlttmax-dlttmin)/log(dlttmax/dlttmin));
}

	//阻力计算,Pa/m
/********************************************
u－烟气或空气的空塔速度，ｍ／ｓ
t－烟气或空气的周期平均温度，℃
rou0－标准状态下烟气或空气的密度，ｋｇ／ｍ3
d－蓄热球的直径，ｍ
**********************************************/
float CHeat::Fnowel(float u,float t,float rou0,float d)
{
	float fn;
	fn=(float) (14.7*pow(u,2)*(1+t/273)*rou0/d);
	return fn;
}