1 files changed, 19 insertions, 0 deletions
diff --git a/534/CH6/EX6.2/6_2_Napthalene_Sublimation.sce b/534/CH6/EX6.2/6_2_Napthalene_Sublimation.sce
new file mode 100644
index 000000000..e8bcdb3d4
--- /dev/null
+++ b/534/CH6/EX6.2/6_2_Napthalene_Sublimation.sce
@@ -0,0 +1,19 @@
+clear;
+clc;
+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 6.2   Page 356 \n'); //Example 6.2
+// Napthalene Sublimation rate per unit length
+
+//Operating Conditions
+
+h = .05;          //[W/m^2.K] Heat Convection coefficient
+D = .02;          //[m] Diameter of cylinder
+Cas = 5*10^-6;    //[kmol/m^3] Surface molar Conc
+Casurr = 0;       //[kmol/m^3] Surrounding molar Conc
+Ma = 128;         //[Kg/kmol] Molecular weight
+
+//From Eqn 6.15
+Na = h*(%pi*D)*(Cas-Casurr);
+na = Ma*Na;
+
+printf("\n\n Mass sublimation Rate is = %.2e kg/s.m ", na);
+//END
+\ No newline at end of file