18 files changed, 127 insertions, 0 deletions

diff --git a/629/CH5/EX5.1/ex5_1.txt b/629/CH5/EX5.1/ex5_1.txt
new file mode 100644
index 000000000..5d4c47e12
--- /dev/null
+++ b/629/CH5/EX5.1/ex5_1.txt
@@ -0,0 +1,6 @@
+ 

+The disharge in the pipe in both units is 2.42 m^3/s and 85.4 cfs.

+

+

+The mean velocity in the pipe in both units is 34.2 m/s and 112 ft/s.

+ 
\ No newline at end of file
diff --git a/629/CH5/EX5.1/example5_1.sce b/629/CH5/EX5.1/example5_1.sce
new file mode 100644
index 000000000..e67160c8c
--- /dev/null
+++ b/629/CH5/EX5.1/example5_1.sce
@@ -0,0 +1,14 @@
+clear

+clc

+//Example 5.1 VOLUME FLOW RATE AND MEAN VELOCITY

+m=3; //mass flow rate[kg/s]

+rho=1.24; //density[kg/m^3]

+Q=m/rho //discharge[m^3/s]

+//1m^3=35.31ft^3

+printf("\nThe disharge in the pipe in both units is %.2f m^3/s and %.1f cfs.\n\n",Q,Q*35.31)

+

+d=0.3; //diameter[m]

+A=(%pi*d^2)/4 //area[m^2]

+V=Q/A //mean velocity[m/s]

+//1ft=0.3048 m

+printf("\nThe mean velocity in the pipe in both units is %.1f m/s and %.f ft/s.\n",V,V/0.3048)
\ No newline at end of file
diff --git a/629/CH5/EX5.2/ex5_2.txt b/629/CH5/EX5.2/ex5_2.txt
new file mode 100644
index 000000000..676a44d19
--- /dev/null
+++ b/629/CH5/EX5.2/ex5_2.txt
@@ -0,0 +1,3 @@
+ 

+The discharge per meter width of the channel = 6.24 m^3/s per meter.

+ 
\ No newline at end of file
diff --git a/629/CH5/EX5.2/example5_2.sce b/629/CH5/EX5.2/example5_2.sce
new file mode 100644
index 000000000..686cc137b
--- /dev/null
+++ b/629/CH5/EX5.2/example5_2.sce
@@ -0,0 +1,8 @@
+clear

+clc

+//Example 5.2 FLOW IN SLOPING CHANNEL

+A=0.6; //depth[m]

+theta=30; //slope(degrees)

+V=12; //velocity[m/s]

+Q=V*cosd(theta)*A //discharge per meter[m^2/s]

+printf("\nThe discharge per meter width of the channel = %.2f m^3/s per meter.\n",Q)
\ No newline at end of file
diff --git a/629/CH5/EX5.3/ex5_3.txt b/629/CH5/EX5.3/ex5_3.txt
new file mode 100644
index 000000000..db6fab098
--- /dev/null
+++ b/629/CH5/EX5.3/ex5_3.txt
@@ -0,0 +1,2 @@
+ 

+The discharge in the channel = 20 m^3/s.
\ No newline at end of file
diff --git a/629/CH5/EX5.3/example5_3.sce b/629/CH5/EX5.3/example5_3.sce
new file mode 100644
index 000000000..885166ba8
--- /dev/null
+++ b/629/CH5/EX5.3/example5_3.sce
@@ -0,0 +1,10 @@
+clear

+clc

+//Example 5.3 DISCHARGE IN CHANNEL WITH NON-UNIFORM VELOCITY DISTRIBUTION

+d=2; //depth[m]

+w=5; //width[m]

+umax=3; //max velocity[m/s]

+//Discharge equation Q=integrate('u','A',0,d)

+//dA=w*dy

+Q=integrate('w*umax*sqrt(y/d)','y',0,2) //[m^3/s]

+printf("\nThe discharge in the channel = %.f m^3/s.\n",Q)
\ No newline at end of file
diff --git a/629/CH5/EX5.4/ex5_4.txt b/629/CH5/EX5.4/ex5_4.txt
new file mode 100644
index 000000000..97260e151
--- /dev/null
+++ b/629/CH5/EX5.4/ex5_4.txt
@@ -0,0 +1,2 @@
+ 

+The rate of water accumulating in the tank = 14.5 kg/s.
\ No newline at end of file
diff --git a/629/CH5/EX5.4/example5_4.sce b/629/CH5/EX5.4/example5_4.sce
new file mode 100644
index 000000000..263b0d244
--- /dev/null
+++ b/629/CH5/EX5.4/example5_4.sce
@@ -0,0 +1,12 @@
+clear

+clc

+//Example 5.4 MASS ACCUMULATION IN A TANK

+A=0.0025; //area[m^2]

+V=7; //velocity[m/s]

+rho=1000; //density[kg/m^3]

+mi=rho*V*A //inlet mass flow rate[kg/s]

+Q=0.003; //[m^3/s]

+mo=rho*Q //outlet mass flow rate[kg/s]

+//Continuity equation, mcv+mo-mi=0

+mcv=mi-mo //accumulation rate[kg/s]

+printf("\nThe rate of water accumulating in the tank = %.1f kg/s.\n",mcv)
\ No newline at end of file
diff --git a/629/CH5/EX5.5/ex5_5.txt b/629/CH5/EX5.5/ex5_5.txt
new file mode 100644
index 000000000..729ac1660
--- /dev/null
+++ b/629/CH5/EX5.5/ex5_5.txt
@@ -0,0 +1,2 @@
+ 

+The rate of rise of water in the reservoir is 0.484 ft/hr
\ No newline at end of file
diff --git a/629/CH5/EX5.5/example5_5.sce b/629/CH5/EX5.5/example5_5.sce
new file mode 100644
index 000000000..ea79e81fb
--- /dev/null
+++ b/629/CH5/EX5.5/example5_5.sce
@@ -0,0 +1,12 @@
+clear

+clc

+//Example 5.5 RATE OF WATER RISE IN RESERVOIR

+A=40; //area[mi^2]

+Q1=400000; //discharge rate into the reservoir[ft^3/s]

+Q2=250000; //outflow rate[cfs]

+//mcv=mi-mo

+//(rho*Q2)+(rho*Qrise)=rho*Q1

+Qrise=Q1-Q2 //[cfs]

+//1mi=5280ft, 1hr=3600sec

+Vrise=Qrise*3600/(A*(5280)^2) //rise rate[ft/hr]

+printf("\nThe rate of rise of water in the reservoir is %.3f ft/hr.\n",Vrise)
\ No newline at end of file
diff --git a/629/CH5/EX5.6/ex5_6.txt b/629/CH5/EX5.6/ex5_6.txt
new file mode 100644
index 000000000..222418eef
--- /dev/null
+++ b/629/CH5/EX5.6/ex5_6.txt
@@ -0,0 +1,2 @@
+ 

+The time elapsed for that drop in water tank = 31.9 s.
\ No newline at end of file
diff --git a/629/CH5/EX5.6/example5_6.sce b/629/CH5/EX5.6/example5_6.sce
new file mode 100644
index 000000000..6abde25b5
--- /dev/null
+++ b/629/CH5/EX5.6/example5_6.sce
@@ -0,0 +1,14 @@
+clear

+clc

+//Example 5.6 WATER LEVEL DROP RATE IN DRAINING TANK

+D1=0.1; //diameter of outlet[m]

+DT=1; //diameter of tank[m]

+A1=(%pi*D1^2)/4 //[m^2]

+AT=(%pi*DT^2)/4 //[m^2]

+g=9.81; //[m/s^2]

+ho=2; //[m]

+hf=0.5; //[m]

+//mi=0,mo=rho*A1*V1=rho*sqrt(2gh)*A1, mcv=mi-mo

+//continuity equation, mi=d(rho*AT*h)/dt

+t=integrate('(-AT)*(A1*(sqrt(2*g*h)))^(-1)','h',ho,hf)

+printf("\nThe time elapsed for that drop in water tank = %.1f s.\n",t)
\ No newline at end of file
diff --git a/629/CH5/EX5.7/ex5_7.txt b/629/CH5/EX5.7/ex5_7.txt
new file mode 100644
index 000000000..87133a618
--- /dev/null
+++ b/629/CH5/EX5.7/ex5_7.txt
@@ -0,0 +1,3 @@
+ 

+The time elapsed for the absolute pressure drop = 85766 s.

+ 
\ No newline at end of file
diff --git a/629/CH5/EX5.7/example5_7.sce b/629/CH5/EX5.7/example5_7.sce
new file mode 100644
index 000000000..2f0afbc59
--- /dev/null
+++ b/629/CH5/EX5.7/example5_7.sce
@@ -0,0 +1,13 @@
+clear

+clc

+//Example 5.7 DEPRESSURIZATION OF GAS IN TANK

+V=10; //volume[m^3]

+po=500; //initial pressure[kPa]

+pf=400; //final pressure[kPa]

+R=518; //gas constant[J/kg.K]

+T=300; //[K]

+A=10^-7; //area[m^2]

+//mi=0,mo=0.66*p*A/sqrt(R*T), mcv=mi-mo

+//continuity equation, mi=V*d(rho)/dt

+t=integrate('-V*(0.66*A*p*sqrt(R*T))^(-1)','p',po,pf)

+printf("\nThe time elapsed for the absolute pressure drop = %.f s.\n",t)
\ No newline at end of file
diff --git a/629/CH5/EX5.8/ex5_8.txt b/629/CH5/EX5.8/ex5_8.txt
new file mode 100644
index 000000000..79990b816
--- /dev/null
+++ b/629/CH5/EX5.8/ex5_8.txt
@@ -0,0 +1,2 @@
+ 

+The water speed in the 60cm pipe = 8 m/s.
\ No newline at end of file
diff --git a/629/CH5/EX5.8/example5_8.sce b/629/CH5/EX5.8/example5_8.sce
new file mode 100644
index 000000000..e539dcdf2
--- /dev/null
+++ b/629/CH5/EX5.8/example5_8.sce
@@ -0,0 +1,9 @@
+clear

+clc

+//Example 5.8 VELOCITY IN A VARIABLE-AREA PIPE

+A1=120^2; //[cm^2]

+A2=60^2; //[cm^2]

+V1=2; //speed in 120cm pipe[m/s]

+//flow rates Q1=Q2

+V2=V1*(A1/A2) //speed in 60 cm pipe[m/s]

+printf("\nThe water speed in the 60cm pipe = %.f m/s.\n",V2)
\ No newline at end of file
diff --git a/629/CH5/EX5.9/ex5_9.txt b/629/CH5/EX5.9/ex5_9.txt
new file mode 100644
index 000000000..05b3c9617
--- /dev/null
+++ b/629/CH5/EX5.9/ex5_9.txt
@@ -0,0 +1,2 @@
+ 

+The pressure difference recorded by the pressure gage = 150 kPa.
\ No newline at end of file
diff --git a/629/CH5/EX5.9/example5_9.sce b/629/CH5/EX5.9/example5_9.sce
new file mode 100644
index 000000000..af6ea6273
--- /dev/null
+++ b/629/CH5/EX5.9/example5_9.sce
@@ -0,0 +1,11 @@
+clear

+clc

+//Example 5.9 WATER FLOW THROUGH A VENTURIMETER

+//Bernoulli equation, p1+(g*z1)+(rho*V1^2)/2=p2+(g*z2)+(rho*V2^2)/2

+rho=1000; //density[kg/m^3]

+V1=10; //velocity[m/s]

+A21=0.5; //(A21=A2/A1)

+V12=A21 //(V12=V1/V2)

+del_pz=(rho*V1^2/2)*((1/V12)^2-1)/10^3 //change in piezometric pressure[kPa]

+del_pg=del_pz //pressure change in gage[kPa]

+printf("\nThe pressure difference recorded by the pressure gage = %.f kPa.\n",del_pg)
\ No newline at end of file