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

---
 3434/CH9/EX9.1.iii/Ex9_1_iii.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 3434/CH9/EX9.1.iii/Ex9_1_iii.sce

(limited to '3434/CH9/EX9.1.iii/Ex9_1_iii.sce')

diff --git a/3434/CH9/EX9.1.iii/Ex9_1_iii.sce b/3434/CH9/EX9.1.iii/Ex9_1_iii.sce
new file mode 100644
index 000000000..6387a3e1d
--- /dev/null
+++ b/3434/CH9/EX9.1.iii/Ex9_1_iii.sce
@@ -0,0 +1,23 @@
+clc
+// given data
+G=39.0 // temperature gradient in K/km.
+h2=10.0 // depth in km
+rhor=2700.0 // kg/m^3
+cr=820.0 // in J/kg-K
+
+h1=120/G // T1-T0=120 K is given
+h21=h2-h1 // in km
+E0byA=(rhor*(1000**3)*G*cr*h21**2)/2 // in J/km^2 Heat content per square km
+
+thetao=G*h21/2.0 // in degree K
+tau=rhor*cr*h21*(1000**3)/(QbyA*rhow*cw) // in seconds
+tau=tau/(2*60*60*24*365) // in years
+theta=thetao*exp(-t/tau) // in degree Kelvin
+
+Heatinitial=E0byA/(60*60*365*24*tau)/1000000 // intial heat extraction rate in MW /km^2
+
+Heat25=Heatinitial*exp(-t/tau) // heat extraction rate after 25 years in MW /km^2
+
+printf( "Initial Heat extraction rate is %.2f MW/km^2",Heatinitial)
+
+printf(" \n Final Heat extraction rate is %.2f MW/km^2",Heat25)
-- 
cgit