blob: 9a42330bbf2ba9e01c285341f67c51585768c3e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
clc;
clear all;
disp("Heat loss calculation")
ta=30;//degree C
ts=90;// degree C
U=2.8;// m/s
v=18.97*10^(-6);// m^2/s
kp=25;// W/m.C
L=1;//m
ka=0.02894;// W/m.C
rho=1.06;//kg/m^3
Cp=1005;//J/kg.K
L=1;//m
B=600/1000;// m
Pr=0.696;
delta = 25/1000;//m
disp("i)Heat lost by the plate :")
Re = U*L/v;// Reynold's number at trailing edge
Nu=0.664*(Re^0.5)*(Pr^(1/3));
h=Nu*ka/L;// W/m^2.C
As=1*0.6;//m^2;// W
Q=h*As*(ts-ta);
disp("W",Q,"Heat loss by the plate is ")
disp("ii) Bottom temperature of plate, tb :")
tb = -1*Q*delta/(kp*As)+ts;// degree C
disp("degree C",tb,"Bottom temperature of the plate is ")
|
