initial commit / add all books

1 files changed, 32 insertions, 0 deletions

diff --git a/3733/CH34/EX34.29/Ex34_29.sce b/3733/CH34/EX34.29/Ex34_29.sce
new file mode 100644
index 000000000..4ea0b534e
--- /dev/null
+++ b/3733/CH34/EX34.29/Ex34_29.sce
@@ -0,0 +1,32 @@
+// Example 34_29

+clc;funcprot(0);

+//Given data

+P=50;// MW

+F_l=40/100;// Load factor

+CC_s=15000;// Initial cost of steam plant in Rs./kW

+Mc_s=20;// Maintainence cost in paise/kWh

+n_os=25/100;// The over all efficiency of the steam plant

+CV=25000;// kJ/kg

+CC_h=30000;// Capital cost of hydel plant in Rs./kW

+Rc=5;// Running cost in paise/kWh

+ID_s=12/100;// Interest and depriciation for steam plant

+ID_h=9/100;// Interest and depriciation for hydel plant

+

+//Calculation

+E=P*10^3*F_l*8760;// Energy required per year in kWh/year

+//(a)Steam plant

+ID_s=P*10^3*CC_s*ID_s;//Interest and depriciation in Rs./year

+Mc_s=(Mc_s/100)*E;//Maintainence cost in Rs./year

+m_c=E/(10^3*CV*n_os)*3600;// The mass of coal in tons/year

+//(b)Hydel plant

+ID_h=P*10^3*CC_h*ID_h;//Interest and depriciation in Rs./year

+Rc_h=(Rc/100)*E;// Running cost in Rs./year

+Tc_h=ID_h+Rc_h;// Total cost of hydel plant in rupees

+// Tc_s=ID_s+Mc_s+(m_c*C); where C is the cost of coal

+function[X]=costofcoal(y)

+    X(1)=(ID_s+Mc_s+(m_c*y(1)))-Tc_h;

+endfunction

+y=[0.1];

+z=fsolve(y,costofcoal);

+C=z(1);// Rs./ton

+printf('\nThe cost of coal=Rs.%0.0f/ton',C);