18 files changed, 144 insertions, 0 deletions
diff --git a/2021/CH7/EX7.1/EX7_1.pdf b/2021/CH7/EX7.1/EX7_1.pdf
new file mode 100755
index 000000000..5da6d1a72
--- /dev/null
+++ b/2021/CH7/EX7.1/EX7_1.pdf
diff --git a/2021/CH7/EX7.1/EX7_1.sce b/2021/CH7/EX7.1/EX7_1.sce
new file mode 100755
index 000000000..23f790555
--- /dev/null
+++ b/2021/CH7/EX7.1/EX7_1.sce
@@ -0,0 +1,14 @@
+//Finding of Loss of Head
+//Given
+q1=200;
+d1=150;
+d2=300;
+g=9.81;
+//To Find
+v1=200*(4/%pi)*(100/150)^2;
+disp(v1);
+v2=200*(4/%pi)*(100/300)^2;
+disp(v2);
+h=((v1-v2)^2)/20*g;
+h1=h/1000;
+disp(" Loss of Head ="+string(h1)+" meter of water"); 
diff --git a/2021/CH7/EX7.12/EX7_12.pdf b/2021/CH7/EX7.12/EX7_12.pdf
new file mode 100755
index 000000000..8a5627ad3
--- /dev/null
+++ b/2021/CH7/EX7.12/EX7_12.pdf
diff --git a/2021/CH7/EX7.12/EX7_12.sce b/2021/CH7/EX7.12/EX7_12.sce
new file mode 100755
index 000000000..939addd05
--- /dev/null
+++ b/2021/CH7/EX7.12/EX7_12.sce
@@ -0,0 +1,18 @@
+//Finding of Maximum Power Outlet
+//Given
+d=0.4;
+l=400;
+H=420;
+rho=1000;
+f=0.025;
+g=9.81;
+pi=3.14;
+//To Find
+h=H/3;
+h1=(f*l*100)/(2*g*d);
+v=sqrt(h/h1);disp(h); disp(h1);
+a=(pi/4)*d^2;
+q=a*v;
+h3=H-h;disp(h3);
+p=(rho*g*q*h3)/1000;
+disp(" Maximum Power Outlet ="+string(p)+" KW");
diff --git a/2021/CH7/EX7.13/EX7_13.pdf b/2021/CH7/EX7.13/EX7_13.pdf
new file mode 100755
index 000000000..c30764e1c
--- /dev/null
+++ b/2021/CH7/EX7.13/EX7_13.pdf
diff --git a/2021/CH7/EX7.13/Ex7_13.sce b/2021/CH7/EX7.13/Ex7_13.sce
new file mode 100755
index 000000000..75abb0290
--- /dev/null
+++ b/2021/CH7/EX7.13/Ex7_13.sce
@@ -0,0 +1,12 @@
+//Finding of Rise of Pressure
+//Given
+l=2000;
+d=0.6;
+v=2;
+c=1420;
+t=20;
+rho=1000;
+//To Find
+p=(rho*l*v)/t
+p1=p/10000;
+disp("Rise of Pressure ="+string(p1)+"N/cm^2");
diff --git a/2021/CH7/EX7.14/EX7_14.pdf b/2021/CH7/EX7.14/EX7_14.pdf
new file mode 100755
index 000000000..f20c844af
--- /dev/null
+++ b/2021/CH7/EX7.14/EX7_14.pdf
diff --git a/2021/CH7/EX7.14/Ex7_14.sce b/2021/CH7/EX7.14/Ex7_14.sce
new file mode 100755
index 000000000..6a62c0219
--- /dev/null
+++ b/2021/CH7/EX7.14/Ex7_14.sce
@@ -0,0 +1,13 @@
+//Finding of Rise of Pressure
+//Given
+l=2000;
+d=0.6;
+v=2;
+t=20;
+k=19.62*10^8;
+rho=1000;
+//To Find
+c=sqrt(k/rho);
+p=rho*v*c
+p1=p/10000;
+disp("Rise of Pressure ="+string(p1)+"N/cm^2");
diff --git a/2021/CH7/EX7.15/EX7_15.pdf b/2021/CH7/EX7.15/EX7_15.pdf
new file mode 100755
index 000000000..ea4abac31
--- /dev/null
+++ b/2021/CH7/EX7.15/EX7_15.pdf
diff --git a/2021/CH7/EX7.15/Ex7_15.sce b/2021/CH7/EX7.15/Ex7_15.sce
new file mode 100755
index 000000000..4e46fe062
--- /dev/null
+++ b/2021/CH7/EX7.15/Ex7_15.sce
@@ -0,0 +1,20 @@
+//Finding of Rise of Pressure and circumferential, Longitudinal stress
+//Given
+l=2000;
+d=0.6;
+v=2;
+t=0.01;
+k=19.62*10^8;
+rho=1000;
+E=19.62*10^10;
+//To Find
+a=(1/k)+(d/(t*E));
+b=(1/rho)*a;
+c=sqrt(b);
+p=2/c;
+p1=p/10000;
+fc=((p*d)/(2*t))/10000;
+fl=((p*d)/(4*t))/10000;
+disp("Rise of Pressure ="+string(p1)+"N/cm^2");
+disp("Circumferential stress ="+string(fc)+" N/m^2");
+disp("Longitudinal stress ="+string(fl)+" N/m^2");
diff --git a/2021/CH7/EX7.16/EX7_16.pdf b/2021/CH7/EX7.16/EX7_16.pdf
new file mode 100755
index 000000000..88f837f59
--- /dev/null
+++ b/2021/CH7/EX7.16/EX7_16.pdf
diff --git a/2021/CH7/EX7.16/Ex7_16.sce b/2021/CH7/EX7.16/Ex7_16.sce
new file mode 100755
index 000000000..b3e1e4c0c
--- /dev/null
+++ b/2021/CH7/EX7.16/Ex7_16.sce
@@ -0,0 +1,21 @@
+//Finding of Maximum rise of water level,velocity,Time of occurance
+//Given
+d=4;
+d1=1;
+l=150;
+q=2;
+g=9.81;
+//To Find
+a1=(%pi/4)*d^2;
+a2=(%pi/4)*d1^2;
+v=q/a2;
+a=(l*a2)/(g*a1);
+b=sqrt(a);
+h=v*b;
+c=(l*a1)/(g*a2);
+d=sqrt(c);
+t=(%pi/2)*d;
+v1=v*(a2/a1);
+disp("Maximum rise of water ="+string(h)+" meter");
+disp("Time taken ="+string(t)+" seconds");
+disp("Maximum Velocity ="+string(v1)+" m/sec");
diff --git a/2021/CH7/EX7.3/EX7_3.pdf b/2021/CH7/EX7.3/EX7_3.pdf
new file mode 100755
index 000000000..4b67949ab
--- /dev/null
+++ b/2021/CH7/EX7.3/EX7_3.pdf
diff --git a/2021/CH7/EX7.3/EX7_3.sce b/2021/CH7/EX7.3/EX7_3.sce
new file mode 100755
index 000000000..c4d3cd358
--- /dev/null
+++ b/2021/CH7/EX7.3/EX7_3.sce
@@ -0,0 +1,14 @@
+//Finding of Discharge
+//Given
+d=0.3;
+l=400;
+f=0.00225;
+h=5;
+g=9.81;
+//To Find
+x=(h*2*g*d)/(f*l);
+v=sqrt(x);
+disp(v);
+A=(%pi/4)*d^2;
+q=A*v;disp(A);
+disp(" Discharge ="+string(q)+" m^3/sec");
diff --git a/2021/CH7/EX7.6/EX7_6.pdf b/2021/CH7/EX7.6/EX7_6.pdf
new file mode 100755
index 000000000..692b3c4d1
--- /dev/null
+++ b/2021/CH7/EX7.6/EX7_6.pdf
diff --git a/2021/CH7/EX7.6/EX7_6.sce b/2021/CH7/EX7.6/EX7_6.sce
new file mode 100755
index 000000000..7b091d6b9
--- /dev/null
+++ b/2021/CH7/EX7.6/EX7_6.sce
@@ -0,0 +1,15 @@
+//Finding of Head
+//Giiven
+f=0.032;
+l=400;
+d=0.3;
+q=0.3;
+g=9.81;
+//TO find
+A=(%pi/4)*d^2
+V=q/A;
+v1=(V^2);
+x=1.5+(f*l/d);
+y=v1/(2*g);
+H=x*y;
+disp("Difference in water level ="+string(H)+" meter")
diff --git a/2021/CH7/EX7.9/EX7_9.pdf b/2021/CH7/EX7.9/EX7_9.pdf
new file mode 100755
index 000000000..815cc7d47
--- /dev/null
+++ b/2021/CH7/EX7.9/EX7_9.pdf
diff --git a/2021/CH7/EX7.9/EX7_9.sce b/2021/CH7/EX7.9/EX7_9.sce
new file mode 100755
index 000000000..cea9fbe23
--- /dev/null
+++ b/2021/CH7/EX7.9/EX7_9.sce
@@ -0,0 +1,17 @@
+//Finding of Equivalent Diameter
+//Given
+L=1400;
+L1=800;
+L2=400;
+L3=200;
+D1=0.6;
+D2=0.4;
+D3=0.2;
+//To Find
+a=L1/(D1)^5;disp(a);
+b=L2/(D2)^5;disp(b);
+c=L3/(D3)^5;disp(c);
+d=(a+b+c);disp(d);
+d1=d^1/5;
+D=L/d1;
+disp( "Diameter ="+string(D)+" meter");