From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 497/CH14/EX14.4/Chap14_Ex4.sce | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 497/CH14/EX14.4/Chap14_Ex4.sce

(limited to '497/CH14/EX14.4/Chap14_Ex4.sce')

diff --git a/497/CH14/EX14.4/Chap14_Ex4.sce b/497/CH14/EX14.4/Chap14_Ex4.sce
new file mode 100755
index 000000000..ccc99bb2f
--- /dev/null
+++ b/497/CH14/EX14.4/Chap14_Ex4.sce
@@ -0,0 +1,30 @@
+//Kunii D., Levenspiel O., 1991. Fluidization Engineering(II Edition). Butterworth-Heinemann, MA, pp 491
+
+//Chapter-14, Example 4, Page 352
+//Title: Wide Size Distribution of Shrinking Particle
+//==========================================================================================================
+
+clear
+clc
+
+//INPUT
+dpi=[1.05;0.95;0.85;0.75;0.65;0.55;0.45;0.35;0.25;0.15;0.05];//Mean size in mm
+Fo=[0;0.5;3.5;8.8;13.5;17.0;18.2;17.0;13.5;7.3;0]*10^-2;//Feed rate in kg/s
+k=[0;0;0;0;0;0;0;0;2.0;12.5;62.5]*10^-5;//Elutriation constant in s^-1
+R=-1.58*10^-5;//Rate of particle shrinkage in mm/s
+deldpi=0.1;//Size intervals in mm
+
+//CALCULATION
+n=length(dpi);
+m=2;//Starting with the largest value size interval that contains solids
+W(m-1)=0;
+while m<=n
+    W(m)=(Fo(m)-R*W(m-1)/deldpi)/(k(m)-R/deldpi-3*R/dpi(m));//From Eqn.(33)
+    m=m+1;
+end
+Wt=sum(W);//Total sum
+
+//OUTPUT
+printf('\nTotal mass in the bed:%fkg',Wt);
+
+//====================================END OF PROGRAM ======================================================
\ No newline at end of file
-- 
cgit