summaryrefslogtreecommitdiff
path: root/965/CH7/EX7.39/39.sci
blob: 92a56971798d871a144af996b0d61b181ade9d73 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc;
clear all;
disp("velocity of air")
ta=10;//degree C
ts=90;// degree C
L=1.5;//m
B=1;//m
mu=2.209*10^(-5);//kg.m/s
cp=1007.3;//J/kg.C
k=0.02813;//W/m.C
rho=1.0877;//kg/m^3
Pr=0.703;
Q=3.75*1000;//W
As=L*B;
h=Q/(As*(ts-ta));
Nu=h*L/k;
ReL=((Nu/Pr^(1/3)+836)/0.036)^(1/0.8)
U=ReL*mu/(rho*L);
disp("m/s",U,"Velocity of air is")