19 files changed, 437 insertions, 0 deletions
diff --git a/2339/CH5/EX5.1.1/Ex5_1.sce b/2339/CH5/EX5.1.1/Ex5_1.sce
new file mode 100755
index 000000000..c8dc96a30
--- /dev/null
+++ b/2339/CH5/EX5.1.1/Ex5_1.sce
@@ -0,0 +1,27 @@
+clc
+clear
+
+Mf=1300;                //in kg
+Ma=13000;               //in kg
+P=7;                    //in bar
+Cpw=4.187;              //in kJ/kg K
+CV=30000;               //in kJ/kg
+x=0.95;                 //Dryness Fraction
+Tfw=40;                 //in C
+
+Hfw=Tfw*Cpw;
+
+//At 7 bar
+Hf=697.2;               //in kJ/kg
+Hfg=2066.3;             //in kJ/kg
+
+H=Hf+(x*Hfg);
+Ms=Ma/Mf;
+
+Me=(Ms*(H-Hfw))/(2257);
+printf('Equivalent evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
+
+Eff=100*(Ma*(H-Hfw))/(Mf*CV);
+printf('Boiler Efficiency: %3.1f Percent',Eff);
+printf('\n');
diff --git a/2339/CH5/EX5.10.1/Ex5_10.sce b/2339/CH5/EX5.10.1/Ex5_10.sce
new file mode 100755
index 000000000..ba0d98e5a
--- /dev/null
+++ b/2339/CH5/EX5.10.1/Ex5_10.sce
@@ -0,0 +1,21 @@
+clc
+clear
+
+//At 10 bar pressure
+Tsat=179.9;
+Tsup=250;
+Cps=2.1;                //in kJ/kg K
+
+Hg=2778.1;              //in kJ/kg
+Ms=10;                  //in kg/kg of coal
+Hsup=Hg+(Cps*(Tsup-Tsat));
+
+Hfw=155;
+Me=(Ms*(Hsup-Hfw))/2257;
+
+FOE=Me/Ms;          //Factor of Evaporation
+BP=(Me*370)/21.296;
+printf('Equivalent Evaporation: %3.1f kg/kg of coal',Me);
+printf('\n');
+printf('Boiler Power: %3.1f kW',BP);
+printf('\n');
diff --git a/2339/CH5/EX5.11.1/Ex5_11.sce b/2339/CH5/EX5.11.1/Ex5_11.sce
new file mode 100755
index 000000000..864b8a225
--- /dev/null
+++ b/2339/CH5/EX5.11.1/Ex5_11.sce
@@ -0,0 +1,18 @@
+clc
+clear
+
+Ma=1100;            //in kg/hr
+CV=33000;               //in kJ/kg
+Tfw=46;             //in C
+P=10;           //in bar
+x=0.9;          //Dryness Fraction
+Eff=0.81;           //Efficiency
+
+Hf=762.8;
+Hfg=2015.3;
+H=Hf+(x*Hfg);
+Hfw=192.6;
+
+Mf=(Ma*(H-Hfw))/(CV*Eff);
+printf('Amount of Coal Consumed per hour: %3.1f kg',Mf);
+printf('\n');
diff --git a/2339/CH5/EX5.12.1/Ex5_12.sce b/2339/CH5/EX5.12.1/Ex5_12.sce
new file mode 100755
index 000000000..e1f88b177
--- /dev/null
+++ b/2339/CH5/EX5.12.1/Ex5_12.sce
@@ -0,0 +1,24 @@
+clc
+clear
+
+Ms=7.3;             //kg/kg of fuel
+Tfw=46;             //in C
+P=10;               //in bar
+FOE=1.17;           //Factor of Evaporation
+Eff=0.79;
+Me=FOE*Ms;
+printf('Equivalent Evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
+
+Hfw=192.6;              //in kJ/kg
+Hg=2778.1;              //in kJ/kg
+Tsat=179.9;             //in C
+Cps=2.1;                //in kJ/kg K
+H=(2257*FOE)+Hfw;
+Tsup=((H-Hg)/Cps)+Tsat;
+printf('Temperature of Superheated Steam: %3.1f C',Tsup);
+printf('\n');
+
+CV=(Ms*(H-Hfw))/Eff;
+printf('Calorific Value: %3.1f kJ/kg',CV);
+printf('\n');
diff --git a/2339/CH5/EX5.13.1/Ex5_13.sce b/2339/CH5/EX5.13.1/Ex5_13.sce
new file mode 100755
index 000000000..caa43538d
--- /dev/null
+++ b/2339/CH5/EX5.13.1/Ex5_13.sce
@@ -0,0 +1,24 @@
+clc
+clear
+
+Ma=18000;           //in kg/hr
+P=10;               //in bar
+x=0.97;             //Dryness Fraction
+Tfw=40;             //in C
+Mf=2050;            //in kg/hr
+CV=28000;           //kJ/kg
+
+//At 10 bar
+Hf1=762.8;
+Hfg1=2015.3;
+H=Hf1+(x*Hfg1);
+
+Hfw=167.6;
+
+Eff=(Ma*100*(H-Hfw))/(Mf*CV);
+printf('Boiler efficiency: %3.2f Percent',Eff);
+printf('\n');
+
+EA=((Ma/Mf)*(H-Hfw))/2257;
+printf('Equivalent Evaporation: %3.2f kg/kg of coal',EA);
+printf('\n');
diff --git a/2339/CH5/EX5.14.1/Ex5_14.sce b/2339/CH5/EX5.14.1/Ex5_14.sce
new file mode 100755
index 000000000..3f4632214
--- /dev/null
+++ b/2339/CH5/EX5.14.1/Ex5_14.sce
@@ -0,0 +1,27 @@
+clc
+clear
+
+Ma=18000;           //in kg/hr
+P=12;           //in bar
+x=0.97;         //Dryness Fraction
+CV=27400;       //in kJ/kg
+Mf=2050;            //in kg>hr
+
+Qs=Mf*CV;
+printf('Heat Supplied per hour: %3.1f kJ/hr',Qs);
+printf('\n');
+
+//At 12 bar 
+Hf=798.6;           //in kJ/kg
+Hfg=1986.2;         //in kJ/kg
+H1=Hf+(x*Hfg);
+
+//At 105 C
+Hfw=438.9;          //in kJ/kg
+Eff=(Ma*100*(H1-Hfw))/Qs;
+printf('Thermal Efficiency: %3.2f Percent',Eff);
+printf('\n');
+
+Ms=Ma/Mf;
+printf('Factor of Evaporation: %3.2f ',Ms);
+printf('\n');
diff --git a/2339/CH5/EX5.15.1/Ex5_15.sce b/2339/CH5/EX5.15.1/Ex5_15.sce
new file mode 100755
index 000000000..f6fa12ce2
--- /dev/null
+++ b/2339/CH5/EX5.15.1/Ex5_15.sce
@@ -0,0 +1,27 @@
+clc
+clear
+
+Ms=7.5;         //kg/kg of coal
+P=11;           //in bar
+Tf=70;          //in C
+Eff=0.75;       //Efficiency
+FOE=1.15;       //Factor of Evaporation
+Cps=2.1;        //in kJ/kg K
+Hfw=293;        //in kJ/kg
+H=(FOE*2257)+Hfw;
+
+//At 11 bar
+Hg=2781.7;      //in kJ/kg
+Tsat=184.1;     //in C
+Tsup=((H-Hg)/Cps)+Tsat;
+DOS=Tsup-Tsat;      //Degree of Superheat
+printf('Degree of Superheat: %3.1f C',DOS);
+printf('\n');
+
+Me=(Ms*(H-Hfw))/2257;
+printf('Equivalent evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
+
+CV=(Ms*(H-Hfw))/Eff;
+printf('Calorific value of Boiler: %3.2f kJ/kg ',CV);
+printf('\n');
diff --git a/2339/CH5/EX5.16.1/Ex5_16.sce b/2339/CH5/EX5.16.1/Ex5_16.sce
new file mode 100755
index 000000000..ccc45980c
--- /dev/null
+++ b/2339/CH5/EX5.16.1/Ex5_16.sce
@@ -0,0 +1,26 @@
+clc
+clear
+
+Ma=17000;       //in kg/hr
+P=14;           //in bar
+x=0.95;         //Dryness Fraction
+Tfw=102;            //in C
+Mf=2050;            //in kg/hr
+CV=27400;       //Calorific Value
+HS=Mf*CV;
+printf('Heat Supplied per hour: %3.2f kJ',HS);
+printf('\n');
+
+Hf=830.3;           //in kJ/kg
+Hfg=1959.7;         //in kJ/kg
+Hfw=427.5;          //in kJ/kg
+
+H=Hf+(x*Hfg);
+Eff=(Ma*100*(H-Hfw))/(Mf*CV);
+printf('Efficiency of Boiler: %3.2f Percent',Eff);
+printf('\n');
+
+Ms=Ma/Mf;
+Me=(Ms*(H-Hfw))/2257;
+printf('Equivalent evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
diff --git a/2339/CH5/EX5.17.1/Ex5_17.sce b/2339/CH5/EX5.17.1/Ex5_17.sce
new file mode 100755
index 000000000..0c55d621e
--- /dev/null
+++ b/2339/CH5/EX5.17.1/Ex5_17.sce
@@ -0,0 +1,27 @@
+clc
+clear
+
+Ma=1800;        //kg/hr
+P=12;           //in bar
+x=0.97;         //Dryness Fraction
+Tfw=105;        //in C
+Mf=2050;        //in kg/hr
+CV=27400;       //in kJ/kg
+
+Q=Mf*CV;
+printf('Heat Supplied: %3.2f kJ',Q);
+printf('\n');
+
+//At 12 bar pressure
+Hf=798.6;           //in kJ/kg
+Hfg=1986.2;         //in kJ/kg
+H=Hf+(x*Hfg);
+Hfw=4.187*Tfw;
+
+Me=(Ma*(H-Hfw))/(2257*Mf);
+printf('Equivalent Evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
+
+Eff=(Ma*100*(H-Hfw))/(CV*Mf);
+printf('Efficiency of boiler: %3.2f Percent',Eff);
+printf('\n');
diff --git a/2339/CH5/EX5.18.1/Ex5_18.sce b/2339/CH5/EX5.18.1/Ex5_18.sce
new file mode 100755
index 000000000..d08a6fc0d
--- /dev/null
+++ b/2339/CH5/EX5.18.1/Ex5_18.sce
@@ -0,0 +1,11 @@
+clc
+clear
+
+Me=10;      //kg/kg
+CV=34000        //kJ/kg
+
+x=Me*2257;
+
+Eff=100*x/CV;
+printf('Efficiency of Boiler: %3.2f Percent',Eff);
+printf('\n');
diff --git a/2339/CH5/EX5.19.1/Ex5_19.sce b/2339/CH5/EX5.19.1/Ex5_19.sce
new file mode 100755
index 000000000..c8e4a4461
--- /dev/null
+++ b/2339/CH5/EX5.19.1/Ex5_19.sce
@@ -0,0 +1,24 @@
+clc
+clear
+
+Ma=5500;        //kg/hr
+P=1;            //bar
+x=0.94;         //Dryness Fraction
+Tfw=40;         //in C
+Mf=600;         //kg/hr
+CV=32000;       //kJ/kg
+Hfw=Tfw*4.187;
+
+//At 1 bar pressure
+Hf=417.5;       //kJ/kg
+Hfg=2258;       //kJ/kg
+H=Hf+(x*Hfg);
+Ms=Ma/Mf;
+
+Me=(Ms*(H-Hfw))/2257;
+printf('Equivalent Evaporation: %3.3f kg/kg of coal',Me);
+printf('\n');
+
+Eff=(Ms*100*(H-Hfw))/CV;
+printf('Efficiency: %3.2f percent',Eff);
+printf('\n');
diff --git a/2339/CH5/EX5.2.1/Ex5_2.sce b/2339/CH5/EX5.2.1/Ex5_2.sce
new file mode 100755
index 000000000..451bf7068
--- /dev/null
+++ b/2339/CH5/EX5.2.1/Ex5_2.sce
@@ -0,0 +1,25 @@
+clc
+clear
+
+Ma=5400;                //in kg/hr
+Tfw=42;                 //in C
+P=7.6;                  //in bar
+Mf=670;                 //in kg/hr
+x=0.98;                 //Dryness Fraction
+CV=31000;               //kJ/kg
+Ms=Ma/Mf;
+Hf=175.81;              //in kJ/kg
+Hfw=Hf;
+
+//Now at 7.6 bar pressure
+Hf=711.8;               //in kJ/kg
+Hfg=2055.2;             //in kJ/kg
+
+H=Hf+(x*Hfg);
+Eff=100*(Ma*(H-Hfw))/(Mf*CV);
+printf('Boiler Efficiency %3.1f percent',Eff);
+printf('\n');
+
+Me=(Ms*(H-Hfw))/(2257);
+printf('Equivalent evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
diff --git a/2339/CH5/EX5.3.1/Ex5_3.sce b/2339/CH5/EX5.3.1/Ex5_3.sce
new file mode 100755
index 000000000..75e3cc2f6
--- /dev/null
+++ b/2339/CH5/EX5.3.1/Ex5_3.sce
@@ -0,0 +1,22 @@
+clc
+clear
+
+P=12;                   //in bar
+CV=34000;               //in kJ/kg
+T=250;                  //in C
+Ms=10;                  //in kg/kg of coal
+Tfw=36;                 //in C
+Hfw=150.74;             //in kJ/kg
+Hg=2784.8;              //in kJ/kg
+Tsup=T;
+Tsat=188;               //in C
+Cps=2.1;                //in kJ/kg K
+H=Hg+(Cps*(Tsup-Tsat));
+
+Me=(Ms*(H-Hfw))/2257;
+printf('Equivalent evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
+
+Eff=(Me*250)/21.296;
+printf('Boiler Power: %3.2f kW',Eff);
+printf('\n');
diff --git a/2339/CH5/EX5.4.1/Ex5_4.sce b/2339/CH5/EX5.4.1/Ex5_4.sce
new file mode 100755
index 000000000..6dedfc8b2
--- /dev/null
+++ b/2339/CH5/EX5.4.1/Ex5_4.sce
@@ -0,0 +1,30 @@
+clc
+clear
+
+Ma=35500;           //kg of steam
+Mf=3460;
+CV=39500;
+Ms=Ma/Mf;
+
+
+Hfw2=313.9;             //in kJ/kg
+Hfw1=71.4;              //in kJ/kg
+
+Q=Ma*(Hfw2-Hfw1);           //Heat added in economizer
+H=2915.0;           //in kJ/kg
+
+Me=(Ms*(H-Hfw2))/2257;
+printf('Equivalent evaporation: %3.2f kg/kg of Oil',Me);
+printf('\n');
+
+Eff1=(Ma*100*(H-Hfw2))/(Mf*CV);
+printf('Thermal Efficiency of boiler: %3.1f Percent',Eff1);
+printf('\n');
+
+Eff2=(Ma*100*(H-Hfw1))/(Mf*CV);
+printf('Thermal Efficiency of Boiler plant: %3.1f Percent',Eff2);
+printf('\n');
+
+HU=860875000/(Mf*CV);
+printf('Heat Utilized by Economizer: %3.1f Percent',HU);
+printf('\n');
diff --git a/2339/CH5/EX5.5.1/Ex5_5.sce b/2339/CH5/EX5.5.1/Ex5_5.sce
new file mode 100755
index 000000000..8c34472d8
--- /dev/null
+++ b/2339/CH5/EX5.5.1/Ex5_5.sce
@@ -0,0 +1,18 @@
+clc
+clear
+
+Ma=10000;           //in kg/hr
+P=7;                //in bar
+
+Tfw=40;             //in C
+Hfw=167.6;          //in kJ/kg
+H=2763.5;           //in kJ/kg
+
+Q=Ma*(H-Hfw)/60;            //Heat per minute
+SA=Q/2720;                  //Heating surface area required
+printf('Heating surface area required: %3.1f m^2',SA);
+printf('\n');
+
+GA=SA/25;
+printf('Grate area required: %3.1f m^2',GA);
+printf('\n');
diff --git a/2339/CH5/EX5.6.1/Ex5_6.sce b/2339/CH5/EX5.6.1/Ex5_6.sce
new file mode 100755
index 000000000..d0e4643c9
--- /dev/null
+++ b/2339/CH5/EX5.6.1/Ex5_6.sce
@@ -0,0 +1,19 @@
+clc
+clear
+
+Ma=2400;            //in kg
+Mf=240;             //in kg
+P=12;               //in bar
+CV=33500;           //in kJ/kg
+Tfw=120;            //in C
+Cpw=4.187;
+Hfw=Cpw*Tfw;
+H=2784.8;           //in kJ/kg
+Mfa=Mf-(0.1*Mf);
+Eff=(Ma*100*(H-Hfw))/(Mfa*CV);
+printf('Thermal Efficiency: %3.1f percent',Eff);
+printf('\n');
+
+Eff1=(Ma*100*(H-Hfw))/(Mf*CV);
+printf('Thermal Efficiency of boiler and grate: %3.1f percent',Eff1);
+printf('\n');
diff --git a/2339/CH5/EX5.7.1/Ex5_7.sce b/2339/CH5/EX5.7.1/Ex5_7.sce
new file mode 100755
index 000000000..b6f28b908
--- /dev/null
+++ b/2339/CH5/EX5.7.1/Ex5_7.sce
@@ -0,0 +1,21 @@
+clc
+clear
+
+Mf=255;         //in kg
+x=0.94;         //Dryness Fraction
+CV=30100;       //in kJ/kg
+P=11.5;         //in bar
+Ma=2100;        //in kg
+Tfw=25;         //in C
+Ms=Ma/Mf;
+
+Hfw=104.9;          //in kJ/kg
+Hf=790.1;           //in kJ/kg
+Hfg=1993.2;         //in kJ/kg
+H=Hf+(x*Hfg);
+
+Me=(Ms*(H-Hfw))/2257;
+Eff=(Ma*100*(H-Hfw))/(Mf*CV);
+printf('Equivalent Evaporation: %3.2f kg/kg of coal \n',Me)
+printf('Thermal Efficiency: %3.1f percent',Eff);
+printf('\n');
diff --git a/2339/CH5/EX5.8.1/Ex5_8.sce b/2339/CH5/EX5.8.1/Ex5_8.sce
new file mode 100755
index 000000000..d9bdeed6e
--- /dev/null
+++ b/2339/CH5/EX5.8.1/Ex5_8.sce
@@ -0,0 +1,23 @@
+clc
+clear
+
+Hf=762.8;               //in kJ/kg
+Hfg=2015.3;             //in kJ/kg
+x=0.95;                 //Dryness Fraction
+Ma=1000;
+Eff=0.75;
+CV=31000;
+
+H=Hf+(x*Hfg);
+Cpw=4.187;
+T=50;
+
+Hfw=Cpw*T;
+Q=Ma*(H-Hfw);
+
+Mf=Q/(Eff*CV);
+y=Mf/0.9;
+
+Eff1=(Q*100)/(y*CV);
+printf('Efficiency of Boiler and grate: %3.1f percent',Eff1);
+printf('\n');
diff --git a/2339/CH5/EX5.9.1/Ex5_9.sce b/2339/CH5/EX5.9.1/Ex5_9.sce
new file mode 100755
index 000000000..ca466b32d
--- /dev/null
+++ b/2339/CH5/EX5.9.1/Ex5_9.sce
@@ -0,0 +1,23 @@
+clc
+clear
+
+//At 10 bar
+Hg=2778.1;              //in kJ/kg
+Cp=2.1;                 //in kJ/kg K
+T=50;
+CV=30000;           //in kJ/kg
+
+H=Hg+(Cp*T);
+C=4.187;
+Tf=30;
+Hfw=C*Tf;
+
+Ms=800/100;
+
+Me=(Ms*(H-Hfw))/2257;
+printf('Equivalent Evaporation: %3.2f kg/kg of coal',Me);
+printf('\n');
+
+Eff=(Ms*100*(H-Hfw))/CV;
+printf('Efficiency of Boiler and grate: %3.1f percent',Eff);
+printf('\n');