summaryrefslogtreecommitdiff
path: root/3733/CH34/EX34.7/Ex34_7.sce
diff options
context:
space:
mode:
Diffstat (limited to '3733/CH34/EX34.7/Ex34_7.sce')
-rw-r--r--3733/CH34/EX34.7/Ex34_7.sce26
1 files changed, 26 insertions, 0 deletions
diff --git a/3733/CH34/EX34.7/Ex34_7.sce b/3733/CH34/EX34.7/Ex34_7.sce
new file mode 100644
index 000000000..56bd38035
--- /dev/null
+++ b/3733/CH34/EX34.7/Ex34_7.sce
@@ -0,0 +1,26 @@
+// Example 34_7
+clc;funcprot(0);
+//Given data
+L_p=10;// MW
+// I=5*10^6(18+12L+0.5L^2)
+L_1=5;// MW
+L_2=7;// MW
+
+// Calculation
+//(a)
+// n=(L/I)=(1/(5*10^6((18/L)+12+0.5L)));
+// The efficiency will be maximum when ((18/L)+12+0.5L)),differentiating we get
+L_m=sqrt((-18)/(-0.5));// MW
+L=L_m*10^3*3600;// kJ/hr
+I_6=5*10^6*(18+(12*L_m)+(0.5*L_m^2));// kJ/hr
+n_max=(L/I_6)*100;// Maximum efficiency in %
+printf('\n(a)The load at which the efficiency of the plant will be maximum=%0.0f MW \n The maximum efficiency=%0.0f percentage',L_m,n_max);
+//(b)
+I_5=5*10^6*(18+(12*L_1)+(0.5*L_1^2));// kJ/hr
+I_7=5*10^6*(18+(12*L_2)+(0.5*L_2^2));// kJ/hr
+dI=I_7-I_5;// Increase in output to the plant per hour in kJ/hr
+L=(L_1+L_2)/2;// MW
+IR=5*10^6*(12+L);// kJ/hr
+Ti=IR*(L_2-L_1);// Total increase in input in kJ/hr
+printf('\n(b)Total increase in input=%0.2e kJ/hr',Ti);
+