7 files changed, 86 insertions, 0 deletions
diff --git a/1268/CH8/EX8.1/8_1.sce b/1268/CH8/EX8.1/8_1.sce
new file mode 100644
index 000000000..1a50df525
--- /dev/null
+++ b/1268/CH8/EX8.1/8_1.sce
@@ -0,0 +1,14 @@
+clc;
+disp("Example 8.1")
+d=0.05 // diameter in m
+density= 1680 // in kg/m^#
+mew= 0.45 // in kg/ms
+rate=10 // in kg/s
+Q=rate/density
+U=4*Q/(%pi*d*d)
+Re= d*density*U/mew
+if (Re<2100) then
+    f=16/Re
+    delP=2*f*density*U*U/d
+    disp(delP,"Pressure Gradient is ")
+end
diff --git a/1268/CH8/EX8.2/8_2.sce b/1268/CH8/EX8.2/8_2.sce
new file mode 100644
index 000000000..607dcee41
--- /dev/null
+++ b/1268/CH8/EX8.2/8_2.sce
@@ -0,0 +1,17 @@
+clc;
+disp("Example 8.2")
+U=1.5 // in m/s
+d=0.025 // in m
+density= 1000 // in kg/m^3
+mew=0.001 // in kg/ms
+Re=d*density*U/mew
+f=0.079/(Re^0.25)
+l=25 // length of the pipe in m
+delP=2*f*density*U*U*l/d
+h1=delP/(density*9.81)
+disp(h1,"Head loss is ")
+h2=15
+h=h1+h2
+flow=%pi*d*d*U*density/4
+power=flow*h*9.81
+disp(power,"Theoretical Power required is ")
diff --git a/1268/CH8/EX8.3/8_3.sce b/1268/CH8/EX8.3/8_3.sce
new file mode 100644
index 000000000..48987eb25
--- /dev/null
+++ b/1268/CH8/EX8.3/8_3.sce
@@ -0,0 +1,13 @@
+clc;
+disp("Example 8.3")
+d=0.025 // diameter in m
+l=120 // length in m
+density= 1000
+Q=2.525e-3  // volumetric flow rate in m^3/s
+U=4*Q/(%pi*d*d)
+Re=density*U*d/mew
+f=0.0014+(0.125/(Re^0.32))
+delP=2*f*l*U*U*density/d
+disp(delP,"Pressure head is ")
+Power=delP*Q
+disp(Power,"Power required to overcome friction is ")
diff --git a/1268/CH8/EX8.4/8_4.sce b/1268/CH8/EX8.4/8_4.sce
new file mode 100644
index 000000000..bfe709a89
--- /dev/null
+++ b/1268/CH8/EX8.4/8_4.sce
@@ -0,0 +1,12 @@
+clc;
+disp("Example 8.4")
+delZ=0.5
+densityw=1000 // of water
+densitym=13600 // of mercury
+g=9.81 // acceleration due to gravity in m/s^2
+reading=0.15
+delP=reading*(densitym-densityw)*g+delZ*g*densityw
+disp(delP)
+// applying bernoullis law and the relation U2=4U1
+U1=((2*g*(delP/(densityw*g)-0.5))/15)^0.5
+disp(U1,"Velocity is ")
diff --git a/1268/CH8/EX8.6/8_6.sce b/1268/CH8/EX8.6/8_6.sce
new file mode 100644
index 000000000..5e57ec1a9
--- /dev/null
+++ b/1268/CH8/EX8.6/8_6.sce
@@ -0,0 +1,10 @@
+clc;
+disp("Example 8.6")
+density= 1000 // in kg/m^s
+mew=0.1 // in kg/ms
+l=2 // length in m
+h=1 // height in m
+d=0.02 // diameter in m
+D=1
+t=(32*mew*l*D*D/(density*9.81*d*d*d*d))*log(1+h/l)
+disp(t,"Draining time of the liquid is ")
diff --git a/1268/CH8/EX8.7/8_7.sce b/1268/CH8/EX8.7/8_7.sce
new file mode 100644
index 000000000..201437270
--- /dev/null
+++ b/1268/CH8/EX8.7/8_7.sce
@@ -0,0 +1,12 @@
+clc;
+disp("Example 8.7")
+density= 1000 // in kg/m^s
+mew=0.1 // in kg/ms
+l=2 // length in m
+h=1 // height in m
+d=0.02 // diameter in m
+D=1
+delP=(h+l)*density*9.8
+q=%pi*delP*d*d*d*d/(128*mew*l)
+U=4*q/(d*d*%pi)
+disp(U,"Initial velocity of the liquid from the pipe is ")
diff --git a/1268/CH8/EX8.9/8_9.sce b/1268/CH8/EX8.9/8_9.sce
new file mode 100644
index 000000000..66bbfadcd
--- /dev/null
+++ b/1268/CH8/EX8.9/8_9.sce
@@ -0,0 +1,8 @@
+clc;
+disp("Example 8.9")
+number=5
+speed= 1 // in rotations per second
+density= 1000 // in kg/m^3
+d=0.6 // in m
+power=number*speed*speed*speed*density*(d^5)
+disp(power,"Power to the mixing system is ")