summaryrefslogtreecommitdiff
path: root/1752/CH8/EX8.4/exa_8_4.sce
blob: 37530270cfa2e30ac170f568e9071d9cf2e97b97 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Exa 8.4
clc;
clear;
close;
//given data
Fi=0.00014;// in m^2 degree C/W
hi=2000;// in W/m^2degree C
Fo=0.00015;// in m^2 degree C/W
ho=1000;// in W/m^2degree C
di=3*10^-2;// in m
do=4*10^-2;//in m
ro=do/2;
ri=di/2;
k=53;// in W/m degree C
Uo=1/(do/di*1/hi+ do/(2*k)*log(ro/ri) + 1/ho + do*Fi/di + Fo);
disp(Uo,"The overall heat transfer coefficient in W/m^2 degree C")