10 files changed, 197 insertions, 0 deletions
diff --git a/2165/CH8/EX8.1/8_1.sce b/2165/CH8/EX8.1/8_1.sce
new file mode 100755
index 000000000..47b2ade49
--- /dev/null
+++ b/2165/CH8/EX8.1/8_1.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+b=6//in
+b1=9//in
+r1=4//ratio
+r2=1//ratio
+p=50//lb/in^2
+s=300//r p m
+e=30//per cent
+v=260//C.H.U
+a=1.41
+h=0.30//in
+g=33000//in
+g1=1400//in
+A=1-(r2/r1)^0.41//lb/in^2
+//CALCULATIONS
+I=(p*%pi*36/4*9/12*s/2)*1/g//ft^3
+X=(I*g)/(g1*v*h)//ft^3
+C=X*60/I//ft^3
+R=h/A*100//per cent
+//RESULTS
+printf('The fuel consumption in ft^3/h p hr and the efficiency relative to the air standard cycle=% f percent',R)
diff --git a/2165/CH8/EX8.10/8_10.sce b/2165/CH8/EX8.10/8_10.sce
new file mode 100755
index 000000000..110703817
--- /dev/null
+++ b/2165/CH8/EX8.10/8_10.sce
@@ -0,0 +1,34 @@
+clc
+//initialisation of variables
+p1=140//lb/in^2
+p2=6.6//lb/in^2
+v1=122//r.p.m
+v2=1250//b.h.p
+t=1425//i.h.p
+p3=77.8//lb/in^2
+h=0.356//lb
+v=10000//C.H.U/lb
+h2=2400//lb
+q=33000//in
+j=1400//in
+//CALCULATIONS
+t=(v2*q*60)/(j*h*v2*v)*100//percent
+V=(p3*144*v1)/(q*2)//V
+V1=(p2*144*v1)/q//V
+T=24.16//V
+V2=t/T//ft^3
+I=V*V2//ft^3
+I1=V1*V2//ft^3
+H=24904//C/.H.U//mim
+T=(I*q*60)/(j*h*v2*v)*100//percent
+T1=(I1*q)/(j*H)*100//percent
+T2=(h*v2*v)/(60)//C.H.U
+H1=(v2*q)/(j)//C.H.U/mim
+H2=H-(I1*q*v2)/(j*t)//C.H.U/mim
+T3=H1+H2//C.H.U/mim
+Tn=T2-T3//C.H.U/mim
+//RESULTS
+printf('the overall thermal effciency=% f percent',t)
+printf('the cylinder volume in ft^3=% f volume',V)
+printf('the thermal efficiency of steam engine=% f percent',T1)
+printf('total heat in oil.mim=% f C.H.U/mim',Tn)
diff --git a/2165/CH8/EX8.12/8_12.sce b/2165/CH8/EX8.12/8_12.sce
new file mode 100755
index 000000000..0fdbf477a
--- /dev/null
+++ b/2165/CH8/EX8.12/8_12.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+r=14//in
+r1=1.8//in
+t=30.4//lb
+e=0.6//lb
+lam=1.4
+d=12//in
+d1=18//in
+v=10000//C.H.U/lb
+P=200//r m p
+//CALCULATIONS
+A=1-(1/(lam*(r)^0.4))*((r1)^lam-1)/(r1-1)//percent
+T=e*A//percent
+H=t/60*v//C.H.U
+H1=H*T//C.H.U
+I=(H1*1400)/(33000)//ln/in^2
+M=(I*33000)/(2*%pi*144/4*d1/12*P/2)//lb/in^2
+//RESULTS
+printf('the indicated hourse-power and the mean effiective pressure of the engine=% flb/in^2',M)
diff --git a/2165/CH8/EX8.19/8_19.sce b/2165/CH8/EX8.19/8_19.sce
new file mode 100755
index 000000000..79ae1c53f
--- /dev/null
+++ b/2165/CH8/EX8.19/8_19.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+cv=0.1714//C.H.U
+R=100.3//ft.lb
+T=500//degree c
+J=1400//in
+Lam=R/J//C.H.U percent C
+//CALCULATIONS
+Cp=Lam+cv//C.H.U percent C
+//RESULTS
+printf('The specific heat at constant volume of a gaseous mixture is=% f C.H.U percent C',Cp)
diff --git a/2165/CH8/EX8.20/8_20.sce b/2165/CH8/EX8.20/8_20.sce
new file mode 100755
index 000000000..d5bfffbdc
--- /dev/null
+++ b/2165/CH8/EX8.20/8_20.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+a=0.124//in
+b=0.000025//in
+R=0.0671//heat units
+//CALCULATIONS
+Cp=(R+a+b)+b//T
+//RESULTS
+printf('the specific heat of a gas at constant volume=% f T',Cp)
diff --git a/2165/CH8/EX8.21/8_21.sce b/2165/CH8/EX8.21/8_21.sce
new file mode 100755
index 000000000..6c67b89c4
--- /dev/null
+++ b/2165/CH8/EX8.21/8_21.sce
@@ -0,0 +1,21 @@
+
+clc
+//initialisation of variables
+v=18//ft^3
+p=14//lb/in^2
+p1=150//lb/in^2
+Cp=0.242//T
+Cv=0.171//T
+j=1400//ft
+R=j*(Cp-Cv)//ft.lb
+p2=144//ft
+I1=137500//ft/lb
+I2=6.37//ft/lb
+v2=3.282//ft^3
+//CALCULATIONS
+T=(p2*p*v)/R//Degree C
+T2=(p2*p1*v2)/(R)//Degree c
+W=Cp*(T2-T)+0.00002*[(T2)^2-(T)^2]//C.H.U/lb
+C=v/v2//ratio
+//RESULTS
+printf('The work done the temperatures at the beginning and end of compression ratio=% f ratio',C)
diff --git a/2165/CH8/EX8.22/8_22.sce b/2165/CH8/EX8.22/8_22.sce
new file mode 100755
index 000000000..ab69e503d
--- /dev/null
+++ b/2165/CH8/EX8.22/8_22.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+r=12.5//rario
+p=0.39*10^6//ft.lb
+p1=14//lb/in^2
+t=373//Degree C
+g=18//ft^3
+t1=100//Degree C
+V=g/r//ft^3
+I=0.2*10^6//ft lb/lb
+T=0.59*10^6//ft.lb/lb
+D=0.221*10^6//ft.lb/lb
+A=0.095*10^6//ft.lb/lb
+E=0.264*10^6//ft.lb/lb
+E1=0.390*10^6//ft.lb/lb
+//CALCULATIONS
+W=(E/E1)*100//percent
+M=(E)/(144*(g-V))//lb.in^2
+//RESULTS
+printf('the efficiency of the engine and the m e p on the assumption that the specific heats=% f lb in^2',M)
diff --git a/2165/CH8/EX8.3/8_3.sce b/2165/CH8/EX8.3/8_3.sce
new file mode 100755
index 000000000..8e0955f0e
--- /dev/null
+++ b/2165/CH8/EX8.3/8_3.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+h=200//r p m
+h1=50//i h p
+P4=33.4//lb/in^2
+W=9000//ft lb
+x=33000//ft.lb
+p=1728//ft/lb
+//CALCULATIONS
+w=h1*x/100//ft lb
+T=w/W//ft^3
+V =13/14*T//ft^3
+D=((V*p*8)/(3*%pi))^(1/3)//in
+//RESULTS
+printf('The diameter of the cylinder of a single acting and swept volume=% f in',D)
diff --git a/2165/CH8/EX8.6/8_6.sce b/2165/CH8/EX8.6/8_6.sce
new file mode 100755
index 000000000..0eb64a712
--- /dev/null
+++ b/2165/CH8/EX8.6/8_6.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+h=12//in
+h1=18//in
+v=19000//B.Th.U/lb
+T=12600//lb/in^2
+m=90//lb/in^2
+w=120//gal
+t1=140//F
+t2=60//F
+t3=570//F
+Cv=0.24//ft/lb
+q=810//ft/lb
+n=16.9//lb
+//CALCULATIONS
+H=(n/t2*v)//B.Th.U
+H1=[m*%pi*(144/4)*(h1/h)*(T/t2)]/(778*2)//B.TH.U/min
+H2=1750//B.Th.U
+H3=(H1-H2)//B.Th.U
+W=(w*10/t2)*(t1-t2)//B,Th.U
+G=((q+n)/(t2))*(t3-t2)*Cv//B.TH.U
+//RESULTS
+printf('The heat balance showing heat quantities received and the discharged per min=% f B.TH.U',G)
diff --git a/2165/CH8/EX8.8/8_8.sce b/2165/CH8/EX8.8/8_8.sce
new file mode 100755
index 000000000..f2b2af842
--- /dev/null
+++ b/2165/CH8/EX8.8/8_8.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+v=12.5 //i.p.h
+p1=8.25//in
+p2=12//in
+t=110//per min
+g1=280//C.H.U/ft^3
+g2=215//ft^3
+V=25//percent
+e=0.875//in
+T=33000//in
+v1=0.4170//ft^3
+//CALCULATIONS
+M=(T*v)/((%pi*(p1)^2)/(4)*(p2/p2)*(t))//lb.in^2
+V1=%pi*(p1)^2/4*p2/1728*e//ft^3
+V2=(%pi*(p1)^2*p2)/(4*4*1728)//ft^3
+G=(g2/60*1/t)//ft^3
+T1=G*g1//C.H.U
+T2=(T1/v1)//C.H.U
+F=(M/T2)//C.H.U
+//RESULTS
+printf('The value of the Tookey factor for gas engine=%.f C.H.U',F)