1 files changed, 18 insertions, 0 deletions
diff --git a/617/CH16/EX16.9/Example16_9.sci b/617/CH16/EX16.9/Example16_9.sci
new file mode 100755
index 000000000..f75a49d59
--- /dev/null
+++ b/617/CH16/EX16.9/Example16_9.sci
@@ -0,0 +1,18 @@
+clc();
+clear;
+
+// To estimate the mass transfer coefficient
+
+v=20;                                 // Velocity of air ammonia mixture in ft/sec
+Npr=0.72;                             // Prandtls number
+Ns=0.60;                              // Schimdt number
+pbm=14.7;                             // log mean pressure in psi
+Mm=29;                                // Molecular weight of mixture
+Mv=17;                                // Molecular weight of ammonia 
+Ma=29;                                // Molecular weight of air
+Cp=0.24;                              // specific heat capacity in Btu/lbm-degF
+h=8;                                  // Heat transfer coefficient
+p=1;                                  // Atospheric pressure in atm
+
+hmp=h*Mv*(Npr/Ns)^(2/3)/(Cp*p*Ma);   // Mass transfer coefficient based on pressure
+printf("The mass transfer coefficient based on pressure is %.1f lbm/hr-ft^2-atm",hmp);
+\ No newline at end of file