1 files changed, 24 insertions, 0 deletions
diff --git a/2762/CH14/EX14.3.2/14_3_2.sce b/2762/CH14/EX14.3.2/14_3_2.sce
new file mode 100755
index 000000000..614b2d6dd
--- /dev/null
+++ b/2762/CH14/EX14.3.2/14_3_2.sce
@@ -0,0 +1,24 @@
+//Transport Processes and Seperation Process Principles
+//Chapter 14
+//Example 14.3-2
+//Mechanical-Physical Seperation Processes
+//given data
+rhowater=998;
+muwater=1.005e-3;
+rhop=2467;
+Dp=1.554e-4;
+solid=60;//solid weight percent
+liquid=100-solid;//liquid weight percent
+E=(liquid/rhowater)/((liquid/rhowater)+(solid/rhop));//volume fraction
+rhom=E*rhowater+(1-E)*rhop;
+ship=(1/(10^(1.82*(1-E))));
+g=9.807;//gravity accelaration
+vt=((g*Dp*Dp)*(rhop-rhowater)*(E*E*ship))/(18*muwater);
+Re=(Dp*vt*rhom)/((muwater/ship)*E)
+if (Re<2100)
+    disp(Re)
+    disp('Settling is in laminar range')
+else
+    disp('Settling is not in laminar range')
+end
+//end