diff options
Diffstat (limited to '806/CH7/EX7.2/72.sce')
| -rw-r--r-- | 806/CH7/EX7.2/72.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/806/CH7/EX7.2/72.sce b/806/CH7/EX7.2/72.sce new file mode 100644 index 000000000..2989457bb --- /dev/null +++ b/806/CH7/EX7.2/72.sce @@ -0,0 +1,22 @@ +clc
+pathname=get_absolute_file_path('72.sce')
+filename=pathname+filesep()+'72.sci'
+exec(filename)
+diary('C:\users\Bhavesh\desktop\scilab\72.txt')
+disp("Dredging operations in a river yield large volumes of sediments whose smallest particle is measured to be coarse sand with a diameter of 4 microns and whose largest particle is coarse sand with a diameter of 1000 microns or 1mm.determine the settling velocity for each size class.Gw=9764 N/m^3;Ssand=2.65;Sclay=1.6;and the viscosity at 30 degree celsius is 0.8*10D-3 N.s/m^2")
+disp("Solution:")
+disp("(i)For clay particles:")
+disp("Assuming reynolds number less than 1")
+w1=d1^2*(S1-1)*p/(18*v)//Settling velocity of clay particles
+R1=d1*w1/v//reynolds number
+disp(R1,"R1=")
+disp("Since reynolds number is less than 1,hence")
+disp("m/s",w1,"Settling velocity for clay particles")
+disp("(ii)For sand particles:")
+disp("Assuming reynolds number greater than 1 and equal to 220 Cd=0.7")
+w2=sqrt(1.333*d2*p*(S2-1)/(Cd*r))//Settling velocity of clay particles
+R2=d2*w2*1e3/v//reynolds number
+disp(R2,"R2")
+disp("Since the reynolds number is greater than 1")
+disp("m/s",w2,"Hence the settling velovity =")
+diary(0)
|