initial commit / add all books

11 files changed, 134 insertions, 0 deletions

diff --git a/2510/CH5/EX5.1/Ex5_1.sce b/2510/CH5/EX5.1/Ex5_1.sce
new file mode 100755
index 000000000..dcc6c82d4
--- /dev/null
+++ b/2510/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,12 @@
+//Variable declaration:
+qi = 3500                       //Initial volumetric flow rate of gas (acfm)
+Ti = 100.0                      //Initial temperature (°F)
+Tf = 300.0                      //Final temperature (°F)
+
+//Calculation:
+Ti_R = Ti+460                   //Initial temperatur in Rankine scale (°R)
+Tf_R = Tf+460                   //Final temperatur in Rankine scale (°R)
+qf = qi*(Tf_R/Ti_R)             //Final volumetric flow rate of gas (acfm)
+
+//Result:
+printf("The final volumetric flow rate of gas is : %.0f acfm",qf)
diff --git a/2510/CH5/EX5.10/Ex5_10.sce b/2510/CH5/EX5.10/Ex5_10.sce
new file mode 100755
index 000000000..9ad34faca
--- /dev/null
+++ b/2510/CH5/EX5.10/Ex5_10.sce
@@ -0,0 +1,22 @@
+//Variable declaration:
+qs1 = 5000.0                    //Volumetric flow rate of C6H5Cl at standard conditions (scfm)
+qs2 = 3000.0                    //Volumetric flow rate of air at standard conditions (scfm)
+Ta = 70+460.0                   //Actual absolute temperature in Rankine scale (°R)
+Ts = 60+460.0                   //Standard absolute temperature in Rankine scale (°R)
+V = 387.0                       //Volume occupied by one lbmol of any ideal gas (ft^3)
+M1 = 112.5                      //Molecular weight of C6H5Cl (lb/lbmol)
+M2 = 29.0                       //Molecular weight of air (lb/lbmol)
+T = 60.0                        //Absolute temperature (°F)
+
+//Calculations:
+qa1 = qs1*(Ta/Ts)               //Volumetric flow rate of C6H5Cl at actual conditions (acfm)
+qa2 = qs2*(Ta/Ts)               //Volumetric flow rate of air at actual conditions (acfm)
+n1 = qa1/V                      //Molar flow rate of C6H5Cl (lbmol/min)
+n2 = qa2/V                      //Molar flow rate of air (lbmol/min)
+m1 = n1*M1*T                    //Mass flow rate of C6H5Cl (lb/h)
+m2 = n2*M2*T                    //Mass flow rate of air (lb/h)
+m_in = m1+m2                    //Total mass flow rate of both streams entering the oxidizer (lb/h)
+m_out = m_in                    //Total mass flow rate of both streams exit the cooler (lb/h)
+
+//Result:
+printf("The rate of the products exit the cooler is : %.0f lb/h",m_out)
diff --git a/2510/CH5/EX5.11/Ex5_11.sce b/2510/CH5/EX5.11/Ex5_11.sce
new file mode 100755
index 000000000..f043391e8
--- /dev/null
+++ b/2510/CH5/EX5.11/Ex5_11.sce
@@ -0,0 +1,11 @@
+//Variable declaration:
+p = 0.15                        //Partial pressure of SO3 (mm Hg)
+P = 760.0                       //Atmospheric pressure (mm Hg)
+m = 10**6                       //Particles in a million
+
+//Calculation:
+y = p/P                         //Mole fraction of SO3
+ppm = y*m                       //Parts per million of SO3 (ppm)
+
+//Result:
+printf("The parts per million of SO3 in the exhaust is : %.0f ppm.",ppm)
diff --git a/2510/CH5/EX5.2/Ex5_2.sce b/2510/CH5/EX5.2/Ex5_2.sce
new file mode 100755
index 000000000..64bfcac93
--- /dev/null
+++ b/2510/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,10 @@
+//Variable declaration:
+qi = 3500                       //Initial volumetric flow rate of gas (acfm)
+Pi = 1.0                        //Iitial pressure (atm)
+Pf = 3.0                        //Final pressure (atm)
+
+//Calculation:
+qf = qi*(Pi/Pf)                 //Final volumetric flow rate of gas (acfm)
+
+//Result:
+printf("The volumetric flow rate of the gas (100°F, 1 atm) is: %.0f acfm",qf)
diff --git a/2510/CH5/EX5.3/Ex5_3.sce b/2510/CH5/EX5.3/Ex5_3.sce
new file mode 100755
index 000000000..0b153c425
--- /dev/null
+++ b/2510/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,12 @@
+//Variable declaration:
+qi = 3500                       //Initial volumetric flow rate of the gas (acfm)
+Pi = 1.0                        //Initial pressure (atm)
+Pf = 3.0                        //Final pressure (atm)
+Tf = 300.0+460.0                //Final temperature in Rankine scale (°R)
+Ti = 100.0+460.0                //Initial temperature in Rankine scale (°R)
+
+//Calculation:
+qf = qi*(Pi/Pf)*(Tf/Ti)         //Final volumetric flow rate of the gas (acfm)
+
+//Result:
+printf("The volumetric flow rate of the gas at 300°F temperature is : %.0f acfm",qf)
diff --git a/2510/CH5/EX5.4/Ex5_4.sce b/2510/CH5/EX5.4/Ex5_4.sce
new file mode 100755
index 000000000..beeb4ad81
--- /dev/null
+++ b/2510/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,11 @@
+//Variable declaration:
+P = 14.7                    //Absolute pressure of air (psia)
+MW = 29                     //Molecular weight of air (lb/lbmol)
+T = 75+460                  //Temperature in Rankine scale (°R)
+R = 10.73                   //Universal gas constant (ft^3.psi/lbmol.°R)
+
+//Calculation:
+p = P*MW/R/T                //Density of air (lb/ft^3)
+
+//Result:
+printf("The density of air at 75°F and 14.7 psia is : %.4f lb/ft^3",p)
diff --git a/2510/CH5/EX5.5/Ex5_5.sce b/2510/CH5/EX5.5/Ex5_5.sce
new file mode 100755
index 000000000..edb919af8
--- /dev/null
+++ b/2510/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,11 @@
+//Variable declaration:
+n = 1                           //Molar flow rate of gas (lbmol/h)
+R = 10.73                       //Universal gas constant (ft^3.psi/lbmol.°R)
+T = 60+460                      //Temperature in Rankine scale (°R)
+P = 14.7                        //Absolute pressure of gas (psia)
+
+//Calculation:
+V = n*R*T/P                     //Volume of gas (ft^3)
+
+//Result:
+printf("The volume of given ideal gas is : %.1f ft^3",V)
diff --git a/2510/CH5/EX5.6/Ex5_6.sce b/2510/CH5/EX5.6/Ex5_6.sce
new file mode 100755
index 000000000..05d1ba940
--- /dev/null
+++ b/2510/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,11 @@
+//Variable declaration:
+P = 1.2                         //Abslute pressure of gas (psia)
+MW = 29                         //Molecular weight of gas (g/gmol)
+R = 82.06                       //Universal gas constant (atm.cm^3/gmol.K)
+T = 20+273                      //Temperature in Kelvin (K)
+
+//Calculation:
+p = P*MW/R/T                    //Dendity of gas (g/cm^3)
+
+//Result:
+printf("The density of given gas is : %.5f g/cm^3",p)
diff --git a/2510/CH5/EX5.7/Ex5_7.sce b/2510/CH5/EX5.7/Ex5_7.sce
new file mode 100755
index 000000000..98300a583
--- /dev/null
+++ b/2510/CH5/EX5.7/Ex5_7.sce
@@ -0,0 +1,12 @@
+//Variable declaration:
+R = 10.73                       //Universal gas constant (psia . ft^3/lbmol .°R)
+T = 70+460                      //Temperature in Rankine scale (°R)
+v = 10.58                       //Specific volume (ft^3/lb)
+P = 14.7                        //Absolute pressure (psia)
+
+//Calculation:
+MW = R*T/v/P                    //Molecular weight of gas (lb/lbmol)
+
+//Result:
+printf("The molecular weight of the gas is : %.2f lb/lbmol.",MW)
+printf("It appears that the gas is HCl (i.e., hydrogen chloride).")
diff --git a/2510/CH5/EX5.8/Ex5_8.sce b/2510/CH5/EX5.8/Ex5_8.sce
new file mode 100755
index 000000000..a2a6077fb
--- /dev/null
+++ b/2510/CH5/EX5.8/Ex5_8.sce
@@ -0,0 +1,10 @@
+//Variable declaration:
+qs = 30000                      //Volumetric flow rate at standard conditions (scfm)
+Ta = 1100+460                   //Actual absolute temperature in Rankine scale (°R)
+Ts = 60+460                     //Standard absolute temperature in Rankine scale (°R)
+
+//Calculation:
+qa = qs*Ta/Ts                   //Volumetric flow rate at actual conditions (acfm)
+
+//Result:
+printf("The volumetric flow rate in actual cubic feet per minute is : %.0f acfm",qa)
diff --git a/2510/CH5/EX5.9/Ex5_9.sce b/2510/CH5/EX5.9/Ex5_9.sce
new file mode 100755
index 000000000..316e78f43
--- /dev/null
+++ b/2510/CH5/EX5.9/Ex5_9.sce
@@ -0,0 +1,12 @@
+//Variable declaration:
+qs = 1000                       //Volumetric flow rate at standard conditions (scfm)
+Ta = 300+460                    //Actual absolute temperature in Rankine scale (°R)
+Ts = 70+460                     //Standard absolute temperature in Rankine scale (°R)
+A = 2.0                         //Inlet area of stack (ft^2)
+
+//Calculations:
+qa = qs*Ta/Ts                   //Volumetric flow rate at actual conditions (acfm)
+v = qa/A/60                     //Velocity of gas (ft/s)
+
+//Result:
+printf("The velocity of the gas through the stack inlet is : %.0f ft/s",v)