initial commit / add all books

10 files changed, 90 insertions, 0 deletions

diff --git a/51/CH12/EX12.2/12_2.sce b/51/CH12/EX12.2/12_2.sce
new file mode 100755
index 000000000..c402b6196
--- /dev/null
+++ b/51/CH12/EX12.2/12_2.sce
@@ -0,0 +1,11 @@
+clc;

+clear;

+exec("C:\Program Files\scilab-5.3.0\bin\TCP\12_2data.sci");

+U2=r2*2*%pi*N/(60*12);//ft/sec

+Vr2=(1400/(7.48*60*2*%pi*(r2/12)*(b/12)));//ft/sec

+V2tangential=U2-(Vr2*cotg(beta2*%pi/180));//ft/sec

+hi=U2*V2tangential/32.2;//ft

+disp("ft",hi,"The ideal head rise=")

+d=1.94;//slugs/(ft^3)

+Wshaft=(d*Q*U2*V2tangential/(7.58*60))/550;//hp

+disp("hp",Wshaft,"The power transferred to the fluid=")

diff --git a/51/CH12/EX12.2/12_2data.sci b/51/CH12/EX12.2/12_2data.sci
new file mode 100755
index 000000000..e9b388565
--- /dev/null
+++ b/51/CH12/EX12.2/12_2data.sci
@@ -0,0 +1,7 @@
+Q=1400;//gpm

+N=1750;//rpm

+b=2;//in

+r1=1.9;//in

+r2=7.0;//in

+beta2=23;//degrees

+alpha1=90;//degrees

diff --git a/51/CH12/EX12.3/12_3.sce b/51/CH12/EX12.3/12_3.sce
new file mode 100755
index 000000000..a41fc38d5
--- /dev/null
+++ b/51/CH12/EX12.3/12_3.sce
@@ -0,0 +1,10 @@
+clc;

+clear;

+exec("C:\Program Files\scilab-5.3.0\bin\TCP\12_3data.sci");

+V=Q/((%pi/4)*(D/12)^2);//ft/sec

+hL=KL*(V^2)/(2*32.2);//ft

+//from value of T

+pv=0.5069;//psi

+sw=62.22;//lb/(ft^3); sw =specific weight

+z1max=(patm*144/sw)-hL-(pv*144/sw)-NPSHr;//ft

+disp("ft",z1max,"The maximum height at which the pump can be located=")
\ No newline at end of file
diff --git a/51/CH12/EX12.3/12_3data.sci b/51/CH12/EX12.3/12_3data.sci
new file mode 100755
index 000000000..4e3620e95
--- /dev/null
+++ b/51/CH12/EX12.3/12_3data.sci
@@ -0,0 +1,6 @@
+Q=0.5;//(ft^3)/sec

+NPSHr=15;//ft

+T=80;//degree F

+patm=14.7;//psi

+KL=20;

+D=4;//in

diff --git a/51/CH12/EX12.5/12_5.sce b/51/CH12/EX12.5/12_5.sce
new file mode 100755
index 000000000..4ac8425a2
--- /dev/null
+++ b/51/CH12/EX12.5/12_5.sce
@@ -0,0 +1,12 @@
+clc;

+clear;

+exec("C:\Program Files\scilab-5.3.0\bin\TCP\12_5data.sci");

+CQ=0.0625;

+Q1=CQ*(N1/60)*(2*%pi)*(D1/12)^3;//(ft^3)/sec

+disp("gpm",Q1*7.48*60,"or","(ft^3)/sec",Q1,"The discharge=")

+CH=0.19;

+ha=CH*((N1*2*%pi/60)^2)*((D1/12)^2)/32.2;//ft

+disp("ft",ha,"The actual  headrise=")

+CP=0.014;

+Wshaft=(CP*(1.94)*((N1*2*%pi/60)^3)*((D1/12)^5))/550;//hp

+disp("hp",Wshaft,"The shaft horsepower=")

diff --git a/51/CH12/EX12.5/12_5data.sci b/51/CH12/EX12.5/12_5data.sci
new file mode 100755
index 000000000..da70c07ad
--- /dev/null
+++ b/51/CH12/EX12.5/12_5data.sci
@@ -0,0 +1,5 @@
+D1=8;//in

+N1=1200;//rpm

+D2=12;//in

+N2=1000;//rpm

+T=60;//degree F

diff --git a/51/CH12/EX12.6/12_6.sce b/51/CH12/EX12.6/12_6.sce
new file mode 100755
index 000000000..2d949a627
--- /dev/null
+++ b/51/CH12/EX12.6/12_6.sce
@@ -0,0 +1,22 @@
+clc;

+clear;

+exec("C:\Program Files\scilab-5.3.0\bin\TCP\12_6data.sci");

+//energy equation between a point on surface of lake and the nozzle outlet

+//z0=(V1^2)/(2*32.2) + hL

+//from continuity equation, V=(A1*V1/A)=((D1/D)^2)*V1

+//neglecting minor losses, 

+//z0=(1+(f*l/D)*((D1/D)^4))*(V1^2)/(2*32.2)

+//Wshaft=d*Q*u*(U-V1)*(1-cos(B))

+//The maximum power occurs at U=V1/2 and dWshaft/dD1=0

+a=(2*32.2*z0)^0.5;//113.5

+b=f*(l/(D/12))*(1/(D/12))^4;//152

+c=a*%pi*1.94*(1-cos(B*%pi/180))/4;//323

+d=(c*a*a/4);//1.04*(10^6)

+//by the above conditions, and applying Q=(%pi*(D1^2)*V1/4)

+D1=(1/(2*b))^(1/4);//ft

+disp("ft",D1,"The nozzle diameter for maximum power output=")

+Wshaft=-((d*D1^2)/(1+(b*D1^4))^(3/2))/550;//hp

+disp("hp",Wshaft,"The maximum power output=")

+V1=a/(1+(b*(D1^4)))^0.5;//ft/sec

+omega=(V1/(2*R))*60/(2*%pi);//rpm

+disp("rpm",omega,"The angular velocity of the rotor=")

diff --git a/51/CH12/EX12.6/12_6data.sci b/51/CH12/EX12.6/12_6data.sci
new file mode 100755
index 000000000..f33dec87c
--- /dev/null
+++ b/51/CH12/EX12.6/12_6data.sci
@@ -0,0 +1,7 @@
+z0=200;//ft

+l=1000;//ft

+f=0.02;

+D=8;//in.

+B=150;//degree

+R=1.5;//ft

+z1=0;//ft

diff --git a/51/CH12/EX12.8/12_8.sce b/51/CH12/EX12.8/12_8.sce
new file mode 100755
index 000000000..08eba9b84
--- /dev/null
+++ b/51/CH12/EX12.8/12_8.sce
@@ -0,0 +1,7 @@
+clc;

+clear;

+exec("C:\Program Files\scilab-5.3.0\bin\TCP\12_8data.sci");

+rm=0.5*(ro+ri)/12;

+U=(N*2*%pi/60)*rm;//ft/sec

+wshaft=(-U)*(2*U)/32.174;//ft*lb/lbm

+disp("Ft*lb/lbm",wshaft,"The shaft energy per unit mass of air=")
\ No newline at end of file
diff --git a/51/CH12/EX12.8/12_8data.sci b/51/CH12/EX12.8/12_8data.sci
new file mode 100755
index 000000000..faa1956e7
--- /dev/null
+++ b/51/CH12/EX12.8/12_8data.sci
@@ -0,0 +1,3 @@
+ri=0.133;//in.

+ro=0.168;//in.

+N=300000;//rpm