summaryrefslogtreecommitdiff
path: root/3718/CH13
diff options
context:
space:
mode:
Diffstat (limited to '3718/CH13')
-rw-r--r--3718/CH13/EX13.1/Ex13_1.sce16
-rw-r--r--3718/CH13/EX13.10/Ex13_10.sce15
-rw-r--r--3718/CH13/EX13.11/Ex13_11.sce25
-rw-r--r--3718/CH13/EX13.12/Ex13_12.sce18
-rw-r--r--3718/CH13/EX13.13/Ex13_13.sce28
-rw-r--r--3718/CH13/EX13.14/Ex13_14.sce18
-rw-r--r--3718/CH13/EX13.2/Ex13_2.sce20
-rw-r--r--3718/CH13/EX13.3/Ex13_3.sce15
-rw-r--r--3718/CH13/EX13.4/Ex13_4.sce13
-rw-r--r--3718/CH13/EX13.5/Ex13_5.sce16
-rw-r--r--3718/CH13/EX13.6/Ex13_6.sce23
-rw-r--r--3718/CH13/EX13.7/Ex13_7.sce10
-rw-r--r--3718/CH13/EX13.8/Ex13_8.sce30
-rw-r--r--3718/CH13/EX13.9/Ex13_9.sce20
14 files changed, 267 insertions, 0 deletions
diff --git a/3718/CH13/EX13.1/Ex13_1.sce b/3718/CH13/EX13.1/Ex13_1.sce
new file mode 100644
index 000000000..a08fa9466
--- /dev/null
+++ b/3718/CH13/EX13.1/Ex13_1.sce
@@ -0,0 +1,16 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 1
+clc;
+
+//Declaration of Variables
+C = 84 // %
+S = 1.5 // %
+N = 0.6 // %
+H = 5.5 // %
+O = 8.4 // %
+
+// Solution
+GCV = (8080 * C + 34500 * (H - O / 8) + 2240 * S) / 100
+LCV = (GCV - 9 * H / 100 * 587)
+mprintf("Gross Calorific Value :%d kcal / kg\n",GCV)
+mprintf(" Net Calorific Value : %.2f kcal / kg",LCV)
diff --git a/3718/CH13/EX13.10/Ex13_10.sce b/3718/CH13/EX13.10/Ex13_10.sce
new file mode 100644
index 000000000..a5f39ba2d
--- /dev/null
+++ b/3718/CH13/EX13.10/Ex13_10.sce
@@ -0,0 +1,15 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 10
+clc;
+
+//Declaration of Variables
+H = 0.30 // metre cube
+CO = 0.10 // metre cube
+CH4 = 0.04 // metre cube
+N2 = 0.56 // metre cube
+
+// Solution
+vol_o = H * 0.5 + CO * 0.5 + CH4 * 2
+vol_a = vol_o * 100 / 21
+
+mprintf("Volumer of air required for complete combustion of 1 metre cube of producer gas: %.3f metre cube",vol_a)
diff --git a/3718/CH13/EX13.11/Ex13_11.sce b/3718/CH13/EX13.11/Ex13_11.sce
new file mode 100644
index 000000000..f54614cd2
--- /dev/null
+++ b/3718/CH13/EX13.11/Ex13_11.sce
@@ -0,0 +1,25 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 11
+clc;
+
+//Declaration of Variables
+H = 15.4 //in %
+C = 84.6 //in %
+wt_fuel = 1 //in kg
+wt_C = 0.846 //in kg
+wt_H = 0.154 //in kg
+
+// Solution
+mprintf("The combustion reactions are,\n")
+mprintf(" C + O2 --> CO2\n")
+mprintf(" 12 32 \t(by Weight)\n")
+mprintf(" 2H2 + O2 --> H20\n")
+mprintf(" 4 32\t(by Weight)\n")
+
+wt_O = 32 / 12.0 * wt_C
+wt_O_H = 32 / 4.0 * wt_H
+totwt = wt_O + wt_O_H
+totwc=22.4 / 32 * totwt * 1000
+
+mprintf(" Because 32 gm of O2 occupies a volume of 22.4 liters at NTP\n")
+mprintf(" 3.488 * 1000 gm of O2 will occupy %.1f l",totwc)
diff --git a/3718/CH13/EX13.12/Ex13_12.sce b/3718/CH13/EX13.12/Ex13_12.sce
new file mode 100644
index 000000000..c8b06b053
--- /dev/null
+++ b/3718/CH13/EX13.12/Ex13_12.sce
@@ -0,0 +1,18 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 12
+clc;
+
+//Declaration of Variables
+C = 750 // g
+H = 52 // g
+O = 121 // g
+N = 32 // g
+ash = 45 // g
+
+// Solution
+min_wt_a = (C * 32 / 12. + H * 16 / 2. - O) * 100 / 23.
+HCV = 1 / 1000. * (8080 * C + 34500 * (H - O / 8.) + 2240 * 0)
+LCV = HCV - 0.09 * H * 587 / 10.0
+
+mprintf("HCV is %d kcal/kg\n",HCV)
+mprintf(" LCV is %d kcal/kg",LCV)
diff --git a/3718/CH13/EX13.13/Ex13_13.sce b/3718/CH13/EX13.13/Ex13_13.sce
new file mode 100644
index 000000000..ced9eafec
--- /dev/null
+++ b/3718/CH13/EX13.13/Ex13_13.sce
@@ -0,0 +1,28 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 13
+clc;
+
+//Declaration of Variables
+C = 81 // %
+H = 8 // %
+N = 2 // %
+O = 5 // %
+
+// Solution
+mprintf("In 1kg coal,\n")
+
+wt_C = C * 10
+wt_H = H * 10
+wt_N = N * 10
+wt_O = O * 10
+wt_ash = 100 - (wt_O + wt_N + wt_H + wt_C)
+
+wt_a = ((wt_C * 32 / 12. + wt_H * 16 / 2. - wt_O) * 100 / 23.) / 1000.
+
+mprintf(" Weight of air required for complete combustion of 10kg coal = %.2f kg\n",wt_a * 10)
+
+HCV = 1 / 100. * (8080 * C + 34500 * (H - O / 8.))
+LCV = HCV - 0.09 * H * 587
+
+mprintf(" HCV is %d kcal/kg\n",HCV)
+mprintf(" LCV is %d kcal/kg\n",LCV)
diff --git a/3718/CH13/EX13.14/Ex13_14.sce b/3718/CH13/EX13.14/Ex13_14.sce
new file mode 100644
index 000000000..23ca5d406
--- /dev/null
+++ b/3718/CH13/EX13.14/Ex13_14.sce
@@ -0,0 +1,18 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 14
+clc;
+
+//Declaration of Variables
+C = 80 // %
+H = 7 // %
+N = 2.1 // %
+O = 3 // %
+S = 3.5 // %
+Ash = 4.4 // %
+
+// Solution
+HCV = 1 / 100. * (8080 * C + 34500 * (H - O / 8.) + 2240 * S)
+LCV = HCV - 0.09 * H * 587
+
+mprintf("HCV is %d kcal/kg\n",HCV)
+mprintf(" LCV is %d kcal/kg",LCV)
diff --git a/3718/CH13/EX13.2/Ex13_2.sce b/3718/CH13/EX13.2/Ex13_2.sce
new file mode 100644
index 000000000..5e748de4b
--- /dev/null
+++ b/3718/CH13/EX13.2/Ex13_2.sce
@@ -0,0 +1,20 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 2
+clc;
+
+//Declaration of Variables
+C = 90 // %
+O = 3.0 // %
+S = 0.5 // %
+N = 0.5 // %
+ash = 2.5 // %
+LCV = 8490.5 // kcal / kg
+
+// Solution
+mprintf("HCV = LCV + 9 * H / 100 * 587\n")
+mprintf(" HCV = 1/100 * (8080 * C + 34500 * (H - O / 8) + 2240 * N)\n")
+H = (8490.5 - 7754.8) / (345 - 52.8)
+H = 4.575
+mprintf(" The percentage of H is %.3f percent\n", H)
+HCV = LCV + 52.8 * H
+mprintf(" Higher calorific value of coal %.1f kcal / kg",HCV)
diff --git a/3718/CH13/EX13.3/Ex13_3.sce b/3718/CH13/EX13.3/Ex13_3.sce
new file mode 100644
index 000000000..ecd187386
--- /dev/null
+++ b/3718/CH13/EX13.3/Ex13_3.sce
@@ -0,0 +1,15 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 3
+clc;
+
+//Declaration of Variables
+x = 0.72 // g
+W = 250 // g
+w = 150 // g
+t1 = 27.3 // C
+t2 = 29.1 // C
+
+// Solution
+HCV = ((W + w) * (t2 - t1)) / x
+HCV = HCV * 4185.0 / 10 ** 6
+mprintf("HCV of fuel is : %.3f KJ / Kg",HCV)
diff --git a/3718/CH13/EX13.4/Ex13_4.sce b/3718/CH13/EX13.4/Ex13_4.sce
new file mode 100644
index 000000000..4a1d58662
--- /dev/null
+++ b/3718/CH13/EX13.4/Ex13_4.sce
@@ -0,0 +1,13 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 4
+clc;
+
+//Declaration of Variables
+x = 0.84 // g
+W = 1060 // g
+w = 135 // g
+d_t = 2.5 // C
+
+// Solution
+HCV = ((W + w) * d_t) / x
+mprintf("HCV of fuel is : %.2f kcal / kg",HCV)
diff --git a/3718/CH13/EX13.5/Ex13_5.sce b/3718/CH13/EX13.5/Ex13_5.sce
new file mode 100644
index 000000000..d63d3f8cd
--- /dev/null
+++ b/3718/CH13/EX13.5/Ex13_5.sce
@@ -0,0 +1,16 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 5
+clc;
+
+//Declaration of Variables
+V = 0.1 // metre cube
+W = 25 // kg
+t1 = 20 // C
+t2 = 33 // C
+m = 0.025 // kg
+
+// Solution
+HCV = W * (t2 - t1) / V
+LCV = HCV - (m / V) * 580
+mprintf("HCV is %d kcal / metre cube\n", HCV)
+mprintf(" LCV is %d kcal / metre cube", LCV)
diff --git a/3718/CH13/EX13.6/Ex13_6.sce b/3718/CH13/EX13.6/Ex13_6.sce
new file mode 100644
index 000000000..4ad9922fd
--- /dev/null
+++ b/3718/CH13/EX13.6/Ex13_6.sce
@@ -0,0 +1,23 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 6
+clc;
+
+//Declaration of Variables
+w1 = 2.5 // g
+w2 = 2.415 // g
+r = 1.528 // g
+ma = 0.245 // Mass of ash, g
+
+// Solution
+m = w1 - w2 // Mass of moisture in coal
+mv = w2 - r // Mass of volatile matter
+
+moip = m * 100 / w1
+vp = mv * 100 / w1
+ap = ma * 100 / w1
+cp = 100 - (moip + vp + ap)
+
+mprintf("Percentage of moisture:%.1f percentage\n", moip)
+mprintf(" Percentage of volatile matter:%.2f percentage\n", vp)
+mprintf(" Percentage of ash:%.1f percentage\n", ap)
+mprintf(" Percentage of fixed carbon:%.2f percentage", cp)
diff --git a/3718/CH13/EX13.7/Ex13_7.sce b/3718/CH13/EX13.7/Ex13_7.sce
new file mode 100644
index 000000000..3c51b354c
--- /dev/null
+++ b/3718/CH13/EX13.7/Ex13_7.sce
@@ -0,0 +1,10 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 7
+clc;
+
+// Solution
+wt_O = 2 * 32 / 12.0
+wt_a = wt_O * 100 / 23.2
+vol_a = wt_a / 28.94 * 22.4
+
+mprintf("Volume of air needed for the complete combustion of 2kg coke is %.3f litres at NTP",vol_a)
diff --git a/3718/CH13/EX13.8/Ex13_8.sce b/3718/CH13/EX13.8/Ex13_8.sce
new file mode 100644
index 000000000..47d526e4c
--- /dev/null
+++ b/3718/CH13/EX13.8/Ex13_8.sce
@@ -0,0 +1,30 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 8
+clc;
+
+//Declaration of Variables
+C = 86 // %
+H = 4 // %
+N = 1.3 // %
+S = 3 // %
+O = 4 // %
+Ash = 1.7 // %
+wt = 500 // g
+
+// Solution
+wt_C = C / 100.0
+wt_S = S / 100.0
+wt_H = H / 100.0
+wt_O = O / 100.0
+
+mprintf("Nitrogen and ash are incombustible, so they do not require oxygen\n")
+
+wt_O_C = 32 / 12.0 * wt_C
+wt_O_S = 32 / 32.0 * wt_S
+wt_O_H = 32 / 4.0 * wt_H
+
+totw = wt_O_H + wt_O_S + wt_O_C
+wt_O_n = totw - wt_O
+wt_a = (100.0 / 23.0 * wt_O_n) * 500 / 1000.0
+
+mprintf(" Minimum Wt. of air required by 500g of fuel %.2f kg",wt_a)
diff --git a/3718/CH13/EX13.9/Ex13_9.sce b/3718/CH13/EX13.9/Ex13_9.sce
new file mode 100644
index 000000000..370840394
--- /dev/null
+++ b/3718/CH13/EX13.9/Ex13_9.sce
@@ -0,0 +1,20 @@
+//Chapter 13: Fuel and Combustions
+//Problem: 9
+clc;
+
+//Declaration of Variables
+wt_C = 3 // kg
+
+// Solution
+wt_a = wt_C * 32 * 100 / 12.0 / 23.0
+vol_a = wt_a * 1000 * 22.4 / 28.94
+
+mprintf("H2(g) + 1/2 O2(g) --> H20(l)\n")
+mprintf(" 1 0.5 1\t\t(By Vol.)\n")
+mprintf(" CO(g) + 1/2 O2(g) --> CO2(g)\n")
+mprintf(" 1 0.5 1\t\t(By Vol.)\n")
+mprintf(" CH4(g) + 2 O2(g) --> CO2(g) + 2H2O(l)\n")
+mprintf(" 1 2 1\t\t(By Vol.)\n")
+
+mprintf(" Weight of air for the combustion of 3kg carbon %.3f kg\n",wt_a)
+mprintf(" Vol. of air required for combustion of 3kg carbon %.3e L (or) %.2f metre cube",vol_a,vol_a / 1000)
generated by cgit (git 2.34.1) at 2024-12-19 12:46:24 +0000