1 files changed, 18 insertions, 0 deletions
diff --git a/147/CH14/EX14.30/Example14_30.sce b/147/CH14/EX14.30/Example14_30.sce
new file mode 100644
index 000000000..9e8186c40
--- /dev/null
+++ b/147/CH14/EX14.30/Example14_30.sce
@@ -0,0 +1,18 @@
+//Rated Power Pr, Synchronous reactance Xs, Armature resistance Ra
+//Power factor Pf
+close();
+clear;
+clc;
+Pr = 10000;//VA
+V = 230;//V
+Xs = 1.2;//ohm per phase
+Ra = 0.5;//ohm
+Pf = 0.8;//lagging
+Vt = V/sqrt(3);
+theta = acos(Pf);
+Ia = (Pr/3)/Vt;
+Zs = Ra + %i*Xs;
+theta = atan(imag(Zs),real(Zs));
+phi = acos(-polar(Ia*Zs)^2/(2*polar(Ia*Zs)*Vt)) - theta;
+Pf2 = cos(phi);
+mprintf('Power factor for zero regulation = %0.3f leading',Pf2);