1 files changed, 19 insertions, 0 deletions
diff --git a/3557/CH5/EX5.4/Ex5_4.sce b/3557/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..8919c8d19
--- /dev/null
+++ b/3557/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,19 @@
+//Example 5.4//
+cx=0.5;//carbon content
+b=1;//given
+e=b-cx
+mprintf("e = %f ",e)
+c=0.4755;//As z= 0.45 therefore erf (z) is obtained //Interpolating table 5.1 gives
+d=0.5205;//As z=0.50 therefore erf(z) is obtained //Interpolating table 5.1 gives
+g=0.45;//given
+z=(((e-c)/(d-c))*(e-g))+g
+mprintf("\nz = %f",z)
+x=1*10^-3;//Using the diffusivity from sample problem 5.3
+D=2.98*10^-11;//m^2/s //Arrhenius equation
+m=(x^2)/(4*(z^2)*D)
+//mprintf("\nm = %e ",m)
+i=1;//h //hour
+j=3.6*10^3;//s //second
+t=m*(i/j)
+mprintf("\nt = %f h",t)
+