1 files changed, 17 insertions, 0 deletions
diff --git a/539/CH5/EX5.4/Example_5_4.sce b/539/CH5/EX5.4/Example_5_4.sce
new file mode 100755
index 000000000..09b563c1f
--- /dev/null
+++ b/539/CH5/EX5.4/Example_5_4.sce
@@ -0,0 +1,17 @@
+//Diffusion Coefficient Determination
+
+clear;
+clc;
+
+printf("\tExample 5.4\n");
+
+T=550+273;            //in K
+D0=1.2*10^-4;  //Temperature independent preexponential in m^2/s
+Qd=131000;            //Activation energy in J/mol-K
+R=8.31;               //Universal Gas constt
+
+D=D0*exp(-Qd/(R*T));
+
+printf("\nDiffusion coefficient is %.1f * 10^-13 m^2/s\n",D/10^-13);
+
+//End
+\ No newline at end of file