blob: e33ce024e1af124a288e5609fe623785b390fee8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
clc;
clear all;
disp("upper surface temperature")
thf=1020;// temperature of hot gases
L=1.2*10^(-3);// thickness of blade
k=12;//W/(m*C)
A=1;// area
hhf=2750;//W/(m^2*C) heat transfer coefficients
hcf=1400;//W/(m^2*C) heat transfer coefficients
t1=900;// temperature of the upper surface
Q=hhf*A*(thf-t1);//W/m^2 rate of heat transfer per unit area
disp ("W/m^2",Q,"rate of heat transfer per unit area = ")
//Q=k*A*(t1-t2)/L;
t2=t1-(Q*L/(k*A));
disp("degree C",t2,"t2 is =")
//Q=hcf*A*(t2-tcf)
tcf=t2-(Q/(hcf*A));
disp("degree C",tcf,"tcf is =")
|
