2 files changed, 28 insertions, 0 deletions
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