blob: 2b70a84dc198b62c8d375ede34266704aff9c7f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
clc;
clear all;
disp("heat transfer rate")
ta=24;//degree C
ts=130;// degree C
U=0.4;// m/s
Ql=100;// W
d=0.065;//m
tb=(ta+ts)/2;
k=0.03;// W/m.C
v=2.08*10^(-5);// m^2/s
Pr=0.697;
Re=U*d/v;
Nu=0.37*Re^0.6;
h=Nu*k/d;
Q=h*%pi*d^2*(ts-ta);
disp("W",Q,"Heat transfer rate =")
e=Q/Ql;
disp("%",e*100,"the percentage of power lost due to convetion =")
|
