1 files changed, 23 insertions, 0 deletions
diff --git a/539/CH5/EX5.2/Example_5_2.sce b/539/CH5/EX5.2/Example_5_2.sce
new file mode 100755
index 000000000..62114cc04
--- /dev/null
+++ b/539/CH5/EX5.2/Example_5_2.sce
@@ -0,0 +1,23 @@
+//Nonsteady-State Diffusion Time Computation I
+
+clear;
+clc;
+
+printf("\tExample 5.2\n");
+
+Co=0.25;        //Initial Conc. in wt%
+Cs=1.2;         //Surface conc. in wt%
+Cx=0.8;         //Conc. at any x  in wt%
+
+x=5*10^-4;     //Position in m
+D=1.6*10^-11;  //Diffusion coeff in m^2/s
+
+C=1-((Cx-Co)/(Cs-Co));
+z=erfinv(C);
+
+//But C=erf(x/2sqrt(Dt))
+t=x^2/(4*D*z^2);
+
+printf("\nTime required is %d s or %.1f h\n",t,t/3600);
+
+//End
+\ No newline at end of file