1 files changed, 28 insertions, 0 deletions
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)