1 files changed, 30 insertions, 0 deletions
diff --git a/1319/CH5/EX5.10/5_10.sce b/1319/CH5/EX5.10/5_10.sce
new file mode 100644
index 000000000..a9aef1fc1
--- /dev/null
+++ b/1319/CH5/EX5.10/5_10.sce
@@ -0,0 +1,30 @@
+//Calculate efficiency on unity pf at different cases
+
+clc;
+clear;
+
+Pi=25*(10^3);
+
+E1=2000;
+E2=200;
+
+Pil=350;
+Pc=400;
+
+// Full load efficiency
+
+nfl=Pi*100/(Pi+Pil+Pc);
+
+//Half Load efficiency
+
+Pihl=Pi/2;// Half Load
+nhl=Pihl*100/(Pihl+Pil+(Pc/4));
+
+// Load at which maximum efficiency occurs
+
+Piml=sqrt(Pil/Pc)*Pi;
+Pcm=Pc*((Piml/Pi)^2);
+
+printf('a) Efficiency at full load = %f percent \n',nfl)
+printf('b) Efficiency at half load = %f percent \n',nhl)
+printf('c) Maximum Efficiency will occur at %f KVA and the losses are each %d watt. \n',(Piml/1000),Pcm)