7 files changed, 202 insertions, 0 deletions
diff --git a/1627/CH6/EX6.1/Ex6_1.sce b/1627/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..9d2a12406
--- /dev/null
+++ b/1627/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,26 @@
+clc
+//initialisation of variables
+sg=0.85
+v=7*10^-3//N.s/m^2
+v1=1.46*10^-4//lbf.sec/ft^2
+f=0.05//m
+r=400*10^-3//m^3/min
+t=1/60//min/sec
+s=5*10^-2//m
+g=9.8//m/s^2
+q=9802//N/m^3
+h=7*10^-3//N.s/m^2
+p=0.000046//m
+f1=0.027
+f2=200//m
+t1=448//f
+//CALCULATIONS
+V=(4*r*t)/((%pi)*(s)^2)//m/s
+P=(q*sg)/(g)//N.s^2/m^4
+NR=(V*s*P)/(h)
+R=(p/f)
+hf=(f1*f2*(V)^2)/(s*2*g)//m
+H=q*hf*sg//bars
+FHP=H*f2/t1//hp
+//RESULTS
+printf('The pressure drop and horsepower friction loss =% f hp',FHP)
diff --git a/1627/CH6/EX6.2/Ex6_2.sce b/1627/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..86d09aff5
--- /dev/null
+++ b/1627/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,37 @@
+clc
+//initialisation of variables
+w=400*10^-3//m^3/min
+t=1/60//min/s
+q=10*10^-2//m
+v=1*10^-6//m^2
+v1=4*10^-2//m
+v2=10^-5//m^2/s
+p=0.000046/0.01
+R=0.000046/0.04
+g=9.8//m/s^2
+v3=100//m
+v4=0.78//m
+d1=0.5//m
+d3=0.037//m
+d2=0.84//m
+Hg=10*1.44//m
+Hck=2.5*1.44//m
+f4=188.81//m
+h4=4*0.9*1.44//m
+Het=1.0*1.44//m
+p1=9802//N/m^3
+p2=10^-5//bars
+w2=400//min
+w3=448
+//CALCULATIONS
+V=(4*w*t)/((%pi)*(q)^2)//m/s
+V4=(4*w*t)/((%pi)*(v1)^2)//m/s
+Nr=(V*q)/v2
+Nr4=(V4*v1)/v2
+He=(v4*(V)^2)/(2*g)//m
+f10=(He*v3*(V)^2)/(q*2*g)//m
+Hr=d1*d2*d3//m
+Htotal=He+f10+Hr+Hg+Hck+f4+h4+Het//m
+FHP=(Htotal*p1*p2*w2)/w3//hp
+//RESULTS
+printf('The head and power loss associate with the friction in the system is=% f hp',FHP)
diff --git a/1627/CH6/EX6.3/Ex6_3.sce b/1627/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..1981ae802
--- /dev/null
+++ b/1627/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+v=5*10^-2//m^2/s
+r=1900*10^-3//m
+t=1/60//min/s
+v1=5*10^-6//m^2/s
+e=0.00028//m
+d=0.05//m
+k=3.6//v
+f=0.122//m
+//CALCULATIONS
+V=4*(r)*t/((%pi)*(v)^2)//m/s
+Nr=(V*v)/(v1)
+R=e/d
+Le=v*(k/f)//m
+//RESULTS
+printf('The equivalent lenght of straight pipe is=% f m',Le)
diff --git a/1627/CH6/EX6.4/Ex6_4.sce b/1627/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..3c62d565c
--- /dev/null
+++ b/1627/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,25 @@
+clc
+//initialisation of variables
+r=20000//liter/minute
+v=14*10^-6//ft^2/sec
+w=1.3*10^-6//m^2/s
+f=0.025
+f1=0.029
+q=8*10^3//m
+p1=1/60//min/s
+hf=150//m
+g=9.8//m/s^2
+d=0.414//m
+e=0.00165//m
+d1=0.427//m
+//CALCULATIONS
+D=0.81*(f)*(q)*(r*10^-3*p1)^2/(hf*g)//m^5
+V=(4*(r*10^-3)*p1)/((%pi)*(d)^2)//m/s
+NR=V*d/(w)
+R=e/d
+D1=0.81*(f1)*(q)*(r*10^-3*p1)^2/(hf*g)//m^5
+V2=(4*(r*10^-3)*p1)/((%pi)*(d1)^2)//m/s
+NR1=V2*d1/w
+R1=e/d1
+//RESULTS
+printf('The diameter of a concrete pipe is=% f ',R1)
diff --git a/1627/CH6/EX6.5/Ex6_5.sce b/1627/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..44c614996
--- /dev/null
+++ b/1627/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+v=4*10^-7//m^2/s
+t=1/60//min/s
+v1=4.3*10^-6//ft^2/sec
+q=10*10^-2
+p=300//m
+p1=1000*10^-3//m^3
+r1=0.000046//m
+w=0.10//m
+f=0.0175//m
+g=9.8//m/s^2
+v3=2.02//m/s
+p2=20//m
+//CALCULATIONS
+V1=(4*(p1)*t)/((%pi)*(q)^2)//m/s
+Nr=(V1)*(q)/(v)
+R=r1/w
+hf=(f*p*(v3)^2)/(q*2*g)//m
+ha=p2+(V1^2)/(2*g)+hf//m
+//RESULTS
+printf('The pressure at the pump outlet to maintain the flow secified is=% f m',ha)
diff --git a/1627/CH6/EX6.6/Ex6_6.sce b/1627/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..b0f690cde
--- /dev/null
+++ b/1627/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,32 @@
+clc
+//initialisation of variables
+w1=250//m
+w2=10000//min
+p1=20//cm
+p2=30//cm
+p3=30*10^-2//m
+p4=20*10^-2//m
+s=1/60//min/s
+v1=300//m
+v2=700//m
+f=0.025
+a=0.167//m^3/s
+g=9.8//m/s^2
+vb=1.02//m
+v3=0.1318//m^2
+v4=0.163//m^2
+B=1922//min
+//CALCULATIONS
+Qt1=((%pi)*(p3)^2)/4//m^2
+Qt2=((%pi)*(p4)^2)/4//m^2
+hfa=((f)*(v1))/((p3)*2*g)//s^2/m
+hfb=((f)*(v2))/((p4)*2*g)//s^2/m
+VA=(hfb)/(hfa)
+V=sqrt(VA)
+Q1=Qt1*V*vb+Qt2*vb//m^3/s
+Q2=v3*vb+Qt2*vb//m^3/s
+Q=v4*vb//m^3/s
+QB=((%pi)*(p4)^2*vb)/(4)//m^3/s
+QA=w2-B//min
+//RESULTS
+printf('The diameter is=% f min',QA)
diff --git a/1627/CH6/EX6.7/Ex6_7.sce b/1627/CH6/EX6.7/Ex6_7.sce
new file mode 100644
index 000000000..748625090
--- /dev/null
+++ b/1627/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,43 @@
+clc
+//initialisation of variables
+a=0.0006//m
+b=0.0002//m
+r1=30//cm
+r2=20//cm
+w1=1.3*10^-6//m^2/s
+w2=8078*10^-3//m^3/min
+s=1/60//min/sec
+f=0.024
+vb=1.02//m/s
+fa=0.0245
+fb=0.0213
+m=15//percent
+g=9.8//m/s^2
+m1=300//m
+m2=700//m
+n=265//m
+p1=0.0707//m^2
+p2=0.0314//m^2
+p3=0.1230//m^2
+VB=1.08//m/s
+r3=30*10^-2//m
+r4=20*10^-2//m
+//CALCULATIONS
+Va=(4*(w2)*(s))/((%pi)*(r3)^2)//m/s
+NRa=(Va)*(r3)/(w1)
+R=(a/(r3))
+NRb=(vb)*(r4)/(w1)
+R1=(b/(r4))
+V1=((fa)*(m1))/((r3)*(2*g))
+V2=((fb*m2))/((r4)*(2*g))
+V=sqrt(V2/V1)
+Q1=p1*V+p2//m^3/s
+Q2=p3+p2//m^3/s
+Q3=Q1*VB//m/s
+VA=V*VB//m/s
+NRB=(VB)*(r4)/(w1)
+QA=((%pi)*(r3)^2*(VA))/(4)*60//m^3/s
+QB=((%pi)*(r4)^2)*(VB)/(4)*60//m^3/s
+QT=(QA+QB)*n//gpm
+//RESULTS
+printf('The kinematic viscocity of water the total within the accurancy limit is=% f gpm',QT)