blob: ebaaba41f63a5bd2ed29cf2feb82e89e3d98e957 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc;
clear all;
disp("heat transfer coefficient")
R=12.5/2000;//m radius of sphere
Lc=R/3;// m characteristic length of sphere
k=386;//W/m.C
rho=8850;// kg/m^3
C=400;//J/kg.C
t=54;//degree C
ta=28;// degree C
ti=65;// degree C
tau = 1.15*60;//sec
disp("Temperature distribution is given by : (t-ta)/(ti-ta) = exp((-h*As*tau)/(rho*V*C))")
m = (t-ta)/(ti-ta);
x=(-tau)/(rho*Lc*C);
h=(log(m))/x;
disp("W/m^2.C",h,"the heat transfer coefficient is ")
|
