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

---
 1367/CH21/EX21.2/21_2.sce  | 17 +++++++++++++++++
 1367/CH21/EX21.2/21_2r.txt | 11 +++++++++++
 2 files changed, 28 insertions(+)
 create mode 100755 1367/CH21/EX21.2/21_2.sce
 create mode 100755 1367/CH21/EX21.2/21_2r.txt

(limited to '1367/CH21/EX21.2')

diff --git a/1367/CH21/EX21.2/21_2.sce b/1367/CH21/EX21.2/21_2.sce
new file mode 100755
index 000000000..cbc10147a
--- /dev/null
+++ b/1367/CH21/EX21.2/21_2.sce
@@ -0,0 +1,17 @@
+//Find Concentration Gradient and diffusivity and rate
+//Ex:21.2
+clc;
+clear;
+close;
+c_n=12;//nitrogen concentration in kg/m^3
+t=6*10^-3;//thickness in m
+z=(c_n-0)/t;//concentration gradient in kg/m^4
+disp(z,"concentration gradient (in kg/m4) = ");
+d0=5*10^-7;//in sqm/sec
+q=75*10^3;//in j/mol
+r=8.314;//in J/mol/K
+t=400;//in K
+dx=d0*exp(-q/(r*t));//diffusivity in sqm/sec
+disp(dx,"Diffusivity (in sqm/sec) = ");
+jx=-z*dx;//rate of flow of nitrogen in kg/sqm/sec
+disp(jx,"Rate at which nitrogen escapes (in kg/sqm/sec) = ");
\ No newline at end of file
diff --git a/1367/CH21/EX21.2/21_2r.txt b/1367/CH21/EX21.2/21_2r.txt
new file mode 100755
index 000000000..565e2a7c0
--- /dev/null
+++ b/1367/CH21/EX21.2/21_2r.txt
@@ -0,0 +1,11 @@
+ concentration gradient (in kg/m4) =    
+ 
+    2000.  
+ 
+ Diffusivity (in sqm/sec) =    
+ 
+    8.028D-17  
+ 
+ Rate at which nitrogen escapes (in kg/sqm/sec) =    
+ 
+  - 1.606D-13  
\ No newline at end of file
-- 
cgit