1 files changed, 21 insertions, 0 deletions
diff --git a/2132/CH7/EX7.15/Example7_15.sce b/2132/CH7/EX7.15/Example7_15.sce
new file mode 100755
index 000000000..68584c633
--- /dev/null
+++ b/2132/CH7/EX7.15/Example7_15.sce
@@ -0,0 +1,21 @@
+////Example 7.15
+clc;
+clear;
+close;
+format('v',6);
+//Given data :
+g=9.81;//gravity constant
+D1=50/1000;//meter
+D2=100/1000;//meter
+l1=100;l2=100;//meter
+hf1=10;//meter(level difference)
+f=0.008;//coeff. of friction
+Q2BYQ1=sqrt((l1/l2)*(D2/D1)^5);//as hf1=hf2
+Q1=sqrt(hf1/f/l1*(3.0257*D1^5));//m^3/sec
+Q2=Q2BYQ1*Q1;//m^3/sec or cumec
+disp(Q1,"Rate of flow of pipe 1(m^3/sec)");
+disp(Q2,"Rate of flow of pipe 2(m^3/sec)");
+Q=Q1+Q2;//m^3/sec(Total Discharge)
+d=(f*l1*Q^2/3.0257/hf1)^(1/5);//meter
+disp(d*1000,"Diameter of single pipe(mm) : ");
+//Answer in the book is not accurate.