4 files changed, 62 insertions, 0 deletions
diff --git a/2666/CH8/EX8.1/8_1.sce b/2666/CH8/EX8.1/8_1.sce
new file mode 100755
index 000000000..d7eef7cd1
--- /dev/null
+++ b/2666/CH8/EX8.1/8_1.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+p1=53//psi
+p2=54//psi
+t=638//lb-ft
+d=275//rpm
+h1=50.26//sq in
+h2=49.48//sq in
+g=(10/12)//lb-ft
+h=33000//lbf
+//CALCULATIONS
+I=(p1*h1+p2*h2)*g*d/(h)//ihp
+P=2*%pi*d*t/h//bhp
+M=P/I*100//percent
+//RESULTS
+printf('the mechanical efficiency=% f percent',M)
diff --git a/2666/CH8/EX8.2/8_2.sce b/2666/CH8/EX8.2/8_2.sce
new file mode 100755
index 000000000..4dde1b4af
--- /dev/null
+++ b/2666/CH8/EX8.2/8_2.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+p=14.7//psi
+p1=100//psia
+w=1334//lb
+g=2544//in
+i=37.06//percent
+h=13.9//percent
+q=1187.2//in
+f=180.0//lb
+//CALCULATIONS
+A=(g*i)/(w*(q-f))*100//percent
+R=A/h//lb
+M=w/i//lb
+//RESULTS
+printf('the thermal efficiency of the prime mover=% f lb per ihp-hr',M)
diff --git a/2666/CH8/EX8.3/Ex8_3.sce b/2666/CH8/EX8.3/Ex8_3.sce
new file mode 100755
index 000000000..f7a1069eb
--- /dev/null
+++ b/2666/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+clear
+ihp= 500 //ihp
+w= 300 //rpm
+p= 80 //per cent
+r=2
+P1= 250 //psia
+P2= 30 //psia
+df= 0.82
+//CALCULAATIONS
+tm= 0.5*P1*(1+log(r))-P2
+D= (ihp*33000*(p/100)*12*4/(2*df*tm*%pi*w))^(1/3)
+//RESULTS
+printf (' Bore = %.1f in',D)
diff --git a/2666/CH8/EX8.4/8_4.sce b/2666/CH8/EX8.4/8_4.sce
new file mode 100755
index 000000000..b44c712b5
--- /dev/null
+++ b/2666/CH8/EX8.4/8_4.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+v=0.7//percent
+p=250//psia
+p1=0.50//percent
+h=(%pi/4)*(13.1)^2*(16.4/1728)//cu ft
+g=0.090//ft
+p2=1.8438//cu ft
+//CALCULATIONS
+W=v*h//cu ft
+V=g+h//cu ft
+V1=g+p1*h//cu ft
+H=V1/p2//lb
+//RESULTS
+printf('the specific volume of dry =% f lb',H)