2 files changed, 33 insertions, 0 deletions
diff --git a/3802/CH9/EX9.7/Ex9_7.jpg b/3802/CH9/EX9.7/Ex9_7.jpg
new file mode 100644
index 000000000..bc5f30ff9
--- /dev/null
+++ b/3802/CH9/EX9.7/Ex9_7.jpg
diff --git a/3802/CH9/EX9.7/Ex9_7.sce b/3802/CH9/EX9.7/Ex9_7.sce
new file mode 100644
index 000000000..2e9cf9898
--- /dev/null
+++ b/3802/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,33 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex9_7.sce.
+
+clc;
+clear;
+//input data are taken from example 9.5
+V=1+%i*0;
+Xd=1.0;
+Xq=0.6;
+pf=0.8;
+theta=acosd(pf);
+Ia1=pf-%i*sind(acosd(pf));
+Ia=1.0;               //phase magnitude of Ia
+
+printf("\n   (a)")
+//lagging power factor
+tan_del=(Ia*Xq*cosd(theta))/(V+(Ia*Xq*sind(theta)));
+del=atand(real(tan_del));
+Ef_dash=((V+(Ia*Xq*sind(theta)))^2+(Ia*Xq*cosd(theta))^2)^(1/2);
+Ef=real(Ef_dash)+(Ia*sind(theta+del)*(Xd-Xq));
+reg=((Ef-V)/1.0)*100;
+printf("\n  Voltage Regulation for 0.8 lagging power factor=%d percentage \n",reg)
+
+printf("\n   (b)")
+tan_del=(Ia*Xq*cosd(theta))/(V-(Ia*Xq*sind(theta)));
+del=atand(real(tan_del));
+Ef=((V-(Ia*Xq*sind(theta)))^2+(Ia*Xq*cosd(theta))^2)^(1/2);
+reg=((Ef-V)/1.0)*100;
+printf("\n  Voltage Regulation for 0.8 leading power factor=%2.0f percentage",reg)