1 files changed, 30 insertions, 0 deletions
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