initial commit / add all books

1 files changed, 36 insertions, 0 deletions

diff --git a/534/CH6/EX6.6/6_6_Molar_flux_Plate.sce b/534/CH6/EX6.6/6_6_Molar_flux_Plate.sce
new file mode 100644
index 000000000..8557b8d8f
--- /dev/null
+++ b/534/CH6/EX6.6/6_6_Molar_flux_Plate.sce
@@ -0,0 +1,36 @@
+clear;

+clc;

+printf('FUNDAMENTALS OF HEAT AND MASS TRANSFER \n Incropera / Dewitt / Bergman / Lavine \n EXAMPLE 6.6   Page 379 \n'); //Example 6.6

+// Water vapor conc and flux associated with the same location on larger surface of the same shape

+

+//Operating Conditions

+v = 100;        //[m/s]  Velocity of air

+Tsurr = 20+273;    //[K] Surrounding Air Temperature

+L1 = 1;      //[m] solid length

+Ts = 80+273;    //[K] Surface Temp

+qx = 10000;        //[W/m^2] heat flux at a point x

+Txy = 60+273;        //[K] Temp in boundary layer above the point

+

+//Table A.4 Air Properties at T = 323K

+v = 18.2*10^-6;    //[m^2/s] Viscosity

+k = 28*10^-3;      //[W/m.K] Conductivity

+Pr = 0.7;          //Prandttl Number

+//Table A.6 Saturated Water Vapor at T = 323K

+pasat = 0.082;     //[kg/m^3]

+Ma = 18;           //[kg/kmol] Molecular mass of water vapor

+//Table A.8 Water Vapor-air at T = 323K

+Dab = .26*10^-4;    //[m^2/s]

+

+//Case 1

+Casurr = 0;

+Cas = pasat/Ma;        //[kmol/m^3] Molar conc of saturated water vapor at surface

+Caxy = Cas + (Casurr - Cas)*(Txy - Ts)/(Tsurr - Ts);

+

+//Case 2

+L2 = 2;

+hm = L1/L2*Dab/k*qx/(Ts-Tsurr);

+Na = hm * (Cas - Casurr);

+

+

+printf("\n (a) Water vapor Concentration above the point = %.4f Kmol/m^3 \n (b) Molar flux to a larger surface = %.2e Kmol/s.m^2", Caxy,Na);

+//END
\ No newline at end of file