blob: a325f4356413073348ca4e42bca6e8b2a74a3ec1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
clc;
clear all;
disp("heat transfer from surface")
ta=20;//degree C
U=35;//m/s
ts=60;// degree C
L=0.75;//m
B=1;//m
mu=1.906*10^(-5);//kg.m/s
cp=1007;//J/kg.K
k=0.0272;//W/m.C
P=1.0132*10^5;//Pa
R=287;
Pr=mu*cp/k
rho=P/(R*(ta+273))//kg/m^3
ReL=rho*U*L/mu
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 surface is Q=")
|
