1 files changed, 26 insertions, 0 deletions
diff --git a/530/CH9/EX9.3.b/example_9_3b.sce b/530/CH9/EX9.3.b/example_9_3b.sce
new file mode 100755
index 000000000..551d0a404
--- /dev/null
+++ b/530/CH9/EX9.3.b/example_9_3b.sce
@@ -0,0 +1,26 @@
+clear;
+clc;
+
+// A Textbook on HEAT TRANSFER by S P SUKHATME
+// Chapter 9
+// Mass Transfer
+
+
+// Example 9.3(b)
+// Page 352
+printf("Example 9.3(b), Page 352 \n \n");
+
+t = 0.04 ; // [m]
+A = 2 ; // [m^2]
+rho1 = 0.10 ;
+rho2 = 0.01 ;
+D_1200 = 3.5*10^-8 ; // at 1200k [m^2/s]
+
+// Mass Diffusion in solid solution, assuming Ficks law is valid & steady state and one dimensional diffusion
+
+// At 1200 K
+// From eqn 9.3.3
+
+m_1200 = A*D_1200*(rho1-rho2)/t ;
+printf("(b) Rate of diffusion of Hydrogen at 1200 K = %e kg/s \n",m_1200);
+