3 files changed, 37 insertions, 0 deletions
diff --git a/3733/CH5/EX5.1/Ex5_1.sce b/3733/CH5/EX5.1/Ex5_1.sce
new file mode 100644
index 000000000..4bdd94b72
--- /dev/null
+++ b/3733/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,15 @@
+// Example 5_1
+clc;clear;funcprot(0);
+// Given data
+P=100;// Plant capacity in Mw
+CV=25600;// Calorific value in kJ/kg
+n_th=30;// The thermal efficiency of the plant in %
+n_eg=92;// Electrical generation efficiency in %
+
+// Calculation
+// Mechanical energy available=W*CV*(n_th/100) in kJ/hr
+// Electrical energy available=W*CV*(n_th/100)*(n_eg/100) in kJ/hr
+q_e=P*10^3*3600;// Heat equivalent in kJ/hr
+W=(q_e/(CV*(n_th/100)*(n_eg/100)));// The coal required per hour in kg/hr
+W=(W/1000);// The coal required per hour in tons/hr
+printf('\nThe coal required per hour,W=%0.2f tons/hr',W);
diff --git a/3733/CH5/EX5.2/Ex5_2.sce b/3733/CH5/EX5.2/Ex5_2.sce
new file mode 100644
index 000000000..b17ea7ce2
--- /dev/null
+++ b/3733/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,12 @@
+// Example 5_2
+clc;clear;funcprot(0);
+// Given data
+CV=28900;//kJ/kg
+n_b=83;// The boiler efficiency in %
+n_t=32;// The turbine efficiency in %
+n_g=97;// The generator efficiency in %
+W=30;// The coal consumption of the station in tons/hr
+
+// Calculation
+P=((W*1000*CV)*(n_b/100)*(n_t/100)*(n_g/100))/(3600*1000);// The capacity of the power plant in MW
+printf('\n The capacity of the power plant,P=%0.0f MW',P);
diff --git a/3733/CH5/EX5.3/Ex5_3.sce b/3733/CH5/EX5.3/Ex5_3.sce
new file mode 100644
index 000000000..9daa0b0f4
--- /dev/null
+++ b/3733/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,10 @@
+//Example 5_3
+clc;funcprot(0);
+// Given values
+P=100;// Power in kW
+CV=4000;// Calorific value in kJ/m^3
+n_o=0.20;// Over all efficiency of the plant
+
+// Calculation
+V=(3600*P)/(CV*n_o);// m^3/hr
+printf('The volume of gas required per hour,V=%0.0f m^3/hr\n',V);