From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 914/CH13/EX13.9/ex13_9.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 914/CH13/EX13.9/ex13_9.sce

(limited to '914/CH13/EX13.9/ex13_9.sce')

diff --git a/914/CH13/EX13.9/ex13_9.sce b/914/CH13/EX13.9/ex13_9.sce
new file mode 100755
index 000000000..40627205a
--- /dev/null
+++ b/914/CH13/EX13.9/ex13_9.sce
@@ -0,0 +1,20 @@
+clc;
+warning("off");
+printf("\n\n example 13_9 - pg700");
+// given
+p=2050;  //[kg/m^3] - density of soil
+cp=1840;  //[J/kg*K] - heat cpapacity of soil
+k=0.52;  //[W/m*K] - thermal conductivity of soil
+alpha=0.138*10^-6;  //[m^2/sec]
+t=4*30*24*3600;  //[sec] - no. of seconds in 4 months
+Tx=-5;  //[degC]
+Tinf=-20;  //[degC]
+T0=20;  //[degC]
+// from the fig 13.24 the dimensionless distance Z is 
+Z=0.46;
+// then the depth is
+x=2*((alpha*t)^(1/2))*Z
+printf("\n\n the depth is \n x = %f m = %f ft",x,x*(3.6/1.10));
+
+
+
-- 
cgit