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

---
 542/CH1/EX1.4/Example_1_4.sci | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 542/CH1/EX1.4/Example_1_4.sci

(limited to '542/CH1/EX1.4')

diff --git a/542/CH1/EX1.4/Example_1_4.sci b/542/CH1/EX1.4/Example_1_4.sci
new file mode 100755
index 000000000..6ad45e484
--- /dev/null
+++ b/542/CH1/EX1.4/Example_1_4.sci
@@ -0,0 +1,30 @@
+//minimum size of the particle in the mixture of quartz and galena(mm)
+clear all;
+clc;
+printf("\n Example 1.4");
+
+//maximum size of the particle(mm)
+d_max=0.065;
+//minimum size of the particle(mm)
+d_min=0.015;
+//density of quartz(kg/m^3)
+p_quartz=2650;
+//density of galena (kg/m^3)
+p_galena=7500;
+//minimum density of the particle which will give this seperation
+//When stoke's law is applied the required density is as given below
+function[d]=stoke_required_density()
+    p=poly([0],'p');
+    d=roots((p-7500)-(p-2650)*(d_max/d_min)^2);
+    funcprot(0);
+endfunction
+d=stoke_required_density();
+printf("\n required density is = %d kg/m^3",d);
+//When Newton's law is applied then the required density is as given below
+function[e]=newton_required_density()
+    r=poly([0],'r');
+    e=roots((r-7500)-(r-2650)*(d_max/d_min));
+    funcprot(0);
+endfunction
+e=newton_required_density();
+printf("\nrequired density is by newton law =%d kg/m^3",e);
\ No newline at end of file
-- 
cgit