7 files changed, 181 insertions, 0 deletions
diff --git a/2504/CH11/EX11.1/11_1.sce b/2504/CH11/EX11.1/11_1.sce
new file mode 100755
index 000000000..81f26c210
--- /dev/null
+++ b/2504/CH11/EX11.1/11_1.sce
@@ -0,0 +1,31 @@
+clc
+//initialisation of variables
+clear
+rt= 1.3 //ft
+rr= 0.6 //ft
+Q= 75 //ft^3
+rm= 0.95
+w1= 40 //rev/sec
+bim= 153 //degrees
+bom= 147 //degrees
+w= 62.4 //lb/ft^3
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+A= %pi*(rt^2-rr^2)
+Va= Q/A
+Vbm= rm*w1
+a= acotd(-Vbm/Va)
+im= a-bim
+vwm= Vbm+Va*cotd(bom)
+dvwm= rm*vwm
+C= w*Q*dvwm/g
+Cw= C*w1
+dp= Cw/Q
+//RESULTS
+printf ('Incidence = %.1f degrees',im) 
+printf ('\n Oulet velocity = %.2f ft/sec',vwm)
+printf ('\n Change of whirl at the mean radius = %.2f ft^2/sec',dvwm)
+
+printf ('\n Torque = %.f lbf/ft',C)
+printf ('\n Rate of working = %.f ft lbf/sec',Cw)
+printf ('\n Workdone by the rotor = %.f lbf/ft^2',dp)
diff --git a/2504/CH11/EX11.2/11_2.sce b/2504/CH11/EX11.2/11_2.sce
new file mode 100755
index 000000000..655fbd9bb
--- /dev/null
+++ b/2504/CH11/EX11.2/11_2.sce
@@ -0,0 +1,18 @@
+clc
+//initialisation of variables
+clear
+vbm= 38 //ft/sec
+va= 17.94 //ft/sec
+a= 147.5 //degrees
+vwm= 10.37 //ft/sec
+C= 1430 //lbf/ft
+P= 763 //lbf/ft^2
+//CALCULATIONS
+vwm1= vbm+va*cotd(a)
+p= (vwm-vwm1)/vwm
+C1= C*(1-p)
+P1= P*(1-p)
+//RESULTS
+printf ('Oulet Velocity = %.2f ft/sec',vwm1) 
+printf ('\n Torque = %.f lbf/ft',C1)
+printf ('\n Workdone by the rotor = %.f lbf/ft^2',P1)
diff --git a/2504/CH11/EX11.3/11_3.sce b/2504/CH11/EX11.3/11_3.sce
new file mode 100755
index 000000000..55e867aac
--- /dev/null
+++ b/2504/CH11/EX11.3/11_3.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+clear
+a= 154 //degrees
+vbm= 38 //ft/sec
+bom= 147 //degrees
+vwm= -7.78 //ft/sec
+w= 62.4 //lbf/ft^3
+g= 32.2 //ft/sec^2
+vb= 38 //ft/sec
+A= 4.18 //ft^2
+e= 0.95
+//CALCULATIONS
+vat= (vwm-vb)*tand(bom)
+Q= vat*A
+a1= acotd(-vbm/vat)
+imt= a1-a
+C= w*Q*vwm*e/g
+//RESULTS
+printf ('Flow rate = %.1f ft^3',Q)
+printf ('\n Incidence angle= %.f degrees',imt)
+printf ('\n Torque= %.f lbf ft',C)
diff --git a/2504/CH11/EX11.4/11_4.sce b/2504/CH11/EX11.4/11_4.sce
new file mode 100755
index 000000000..4644971c1
--- /dev/null
+++ b/2504/CH11/EX11.4/11_4.sce
@@ -0,0 +1,24 @@
+clc
+//initialisation of variables
+clear
+rt= 0.5 //ft
+rr= 0.16 //ft
+dv1= 88.3 //ft/sec
+b= 150 //degrees
+r= [0.16 0.3 0.5]
+vw= [2.5 5 7.5]
+vb= [46.6 88.3 132.5]
+vrb= [44.16 88.3 132.5]
+v1= [-1.154 -0.385]
+//CALCULATIONS
+A= %pi*(rt^2-rr^2)
+Va= -dv1*tand(b)
+Q= Va*A
+a= atand(v1)+180
+i= b-a
+//RESULTS
+printf ('Velocity = %.2f ft/sec',Va)
+printf ('\n Flow rate = %.1f ft^3',Q)
+disp(v1)
+disp(a)
+disp(i)
diff --git a/2504/CH11/EX11.5/11_5.sce b/2504/CH11/EX11.5/11_5.sce
new file mode 100755
index 000000000..635c7fc77
--- /dev/null
+++ b/2504/CH11/EX11.5/11_5.sce
@@ -0,0 +1,24 @@
+clc
+//initialisation of variables
+clear
+rt= 0.5 //ft
+rr= 0.16 //ft
+dv1= 88.3 //ft/sec
+b= 150 //degrees
+a= 5 //degrees
+v1= [-0.933 -0.311]
+i= [1.0 5.0 6.7]
+//CALCULATIONS
+b1= b+a
+A= %pi*(rt^2-rr^2)
+Va= -dv1*tand(b1)
+Q= Va*A
+a1= atand(v1)+180
+
+//RESULTS
+printf ('Velocity = %.2f ft/sec',Va)
+printf ('\n Flow rate = %.1f ft^3/sec',Q)
+
+disp(v1)
+disp(a1)
+disp(i)
diff --git a/2504/CH11/EX11.6/11_6.sce b/2504/CH11/EX11.6/11_6.sce
new file mode 100755
index 000000000..00f67f902
--- /dev/null
+++ b/2504/CH11/EX11.6/11_6.sce
@@ -0,0 +1,28 @@
+clc
+//initialisation of variables
+clear
+r= 1 //in
+b= 0.75 //in
+w= 180 //rev/sec
+B= 120 //degrees
+Bo= 150 //degrees
+ro= 3 //ft
+bo= 0.5 //ft
+Vbo= 180 //ft/sec
+w1= 62.4 //lbf/ft^3
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+Q= -2*%pi*(r/12)^2*(b/12)*w*tand(B)
+Vfo= Q/(2*%pi*(ro/12)*(bo/12))
+Vwo= Vbo*(ro/12)+Vfo*cotd(Bo)
+C= w1*Q*Vwo*(ro/12)/g
+dp= w1*Vwo*w*(ro/12)/g
+ari= atand(-Q*0.8/(2*%pi*(r/12)^2*(b/12)*w))+180
+i1= ari-B
+//RESULTS
+printf ('Flow rate = %.2f ft^3/sec',Q)
+printf ('\n radial velocity= %.2f ft/sec',Vfo)
+printf ('\n outlet whirl velocity= %.2f ft/sec',Vwo)
+printf ('\n Torque= %.2f lbf ft',C)
+printf ('\n Stagnant pressure = %.f lbf/ft^2',dp)
+printf ('\n Incidence angle = %.1f degrees',i1)
diff --git a/2504/CH11/EX11.7/11_7.sce b/2504/CH11/EX11.7/11_7.sce
new file mode 100755
index 000000000..ede38dac4
--- /dev/null
+++ b/2504/CH11/EX11.7/11_7.sce
@@ -0,0 +1,34 @@
+clc
+//initialisation of variables
+clear
+r= 1.4
+Mai= 0.5 //ft/sec
+T= 582 //R
+psi= 3040 //lbf/in^2
+R= 53.3 //ft lbf/lbm
+g= 32.2 //ft/sec^2
+Vwi= 300 //ft/sec
+m= 35 //lb/sec
+rm= 0.7 //ft
+rp= 4.25
+w= 1200 //rev/sec
+cp= 0.24
+J= 778 //lb
+//CALCULATIONS
+tr= 1+0.5*(r-1)*Mai^2
+Ti= T/tr
+pr= tr^(r/(r-1))
+pi= psi/pr
+ai= pi/(R*Ti)
+Vi= Mai*(r*R*g*Ti)^0.5
+Vai= sqrt(Vi^2-Vwi^2)
+h= m/(2*%pi*ai*rm*Vai)
+pr1= rp^(1/12)
+Vwo= Vwi+(pr1^((r-1)/r)-1)*(cp*J*g*T/(rm*w))
+BO= acotd((Vwo-w*rm)/Vai)
+//RESULTS
+printf ('Absolute air velocity = %.f ft/sec',Vi)
+printf ('\n air velocity = %.f ft/sec',Vai)
+printf ('\n Blade height = %.3f ft',h)
+printf ('\n velocity = %.f ft/sec',Vwo)
+printf ('\n outlet balde angle = %.1f degrees',BO)