1 files changed, 22 insertions, 0 deletions
diff --git a/534/CH5/EX5.6/5_6_Burial_Depth.sce b/534/CH5/EX5.6/5_6_Burial_Depth.sce
new file mode 100644
index 000000000..7cc458dd7
--- /dev/null
+++ b/534/CH5/EX5.6/5_6_Burial_Depth.sce
@@ -0,0 +1,22 @@
+clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 5.6   Page 288 \n'); //Example 5.6
+// Burial Depth
+
+//Operating Conditions
+
+k = .52;         //[W/m.K] Thermal Conductivity 
+rho = 2050;        //[kg/m^3] Density
+c = 1840;            //[J/kg.K]  Specific Heat
+Ti = 20+273;        //[K] Initial Temp
+Ts = -15+273;     //[K] Temp of surrounding
+T = 0+273;        //[K] Temp at depth xm after 60 days
+t = 60*24*3600;        //[sec] time perod
+
+alpha = k/(rho*c);            //[m^2/s]
+//Using eqn 5.57
+xm = erfinv((T-Ts)/(Ti-Ts))*2*(alpha*t)^.5;
+
+printf("\n Depth at which after 60 days soil freeze = %.2f m",xm);
+
+//END
+\ No newline at end of file