6 files changed, 98 insertions, 0 deletions
diff --git a/2666/CH14/EX14.1/Ex14_1.sce b/2666/CH14/EX14.1/Ex14_1.sce
new file mode 100755
index 000000000..db4c0abb6
--- /dev/null
+++ b/2666/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,21 @@
+
+clc
+//initialisation of variables
+t1=240//F
+t2=2540//F
+t=460//F
+p=21781//ft
+h=5050//ft
+q=1270//ft
+w=4567//Btu
+f=1545//ft
+//CALCULATIONS
+T2=t2+t//R
+T1=t+t1//R
+Q=p-h+q//Btu per mol
+U=Q-w//Btu
+W=Q-U//Btu
+W1=1*f*(T2-T1)//ft-lb
+W2=Q/(1*(T2-T1))//Btu per mol per deg
+//RESULTS
+printf('the constant pressure and work done=% f Btu per mol per deg',W2)
diff --git a/2666/CH14/EX14.2/14_2.sce b/2666/CH14/EX14.2/14_2.sce
new file mode 100755
index 000000000..ddb75d164
--- /dev/null
+++ b/2666/CH14/EX14.2/14_2.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+u1=14236//ft
+u2=897//F
+p=5957//ft
+f=1390//ft
+//CALCULATIONS
+H=(u1-u2)+(p-f)//Btu
+//RESULTS
+printf('the constant pressure =% f Btu',H)
diff --git a/2666/CH14/EX14.3/Ex14_3.sce b/2666/CH14/EX14.3/Ex14_3.sce
new file mode 100755
index 000000000..8723c5881
--- /dev/null
+++ b/2666/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,20 @@
+
+clc
+//initialisation of variables
+h=2368000//Btu per mol
+t=77//F
+u=104//ft
+v=18*991.3//Btu
+d=85//ft
+p=640//F
+q=12.5//ft
+h1=1066//ft
+f=9//ft
+a=8//ft
+r=118//ft
+g=13.5//ft
+//CALCULATIONS
+U=u-v//Btu per mol of water
+F=1*p+q*d+g*h1+a*r+a*h1+f*U+h//Btu per mol
+//RESULTS
+printf('the fuel the oxygen =% f Btu per mol',F)
diff --git a/2666/CH14/EX14.4/14_4.sce b/2666/CH14/EX14.4/14_4.sce
new file mode 100755
index 000000000..62aad12a6
--- /dev/null
+++ b/2666/CH14/EX14.4/14_4.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+t=77//F
+u1=640//ft
+u2=12.5//ft
+u3=85//ft
+p=47//ft
+v=82//ft
+h=60.5//ft
+a=1066//ft
+w=2202000//ft
+//CALCULATIONS
+E=u1+u2*u3+p*v+h*a+w//Btu
+//RESULTS
+printf('the left hand side of this equation=% f Btu',w)
diff --git a/2666/CH14/EX14.5/Ex14_5.sce b/2666/CH14/EX14.5/Ex14_5.sce
new file mode 100755
index 000000000..a3e3f21e5
--- /dev/null
+++ b/2666/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,16 @@
+
+clc
+//initialisation of variables
+p=1000//cu ft 
+t=820//F
+t1=460//F
+v=18.00//cu ft
+h=0.729//ft
+h1=0.488//ft
+a=1400//ft
+q=1545//ft
+//CALCULATIONS
+P=(h*(t+t1)/(v-h1))-(a/v^2)//atmosphere
+R=(1/v)*(q)*(t+t1)/1//lb per sq ft 
+//RESULTS
+printf('the perfect gas equation =% f lb per sq ft',R)
diff --git a/2666/CH14/EX14.6/14_6.sce b/2666/CH14/EX14.6/14_6.sce
new file mode 100755
index 000000000..8626d9ef7
--- /dev/null
+++ b/2666/CH14/EX14.6/14_6.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+p=5000//psia
+t=1200//F
+w=3206.2//psia
+t1=460//R
+h=705.4//ft
+q=0.84//ft
+g=1545//ft
+h1=(1/18)//ft
+//CALCULATIONS
+P=p/w//cu ft
+R=(t+t1)/(h+t1)//ft
+V=q*(h1)*g*(t+t1)/(144*p)//cu ft
+//RESULTS
+printf('the result with the steam table value=% f cu ft',V)