4 files changed, 60 insertions, 0 deletions
diff --git a/2666/CH18/EX18.1/18_1.sce b/2666/CH18/EX18.1/18_1.sce
new file mode 100755
index 000000000..d87355e52
--- /dev/null
+++ b/2666/CH18/EX18.1/18_1.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+r=6//ratio
+p1=28.77//ft
+p2=126.70//ft
+p3=398.47//ft
+p4=240.36//ft
+v=19800//btu per lb
+w=0.0159//ft
+m=0.98//percent
+s=1.0159//Btu per lb
+//CALCULATIONS
+E=(s*(p3-p4)*m-(p2-p1)/m)/(w*v)*100//percent
+//RESULTS
+printf('the actual thermal efficiency of a gas turbine=% f percent',E)
diff --git a/2666/CH18/EX18.2/18_2.sce b/2666/CH18/EX18.2/18_2.sce
new file mode 100755
index 000000000..284affccb
--- /dev/null
+++ b/2666/CH18/EX18.2/18_2.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+t1=500//R
+t2=800//R
+p=14.7//psia
+p1=2.182//psia
+p2=11.410//pisa
+h1=96.38//Btu per lb
+h2=23.97//Btu per lb
+//CALCULATION
+P=p*(p2/p1)//psia
+E=h1-h2//Btu per lb of air
+//RESULTS
+printf('the final pressure and the change in enthalpy=% f Btu per lb of air',E)
diff --git a/2666/CH18/EX18.3/18_3.sce b/2666/CH18/EX18.3/18_3.sce
new file mode 100755
index 000000000..566d69b69
--- /dev/null
+++ b/2666/CH18/EX18.3/18_3.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+t1=850//R
+t2=500//R
+h=108.59//Btu per lb
+h1=96.38//Btu per lb
+h2=23.97//Btu per lb
+//CALCULATIONS
+E=(h1-h2)/(h-h2)*100//percent
+//RESULTS
+printf('The compressor s internal efficiency=% f percent',E)
diff --git a/2666/CH18/EX18.4/18_4.sce b/2666/CH18/EX18.4/18_4.sce
new file mode 100755
index 000000000..edf021a8a
--- /dev/null
+++ b/2666/CH18/EX18.4/18_4.sce
@@ -0,0 +1,20 @@
+
+clc
+//initialisation of variables
+f=18385//Btu per lb of fuel
+m=925//Btu per lb
+w=0.0159//ft
+p=0.60//percent
+h1=126.70//Btu per lb
+h2=240.36//Btu per lb
+hx=194.9//ft
+w1=0.0119//lb fuel per lb air
+q=1.0119//Btu per lb
+p1=0.98//in
+p2=28.77//ft
+s=19800//ft in
+g=398.47//ft
+//CALCULATIONS
+T=(q*(g-h2)*p1-(h1-p2)/p1)/(w1*s)*100//percent
+//RESULTS
+printf('the thermal efficency=% f percent',T)