diff options
Diffstat (limited to '3811/CH5/EX5.5')
| -rw-r--r-- | 3811/CH5/EX5.5/Ex5_5.jpg | bin | 0 -> 26033 bytes | |||
| -rw-r--r-- | 3811/CH5/EX5.5/Ex5_5.sce | 23 |
2 files changed, 23 insertions, 0 deletions
diff --git a/3811/CH5/EX5.5/Ex5_5.jpg b/3811/CH5/EX5.5/Ex5_5.jpg Binary files differnew file mode 100644 index 000000000..3c4c474bd --- /dev/null +++ b/3811/CH5/EX5.5/Ex5_5.jpg 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')
|
