5 files changed, 122 insertions, 0 deletions
diff --git a/2666/CH16/EX16.1/16_1.sce b/2666/CH16/EX16.1/16_1.sce
new file mode 100755
index 000000000..bfe0c16e2
--- /dev/null
+++ b/2666/CH16/EX16.1/16_1.sce
@@ -0,0 +1,32 @@
+clc
+//initialisation of variables
+p=14.2//psia
+t=140//F
+r=6//ratio
+p1=1300//Btu
+h1=53.3//ft
+t1=460//F
+p2=14.0//ft
+w=0.1715//ft
+w1=172.0//ft
+v=2.64//cu ft per lb
+v1=15.86//cu ft per lb
+h2=600//ft
+x1=517500//ft-lb per lb
+//CALCULATIONS
+V=1*h1*(t+t1)/(144*p2)//cu ft per lb
+P=p2*(r)^1.4//psia
+P1=(t+t1)*r^0.4//R
+V1=V/r//cu ft per lb
+Q=p1/w//R
+T=P1+Q//R
+P2=w1*(T/P1)//psia
+T1=T/(r)^0.4//R
+P3=P2/(r)^1.4//Psia
+W=1*w*(T1-h2)//Btu per lb
+Q=p1-W//Btu per lb
+W1=Q/p1*100//percent
+E=(1-(1/(r)^0.4))*100//percent
+M=x1/((v1-v)*144)//psia
+//RESULTS
+printf('The mean efficiency pressure=% f psia',M)
diff --git a/2666/CH16/EX16.2/16_2.sce b/2666/CH16/EX16.2/16_2.sce
new file mode 100755
index 000000000..4343225b9
--- /dev/null
+++ b/2666/CH16/EX16.2/16_2.sce
@@ -0,0 +1,29 @@
+clc
+//initialisation of variables
+p=15//ft
+v1=100//F
+v2=460//F
+t=800//Btu per lb
+p1=0.24//ft
+v=14.2//psia
+r=15//ft
+v3=15//ft
+v4=3.025//V
+c=0.1715//ft
+h=560//ft
+d=347000//ft-lb per lb
+a=13.63//ft
+R=53.3//ft
+//CALCULATIONS
+T=(v1+v2)*(p)^0.4//R
+Q=t/(1*p1)//R
+T1=T+Q//R
+V=v3/v4//ft
+T2=T1/(V)^0.4//R
+Q1=1*c*(T2-h)//Btu per lb
+Qs=t-Q1//Btu per lb
+W=1*R*(v1+v2)/(144*v)//cu ft per lb
+X=(14/15)*W//cu ft
+M=d/(X*144)//psia
+//RESULTS
+printf('the mean efficive pressure is=% f psia',M)
diff --git a/2666/CH16/EX16.3/Ex16_3.sce b/2666/CH16/EX16.3/Ex16_3.sce
new file mode 100755
index 000000000..f02f7b8cd
--- /dev/null
+++ b/2666/CH16/EX16.3/Ex16_3.sce
@@ -0,0 +1,26 @@
+
+clc
+//initialisation of variables
+v=400//Btu per lb
+t=1698//R
+c=0.1715//ft
+p=0.24//ft
+v1=15//ft
+v2=1.414//V
+p1=560//R
+q=800//ft
+h=401600//ft-lb per lb
+s=13.63//ft
+//CALCULATIONS
+T=(v/(1*c))//R
+T1=t+T//R
+T2=v/(1*p)//R
+T3=T1+T2//R
+V=v1/v2//ft
+T4=T3/(V)^0.4//R
+Q=1*c*(T4-p1)//Btu per lb
+Q1=q-Q//Btu per lb
+W=Q1/q*100//percent
+M=h/(s*144)//psia
+//RESULTS
+printf('The thermal efficiency equal is=% f psia',M)
diff --git a/2666/CH16/EX16.4/16_4.sce b/2666/CH16/EX16.4/16_4.sce
new file mode 100755
index 000000000..1efc64bcb
--- /dev/null
+++ b/2666/CH16/EX16.4/16_4.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+p=14.2//ft
+p1=15//psia
+p2=629.2//psia
+T1=4030//R
+T2=1698//R
+//CALCULATIONS
+P=p2*(T1/T2)//psia
+//RESULTS
+printf('The maximum pressures of the air standrad=% f psia',P)
diff --git a/2666/CH16/EX16.5/16_5.sce b/2666/CH16/EX16.5/16_5.sce
new file mode 100755
index 000000000..a57a83f8f
--- /dev/null
+++ b/2666/CH16/EX16.5/16_5.sce
@@ -0,0 +1,24 @@
+clc
+//initialisation of variables
+p=14.0//psia
+t=140//F
+r=6//ratio
+w=1//ratio
+Q=1300//Btu per lb
+t1=1229//R
+c=0.24//ft
+w1=600//ft
+f=517500//ft-lb per lb
+v=15.86//ft
+v1=2.64//cu ft
+//CALCULATIONS
+T=Q/(w*c)//R
+T1=t1+T//R
+T2=T1/(r)^0.4//R
+Q1=w*(c)*(T2-w1)//Btu per lb
+Qs=Q-Q1//Btu per lb
+W=Qs/Q*100//percent
+V=v*(T2/w1)//cu ft
+M1=f/((V-v1)*144)//psia
+//RESULTS
+printf('the cylinder volume is=% f psia',M1)