From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3811/CH5/EX5.5/Ex5_5.jpg | Bin 0 -> 26033 bytes
 3811/CH5/EX5.5/Ex5_5.sce |  23 +++++++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 3811/CH5/EX5.5/Ex5_5.jpg
 create mode 100644 3811/CH5/EX5.5/Ex5_5.sce

(limited to '3811/CH5/EX5.5')

diff --git a/3811/CH5/EX5.5/Ex5_5.jpg b/3811/CH5/EX5.5/Ex5_5.jpg
new file mode 100644
index 000000000..3c4c474bd
Binary files /dev/null and b/3811/CH5/EX5.5/Ex5_5.jpg differ
diff --git a/3811/CH5/EX5.5/Ex5_5.sce b/3811/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..349d43faa
--- /dev/null
+++ b/3811/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,23 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 5
+//example 5.5
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+P=40;                              //load of an industrial plant in Mw
+pf=.85;                           //power factor lagging
+pfnew=.95                        //To improve new power factor
+V=5000;                         //motor rated voltage in volts
+Xs=5;                            //synchronous reactance in ohm
+c=200;                          //constant value given
+Vt=V/3^(1/2);
+a=acosd(pf);                 //power factor angle of the load in degree
+Ql=P*tand(a);                 //load reactive power in KVAR
+Qtot=P*tand(acosd(pfnew));     //total reactive power for .95 power factor lagging
+disp(Qtot,'The total reactive power for .95 power factor lagging in KVAR is')
+Qm=Qtot-Ql;
+Vt=(V/sqrt(3));
+Ef=((Qm*Xs)/(3*Vt))+Vt;
+If=Ef/c;
+disp(If,'The excitation current required to improve overall power factor of the plant in A is')
-- 
cgit