diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /497/CH13/EX13.3/Chap13_Ex3.sce | |
| download | Scilab-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/CH13/EX13.3/Chap13_Ex3.sce')
| -rwxr-xr-x | 497/CH13/EX13.3/Chap13_Ex3.sce | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/497/CH13/EX13.3/Chap13_Ex3.sce b/497/CH13/EX13.3/Chap13_Ex3.sce new file mode 100755 index 000000000..7fb0be57a --- /dev/null +++ b/497/CH13/EX13.3/Chap13_Ex3.sce @@ -0,0 +1,37 @@ +//Kunii D., Levenspiel O., 1991. Fluidization Engineering(II Edition). Butterworth-Heinemann, MA, pp 491
+
+//Chapter-13, Example 3, Page 332
+//Title: Effect of Particle Size on h
+//==========================================================================================================
+
+clear
+clc
+
+//INPUT
+rhos=2700;//Density of solids in kg/m^3
+Cps=755;//Specific heat capacity of the solid in J/kg K
+ks=1.2;//Thermal conductivity of solids in W/m k
+kg=0.028;//Thermal concuctivity of gas in W/m k
+ephsilonmf=0.476;//Void fraction at minimum fluidization condition
+dp1=10E-3;//Particle size for which h=hmax in m
+hmax=250;//Max. heat transfer coefficient in W/m^2 K
+nw=5;//Bubble frequency in s^-1
+delta=0.1;//Fraction of bed in bubbles
+deltaw=0.1;//Fraction of bed in bubbles in wall region
+dp=2E-3;//Diameter of particle in m
+
+//CALCULATION
+x=ks/kg;
+phib=0.11;
+phiw=0.17;
+ke=ephsilonmf*kg+(1-ephsilonmf)*ks*[1/((phib*(ks/kg))+(2/3))];//Effective thermal conductivity of bed from Eqn.(3)
+hpacket=1.13*[ke*rhos*(1-ephsilonmf)*Cps*nw/(1-deltaw)]^0.5;//Heat transfer coefficient for the packet of emulsion from Eqn.(11)
+ephsilonw=ephsilonmf;//Void fraction in the wall region
+kew=ephsilonw*kg+(1-ephsilonw)*ks*[(phiw*(ks/kg)+(1/3))^-1];//Effective thermal conductivity in the wall region with stagnant gas from Eqn.(4)
+y=(2*kew/dp1)+(hmax*hpacket)/(((1-deltaw)*hpacket)-hmax);//Calculating the term alphaw*Cpg*rhog*uo from Eqn.(16) by rearranging it
+h=(1-deltaw)/((2*kew/dp+y*(dp/dp1)^0.5)^-1+hpacket^-1);//Heat transfer coeeficient from Eqn.(11) by using the value of y
+
+//OUTPUT
+mprintf('\nThe heat transfer coefficient for paricle size of %fm = %fW/m^2 K',dp,h);
+
+//====================================END OF PROGRAM ======================================================
\ No newline at end of file |