1 files changed, 23 insertions, 0 deletions
diff --git a/1052/CH26/EX26.8/268.sce b/1052/CH26/EX26.8/268.sce
new file mode 100755
index 000000000..9374e0fc1
--- /dev/null
+++ b/1052/CH26/EX26.8/268.sce
@@ -0,0 +1,23 @@
+clc;
+//Example 26.8
+//page no 393
+printf(" Example 26.8 page no 393\n\n");
+//refer to example 25.6
+//obtain the porous medium friction factor usingthe burke -plummer equation 
+///since the flow is turbulent ,eq.26.6 applies
+f_pm=1.75//porous medium friction facot
+v_s=2//superficial velocity
+e=.4//porosity
+L=50//length of bed
+d_p=0.0833//particle diameter
+g=32.174//grav. acc
+h_f=(f_pm)*(v_s^2)*(1-e)*L/(g*(e^3)*d_p)//head loss
+printf("\n head loss h_f=%f ft of propane ",h_f);
+//applying bernoulli eq. between the entrance and gas exit 
+//neglect the dynamic head
+P2=4320//pressure at the bottom of the catalyst bed
+rho_f=0.0128//density of fluid
+z_d=-50//length from point 2 to 3,z2-z1
+P1 = P2 + rho_f*(z_d-h_f)// absolute pressure of the inlet gas
+printf("\n pressure P1=%f psf",P1);
+//since flow is turbulent , permeablity of the medium k can not be calculated