1 files changed, 35 insertions, 0 deletions
diff --git a/1052/CH28/EX28.4/284.sce b/1052/CH28/EX28.4/284.sce
new file mode 100755
index 000000000..540d4fc22
--- /dev/null
+++ b/1052/CH28/EX28.4/284.sce
@@ -0,0 +1,35 @@
+clc;
+//Example 28.4
+//page no 432
+printf("Example 28.4 page  no 432\n\n");
+//it is proposed to install a pulse jet fabric filter system to clean an air stream containing particulate pollutants
+//we have to select the most apporpriate filter beg fabric 
+q_scfm=10000//volumetric flow rate of polluted air stream at 60 deg F ,1 atm
+T=520//temperature,R
+T_o=710//operating temparature ,R
+q_acfm=q_scfm*(T_o/T)//flow rate in acfm
+v_f=2.5//filteration velocity,ft/min
+S_c=q_acfm/v_f//filtering beg area
+printf("\n filtering beg area S_c=%f ft^2",S_c);
+//(1) for bag A ,the area and N number of bags are
+D_a=8/12//diamter,ft
+H_a=16//height,ft
+S_a =%pi*D_a*H_a//area
+N_a= round(S_c/S_a)//no. of bags  
+printf("\n area S_a=%f ft^2\n number og bags N_a=%f ",S_a,N_a);
+//(2) for bag B
+D_b=10/12//diameter,ft
+H_b=16//height,ft
+S_b=%pi*D_b*H_b//area
+N_b=round(S_c/S_b)//no. of bags
+printf("\n area S_b=%f ft^2\n no. of bags N_b=%f ",S_b,N_b);
+//total cost for each bag
+//for bag A
+c_a=26//cost per bag
+TC_a=round(N_a*c_a)//total cost for A bag
+printf("\n total cost TC_a=%f $",TC_a);
+//for bag B
+c_b=38//cost per bag
+TC_b=N_b*c_b//total cost for bag B
+printf("\n total cost TC_b=%f $",TC_b);
+//since the total cost for bag A is less than bag B,select bag A