initial commit / add all books

19 files changed, 307 insertions, 0 deletions

diff --git a/2735/CH16/EX16.1/Ex16_1.sce b/2735/CH16/EX16.1/Ex16_1.sce
new file mode 100755
index 000000000..d6e252fc6
--- /dev/null
+++ b/2735/CH16/EX16.1/Ex16_1.sce
@@ -0,0 +1,11 @@
+clc

+clear

+//Initialization of variables

+per=85

+//calculations

+a=per/12

+b=100-per

+ad=1.13*a

+bd=1.13*b

+//results

+printf("Molecule is C %d H %d",ad,bd+1)

diff --git a/2735/CH16/EX16.10/Ex16_10.sce b/2735/CH16/EX16.10/Ex16_10.sce
new file mode 100755
index 000000000..98bd57453
--- /dev/null
+++ b/2735/CH16/EX16.10/Ex16_10.sce
@@ -0,0 +1,17 @@
+clc

+clear

+//Initialization of variables

+N2=78.1 //Moles of Nitrogen

+M=29 //Molar mass of Air

+ba=2.12 //Basis

+x4=0.3 //Moles of Ch4

+x5=3.7 //Moles of H2

+x6=14.7 //moles of H2o

+//calculations

+O2=N2/3.76

+c=14.7

+b= x4*4 + x5*2 + x6*2

+a=b/ba

+AF=(O2+N2)*M/(a*12 + b)

+//results

+printf("Air fuel ratio = %.1f lbm air/lbm fuel",AF)

diff --git a/2735/CH16/EX16.11/Ex16_11.sce b/2735/CH16/EX16.11/Ex16_11.sce
new file mode 100755
index 000000000..dd558f113
--- /dev/null
+++ b/2735/CH16/EX16.11/Ex16_11.sce
@@ -0,0 +1,22 @@
+clc

+clear

+//Initialization of variables

+co2=8.7 //Moles of CO2

+co=8.9 //Moles of CO

+N2=78.1 //Moles of Nitrogen

+M=29 //Molar mass of Air

+ba=2.12 //Basis

+x4=0.3 //Moles of Ch4

+x5=3.7 //Moles of H2

+x6=14.7 //moles of H2o

+//calculations

+O2=N2/3.76

+c=14.7

+Z=2.238

+X=(Z*17-x4*4-x5*2)/2

+a=co2+co/2+x4+x6/2

+b=3.764*a

+AF=(O2+N2)*M/(Z*113)

+//results

+printf("Air fuel ratio = %.1f lbm air/lbm fuel",AF)

+

diff --git a/2735/CH16/EX16.12/Ex16_12.sce b/2735/CH16/EX16.12/Ex16_12.sce
new file mode 100755
index 000000000..8fd1809f3
--- /dev/null
+++ b/2735/CH16/EX16.12/Ex16_12.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Initialization of variables

+x1=8.7 //Moles of Co2

+x2=8.9 //Moles of CO

+x3=0.3 //Moles of O2

+N=78.1 //Moles of N2

+z=113 //Af factor

+M=29 //Molar mass of air

+//calculations

+co2=(x1+x2+x3)*100/(N+x1+x2+x3)

+a=2.325

+AF=103*M/(a*z)

+//results

+printf("Air fuel ratio = %.2f",AF)

diff --git a/2735/CH16/EX16.13/Ex16_13.sce b/2735/CH16/EX16.13/Ex16_13.sce
new file mode 100755
index 000000000..c516e45ed
--- /dev/null
+++ b/2735/CH16/EX16.13/Ex16_13.sce
@@ -0,0 +1,12 @@
+clc

+clear

+//Initialization of variables

+co=1.2 //Moles of CO

+co2=10.8 //Moles of CO2

+//calculations

+H2=co/2

+ch4=0.3

+N2=88-H2-ch4

+//results

+printf("Nitrogen = %.1f percent",N2)

+printf("\n Equation is a(96 CH4 + 3 H2+ 1 CO) + %.1f/3.76 O2 + %.1f N2 = %.1f CO2 + %.1f CO + %.1f H2 + %.1f CH4 + %.1f N2",N2,N2,co2,co,H2,ch4,N2)

diff --git a/2735/CH16/EX16.14/Ex16_14.sce b/2735/CH16/EX16.14/Ex16_14.sce
new file mode 100755
index 000000000..be3dced63
--- /dev/null
+++ b/2735/CH16/EX16.14/Ex16_14.sce
@@ -0,0 +1,11 @@
+clc

+clear

+//Initialization of variables

+dH=-2369859 //Btu

+r=1.986 //Gas constant

+dn=5.5 //Change in number of moles

+T=536.7 //R

+//calculations

+dQ=dH+dn*r*T

+//results

+printf("Higher heating value = %d Btu",dQ)

diff --git a/2735/CH16/EX16.15/Ex16_15.sce b/2735/CH16/EX16.15/Ex16_15.sce
new file mode 100755
index 000000000..1f7565521
--- /dev/null
+++ b/2735/CH16/EX16.15/Ex16_15.sce
@@ -0,0 +1,19 @@
+clc

+clear

+//Initialization of variables

+M2=18 //Molar mass of water

+M=170 //Molar mass of octane

+p=0.4593 //Pressure of octane //psia

+disp("from steam tables,")

+vfg=694.9 

+J=778.2

+m=9*18 //Mass of water

+u1=-2363996 //Btu

+//calculations

+hfg=1050.4 //Btu/lbm

+ufg= hfg- p*vfg*144/J

+dU=ufg*m 

+Lhv=u1+dU

+//results

+printf("Lower heating value = %d Btu/lbm",Lhv)

+disp("The answers are a bit different due to rounding off error in textbook.")

diff --git a/2735/CH16/EX16.16/Ex16_16.sce b/2735/CH16/EX16.16/Ex16_16.sce
new file mode 100755
index 000000000..c80e8a15c
--- /dev/null
+++ b/2735/CH16/EX16.16/Ex16_16.sce
@@ -0,0 +1,24 @@
+clc

+clear

+//Initialization of variables

+n1=8 //Moles of CO2

+n2=9 //Moles of H2O

+n3=1 //Moles of Octane

+n4=12.5 //Moles of Oxygen

+disp("From Table B-10,")

+U11=3852 //Internal energy at 1000 R of CO2

+U12=115 //Internal energy at 537 R of CO2

+U21=3009 //Internal energy at 1000 R of H2O

+U22=101 //Internal energy at  537 R of H2O

+U31=24773 //Internal energy at 1000 R of Octane

+U32=640 //Internal energy at 537 R of Octane

+U41=2539 //Internal energy at 1000 R of Oxygen

+U42=83 //Internal energy at 537 R of Oxygen

+H=-2203389 //heat Btu

+//calculations

+dU1=n1*(U11-U12)+n2*(U21-U22)

+dU2=n3*(U31-U32)+n4*(U41-U42)

+Q=H+dU1-dU2

+//results

+printf("Heat of reaction = %d Btu",Q)

+disp("The answers are a bit different due to rounding off error in textbook.")

diff --git a/2735/CH16/EX16.17/Ex16_17.sce b/2735/CH16/EX16.17/Ex16_17.sce
new file mode 100755
index 000000000..6ddcbb852
--- /dev/null
+++ b/2735/CH16/EX16.17/Ex16_17.sce
@@ -0,0 +1,18 @@
+clc

+clear

+//Initialization of variables

+n1=8 //Moles of CO2

+n2=9 //Moles of H2O

+n3=47 //Moles of N2

+disp("from table B-10,")

+h1=118 //Enthalpy of CO2

+h2=104 //Enthalpy of H2O

+h3=82.5 //Enthalpy of N2

+Q=2203279 //Btu

+//calculations

+U11=n1*h1+n2*h2+n3*h3

+U12=U11+Q

+T2=5271 //R

+//results

+printf("Upon interpolating, T2 = %d R",T2)

+

diff --git a/2735/CH16/EX16.18/Ex16_18.sce b/2735/CH16/EX16.18/Ex16_18.sce
new file mode 100755
index 000000000..e1b34f637
--- /dev/null
+++ b/2735/CH16/EX16.18/Ex16_18.sce
@@ -0,0 +1,18 @@
+clc

+clear

+//Initialization of variables

+n1=0.95

+n2=0.05

+n3=0.025

+P=147 //psia

+pa=14.7 //psia

+//calculations

+n=n1+n2+n3

+p1=n1/n *P/pa

+p2=n2/n *P/pa

+p3=n3/n *P/pa

+Kp1= p1/(p2*p3^0.5)

+Kp2= p1^2 /(p2^2 *p3)

+//results

+printf("In case 1, Equilibrium constant = %.1f ",Kp1)

+printf("\n In case 2, Equilibrium constant = %.1f ",Kp2)

diff --git a/2735/CH16/EX16.19/Ex16_19.sce b/2735/CH16/EX16.19/Ex16_19.sce
new file mode 100755
index 000000000..8e9934a03
--- /dev/null
+++ b/2735/CH16/EX16.19/Ex16_19.sce
@@ -0,0 +1,15 @@
+clc

+clear

+//Initialization of variables

+kp=5 

+//calculations

+x=poly(0,"x")

+vec=roots(24*x^3 + 3*x-2)

+x=vec(3)

+y=poly(0,"y")

+vec2=roots(249*y^3 +3*y-2)

+y=vec2(3)

+//results

+printf("percentage of dissociation = %.1f percent",x*100)

+printf("\n If pressure =10 . degree of dissociation = %d percent",y*100)

+

diff --git a/2735/CH16/EX16.2/Ex16_2.sce b/2735/CH16/EX16.2/Ex16_2.sce
new file mode 100755
index 000000000..795dab3ff
--- /dev/null
+++ b/2735/CH16/EX16.2/Ex16_2.sce
@@ -0,0 +1,14 @@
+clc

+clear

+//Initialization of variables

+per=0.071 //mass fraction of nitrogen

+//calculations

+O2=8.74

+N2=per/2 + 3.76*O2

+Nin=32.85

+CO2=7.333

+H2o=3

+So2=0.0312

+//results

+printf("Oxygen = %.2f and Nitrogen = %.2f",O2,N2)

+printf("\n Equation is C %.3f H %d + %.2f O2 + %.2f N2 = %.3f CO2 + %d H2O + %.5f SO2 + %.2f N2",CO2,2*H2o,O2,Nin,CO2,H2o,So2,N2)

diff --git a/2735/CH16/EX16.20/Ex16_20.sce b/2735/CH16/EX16.20/Ex16_20.sce
new file mode 100755
index 000000000..a5402c702
--- /dev/null
+++ b/2735/CH16/EX16.20/Ex16_20.sce
@@ -0,0 +1,9 @@
+clc

+clear

+//Initialization of variables

+x=poly(0,"x")

+vec=roots(24*x^3 +48*x^2 + 7*x -4)

+x=vec(3) *100

+//results

+printf("Extent of reaction= %d percent",100-x)

+

diff --git a/2735/CH16/EX16.3/Ex16_3.sce b/2735/CH16/EX16.3/Ex16_3.sce
new file mode 100755
index 000000000..2fc116e64
--- /dev/null
+++ b/2735/CH16/EX16.3/Ex16_3.sce
@@ -0,0 +1,16 @@
+clc

+clear

+//Initialization of variables

+M=29

+m1=8.74

+m2=32.85

+fuel=100 //lbm

+//calculations

+mass=M*(m1+m2)

+AF=mass/fuel

+a2=9.75

+b2=12.19

+AF2=mass/(fuel+a2+b2)

+//results

+printf("Air fuel ratio = %.2f lbm air/lbm fuel",AF)

+printf("\n In dry air, Air-fuel ratio = %.1f lbm air/lbm fuel as fired",AF2)

diff --git a/2735/CH16/EX16.4/Ex16_4.sce b/2735/CH16/EX16.4/Ex16_4.sce
new file mode 100755
index 000000000..183390c20
--- /dev/null
+++ b/2735/CH16/EX16.4/Ex16_4.sce
@@ -0,0 +1,21 @@
+clc

+clear

+//Initialization of variables

+m1=322.3 //Mass of Co2

+m2=2 //Mass of SO2

+m3=926 //Mass of N2

+basis=121.94 //Basis taken

+//calculations

+m=m1+m2+m3

+ratio=m/basis

+dh=5777 //Btu/mol

+h1=dh*7.364

+h2=14037

+h3=130501

+H=h1+h2+h3

+hrat=H/basis

+//results

+printf("Mass of dry flue gases = %.2f lbm dry flue gas/lbm fuel ash and moisture free",m/100)

+printf("\n Mass of dry flue gases = %.2f lbm dry flue gas/lbm fuel as fired ",ratio)

+printf("\n Energy carried away = %.1f btu/mol coal as fired which is same as  = %.1f Btu/lbm mol coal ",H, hrat)

+disp("The answers are a bit different due to rounding off errors in textbook")

diff --git a/2735/CH16/EX16.6/Ex16_6.sce b/2735/CH16/EX16.6/Ex16_6.sce
new file mode 100755
index 000000000..d7a65fdf6
--- /dev/null
+++ b/2735/CH16/EX16.6/Ex16_6.sce
@@ -0,0 +1,16 @@
+clc

+clear

+//Initialization of variables

+p=14.7 //psia

+ps=0.363 //psia

+n2=7.52 //moles

+n1=1 //moles

+//calculations

+x= (n1+n2)*ps/p /(1-ps/p)

+n=n1+n2+x

+y1=n1/n

+y2=n1/(n1+n2)

+//results

+printf("Final orsat composition is %d CO2 + %.2f H20 + %.2f N2",n1, x, n2)

+printf("\n Percentage of co2 on a wet basis = %.1f percent",y1*100)

+printf("\n percentage of co2 on a dry basis = %.2f percent",y2*100)

diff --git a/2735/CH16/EX16.7/Ex16_7.sce b/2735/CH16/EX16.7/Ex16_7.sce
new file mode 100755
index 000000000..05da92368
--- /dev/null
+++ b/2735/CH16/EX16.7/Ex16_7.sce
@@ -0,0 +1,16 @@
+clc

+clear

+//Initialization of variables

+N2=78.1

+M=29

+co2=8.7

+co=8.9

+x4=0.3

+x5=3.7

+x6=14.7

+//calculations

+O2=N2/3.76

+Z=(co2+co+x4)/8

+AF=(O2+N2)*M/(Z*113)

+//results

+printf("Air fuel ratio = %.1f lbm air/lbm fuel",AF)

diff --git a/2735/CH16/EX16.8/Ex16_8.sce b/2735/CH16/EX16.8/Ex16_8.sce
new file mode 100755
index 000000000..17800624d
--- /dev/null
+++ b/2735/CH16/EX16.8/Ex16_8.sce
@@ -0,0 +1,16 @@
+clc

+clear

+//Initialization of variables

+basis=100 //lbm

+x1=0.6

+ash=12 //lbm

+N2=79.7

+M=29

+//calculations

+x=ash/x1

+C=(1-x1)*x

+O2=N2/3.76

+a= (14.6+0.2)/(5.83-0.66)

+AF=(O2+N2)*M/(a*100)

+//results

+printf("Air fuel ratio = %.1f lbm air/lbm fuel as fired",AF)

diff --git a/2735/CH16/EX16.9/Ex16_9.sce b/2735/CH16/EX16.9/Ex16_9.sce
new file mode 100755
index 000000000..09dc01cfe
--- /dev/null
+++ b/2735/CH16/EX16.9/Ex16_9.sce
@@ -0,0 +1,17 @@
+clc

+clear

+//Initialization of variables

+N2=78.1 //Moles of Nitrogen

+M=29 //Molar mass of Air

+ba=2.12 //Basis

+x4=0.3 //Moles of Ch4

+x5=3.7 //Moles of H2

+x6=14.7 //moles of H2o

+//calculations

+O2=N2/3.76

+O2=N2/3.76

+Z=(x4*4+x5*2+x6*2)/17

+AF=(O2+N2)*M/(Z*113)

+//results

+printf("Air fuel ratio = %.1f lbm air/lbm fuel",AF)

+