summaryrefslogtreecommitdiff
path: root/497/CH7/EX7.1/Chap7_Ex1.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /497/CH7/EX7.1/Chap7_Ex1.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '497/CH7/EX7.1/Chap7_Ex1.sce')
-rwxr-xr-x497/CH7/EX7.1/Chap7_Ex1.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/497/CH7/EX7.1/Chap7_Ex1.sce b/497/CH7/EX7.1/Chap7_Ex1.sce
new file mode 100755
index 000000000..8b7cc2484
--- /dev/null
+++ b/497/CH7/EX7.1/Chap7_Ex1.sce
@@ -0,0 +1,25 @@
+//Kunii D., Levenspiel O., 1991. Fluidization Engineering(II Edition). Butterworth-Heinemann, MA, pp 491
+
+//Chapter-7, Example 1, Page 179
+//Title: Entrainment from Fine Particle Beds with High Freeboard
+//==========================================================================================================
+clear
+clc
+
+//INPUT
+rhog=5.51;//Density of gas in kg/m^3
+rhos=1200;//Density of solid in kg/m^3
+dpbar=130;//Average size of particles in micrometer
+uo=0.61;//Superficial gas velocity in m/s
+g=9.80;//Acceleration due to gravity in m/s^2
+
+//CALCULATION
+//Assuming that freeboard in higher than TDH, computation of entrainment rate by Zenz & Weil's method
+x=(uo^2)/(g*(dpbar*10^-6)*rhos^2);//Calculation of value of x-axis for Fig.(6), page 175
+y=1.2;// Value of y-axis from Fig.(6)
+Gsstar=y*rhog*uo;//Computation of rate of entrainment
+
+//OUTPUT
+mprintf('\nRate of entrainment=%fkg/m^2s',Gsstar);
+
+//====================================END OF PROGRAM ====================================================== \ No newline at end of file