7 files changed, 123 insertions, 0 deletions
diff --git a/2666/CH10/EX10.1/10_1.sce b/2666/CH10/EX10.1/10_1.sce
new file mode 100755
index 000000000..7f77286a7
--- /dev/null
+++ b/2666/CH10/EX10.1/10_1.sce
@@ -0,0 +1,19 @@
+clc
+//initialisation of variables
+v=1600//ft per sec
+v1=600//ft per sec
+a=15//degree
+v2=0.90//ft
+b=20//degree
+g=32.2//ft
+r=(v*cosd(a)-v1)^2//ft per sec
+r1=(v*sind(a))^2//ft per sec
+//CALCULATIONS
+Vr=sqrt(r+r1)//ft per sec
+Vr1=v2*Vr//ft per sec
+V=Vr1*cosd(b)//ft per sec
+V1=v*cosd(a)-v1//ft per sec
+W=(V1+V)*(v1)/g//ft-lb
+E=W/(v^2/2*g)*100000//percent
+//RESULTS
+printf('The efficiency =% f percent',E)
diff --git a/2666/CH10/EX10.2/10_2.sce b/2666/CH10/EX10.2/10_2.sce
new file mode 100755
index 000000000..a8e90caad
--- /dev/null
+++ b/2666/CH10/EX10.2/10_2.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+v1=273//ft
+v2=319//ft
+k=2736//ft-lb per lb
+w=3112//ft lb
+k1=1600^2/(2*32.2)//ft-lb per lb
+q=33870//ft lb
+//CALCULATIONS
+V=sqrt(v1^2+v2^2)//ft per sec
+W=q+k+w//ft lb per lb
+//RESULTS
+printf('The total work kinetic energy=% f ft lb per lb',W)
diff --git a/2666/CH10/EX10.3/10_3.sce b/2666/CH10/EX10.3/10_3.sce
new file mode 100755
index 000000000..7f48b56e1
--- /dev/null
+++ b/2666/CH10/EX10.3/10_3.sce
@@ -0,0 +1,8 @@
+clc
+//initialisation of variables
+v1=414//in
+v=1032//in
+//CALCULATIONS
+Beta=asind(v1/v)//degree 
+//RESULTS
+printf('the intial angle is=% f degree',Beta)
diff --git a/2666/CH10/EX10.4/10_4.sce b/2666/CH10/EX10.4/10_4.sce
new file mode 100755
index 000000000..5a2a22718
--- /dev/null
+++ b/2666/CH10/EX10.4/10_4.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+v1=414//ft lb sec
+v2=319//ft lb sec
+g=32.2//ft per sec
+//CALCULATIONS
+V=v1-v2//ft per sec
+F=V/g//lb per lb per sec
+//RESULTS
+printf('The thrust is=% f lb per lb per sec',F)
diff --git a/2666/CH10/EX10.5/Ex10_5.sce b/2666/CH10/EX10.5/Ex10_5.sce
new file mode 100755
index 000000000..cc540d0af
--- /dev/null
+++ b/2666/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,25 @@
+clc
+//initialisation of variables
+clear
+V1= 1800 //ft/sec
+a= 14 //degrees
+p= 0.75 //in
+h= 2 //in
+e= 0.02 //in
+vc= 0.89 
+v= 650 //ft/sec
+l= 9 //in
+P= 80 //psia
+T= 320 //F
+J= 50000
+rh1=  7.6 //Btu/ per lb
+v1= 5.632 //cu ft per lb
+//CALCULATIONS
+VR1= sqrt((V1*cosd(a)-v)^2+(V1*sind(a))^2)
+VR2= vc*VR1
+rh= (VR1^2-VR2^2)/J
+E= rh1+rh+VR1
+nb= l/p
+r= asind((((0.1*P*v1*144/(2*nb*VR2))+e)/0.75))
+//RESULTS
+printf (' minimum blade exit angle = %.1f degrees',r)
diff --git a/2666/CH10/EX10.6/10_6.sce b/2666/CH10/EX10.6/10_6.sce
new file mode 100755
index 000000000..4bf20cc24
--- /dev/null
+++ b/2666/CH10/EX10.6/10_6.sce
@@ -0,0 +1,27 @@
+clc
+//initialisation of variables
+p1=300//psia
+p2=25//psia
+t=600//F
+e=0.65//percent
+h1=1314.7//ft
+h2=1099.7//ft
+p=101//psia
+h3=1130.0//ft
+d=107.5//Btu
+hf=1132.0//Btu
+//CALCULATIONS
+H=h1-h2//ft
+P=h1-(H/2)//Btu
+R=(1-e)*(H/2)//Btu
+h=P+R//if
+h4=h-h3//Btu
+D=d+h4//Btu
+g=h1-(D/2)//Btu
+R1=(1-e)*(D/2)//Btu
+V=g+R1//Btu
+hg=h-hf//Btu
+R2=D/H//Btu
+H2=h1-(H*R2)/2//psia
+//RESULTS
+printf('The isentropic expansion and enthalpy=% f psia',H2)
diff --git a/2666/CH10/EX10.7/Ex10_7.sce b/2666/CH10/EX10.7/Ex10_7.sce
new file mode 100755
index 000000000..8185676e4
--- /dev/null
+++ b/2666/CH10/EX10.7/Ex10_7.sce
@@ -0,0 +1,21 @@
+
+clc
+//initialisation of variables
+h1=0.9//percent
+h2=0.6//percent
+t=400//ft per sec
+s=0.8//ft
+a=20//degree
+p=500//ft
+r=p*cosd(a)-t//ft
+r1=p*sind(a)//ft
+j=50000//ft
+w=6700//ft lb
+e=10.2//ft
+t1=778//F
+//CALCULATIONS
+V=t/s//ft per sec
+V1=sqrt(r^2+r1^2)//ft lb
+N=w/(e*t1)*100//percent
+//RESULTS
+printf('The nozzle and blade efficiency=% f percent',N)