1 files changed, 17 insertions, 0 deletions
diff --git a/965/CH4/EX4.5/5.sci b/965/CH4/EX4.5/5.sci
new file mode 100644
index 000000000..ebaaba41f
--- /dev/null
+++ b/965/CH4/EX4.5/5.sci
@@ -0,0 +1,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 ")