blob: 7d1b7177d066ecbbdabee578d7ab11368d1e1cd8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
clc;
clear all;
disp("heat transfer from plate")
ta=20;//degree C
U=40;//m/s
ts=60;// degree C
L=1;//m
B=1;//m
Pr=0.699;
k=0.0275;//W/m.C
v=16.96*10^(-6);// m^2/s
rho=1.128;//kg/m^3
cp=1005;//J/kg.K
ReL=U*L/v;;
Nu=(0.037*(ReL^0.8)-850)*Pr^(1/3)
h=Nu*k/L;
Q=h*L*B*(ts-ta);//W
disp("W",Q,"Heat loss from plate is Q=")
|
