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

---
 1379/CH8/EX8.1.1/example8_1.sce | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 1379/CH8/EX8.1.1/example8_1.sce

(limited to '1379/CH8/EX8.1.1')

diff --git a/1379/CH8/EX8.1.1/example8_1.sce b/1379/CH8/EX8.1.1/example8_1.sce
new file mode 100755
index 000000000..33c3c666e
--- /dev/null
+++ b/1379/CH8/EX8.1.1/example8_1.sce
@@ -0,0 +1,37 @@
+
+
+//exapple 8.1 
+clc; funcprot(0);
+// Initialization of Variable
+//part1
+a=78/1000;//dV/dt
+rho=998;//density of water
+rhoc=2230;//density of china clay
+rhod=1324;//density of cowdung cake
+mu=1.003/1000;
+P2=3.23*1000;//pressure after 2 min.
+P5=6.53*1000;//pressure after 5 min.
+t=30*60;
+b=[P2;P5];
+A=[a^2*120 a;a^2*300 a];
+x=A\b;
+P=x(1,1)*a^2*t+x(2,1)*a;
+disp(P/1000,"pressure drop at t=30min in (kN/m^2):")
+//part2
+J=0.0278;//mass fraction
+l=1.25;
+b1=0.7;
+A1=l*b1*17*2;//area of filtering
+V=a*30*60;//volume of filterate
+e=1-rhod/rhoc;
+nu=J*rho/((1-J)*(1-e)*rhoc-J*e*rho);
+l1=nu*V/A1;
+disp(l1,"the thickness of filtercake formed after 30 min in (m):")
+//part3
+r=x(1,1)/mu/nu*A1^2;
+L=x(2,1)*A1/r/mu;
+disp(L,"thickness of cake required in (m):");
+//part 4
+S=sqrt(r*e^3/5/(1-e)^2);
+d=6/S;
+disp(d*10^6,"average particle diameter in(10^-6m):")
-- 
cgit