1 files changed, 38 insertions, 36 deletions
diff --git a/503/CH8/EX8.42/ch8_42.sci b/503/CH8/EX8.42/ch8_42.sci
index 711c23065..b1bb0c317 100755
--- a/503/CH8/EX8.42/ch8_42.sci
+++ b/503/CH8/EX8.42/ch8_42.sci
@@ -1,36 +1,38 @@
-//to caculate generator current,pf, real power,ecitation emf
-
-clc;
-r=500*10^6;
-V=22000;
-Ia=r/(sqrt(3)*V);disp(Ia,'generator current(A)');
-Vt=V/sqrt(3);
-Zb=Vt/Ia;
-MVA_b=500;
-MW_b=500;
-Xsg=1.57;
-Xb=.4;
-Xb=Xb/Zb;
-
-rr=250;
-rr=rr/MVA_b;
-Vb=1;
-Vt=1;
-Ia=.5;
-phi=asind(Xb*Ia/2);
-pf=cosd(phi);disp(pf,'pf');
-Pe=rr*pf;disp(Pe,'real power(pu)');
-Eg=Vt+j*Xsg*rr**complex(cosd(-phi),sind(-phi));
-Egg=abs(Eg)*V;disp(Egg,'excitation emf(V)');
-
-
-rr=500;
-rr=rr/MVA_b;
-Vb=1;
-Vt=1;
-Ia=1;
-phi=asind(Xb*Ia/2);
-pf=cosd(phi);disp(pf,'pf');
-Pe=rr*pf;disp(Pe,'real power(pu)');
-Eg=Vt+j*Xsg*rr*complex(cosd(-phi),sind(-phi));
-Egg=abs(Eg)*V;disp(Egg,'excitation emf(V)');
+//to caculate generator current,pf, real power,ecitation emf
+
+clc;
+clear
+j = %i;
+r=500*10^6;
+V=22000;
+Ia=r/(sqrt(3)*V);disp(Ia,'generator current(A)');
+Vt=V/sqrt(3);
+Zb=Vt/Ia;
+MVA_b=500;
+MW_b=500;
+Xsg=1.57;
+Xb=.4;
+Xb=Xb/Zb;
+
+rr=250;
+rr=rr/MVA_b;
+Vb=1;
+Vt=1;
+Ia=.5;
+phi=asind(Xb*Ia/2);
+pf=cosd(phi);disp(pf,'pf');
+Pe=rr*pf;disp(Pe,'real power(pu)');
+Eg=Vt+j*Xsg*rr**complex(cosd(-phi),sind(-phi));
+Egg=abs(Eg)*V;disp(Egg,'excitation emf(V)');
+
+
+rr=500;
+rr=rr/MVA_b;
+Vb=1;
+Vt=1;
+Ia=1;
+phi=asind(Xb*Ia/2);
+pf=cosd(phi);disp(pf,'pf');
+Pe=rr*pf;disp(Pe,'real power(pu)');
+Eg=Vt+j*Xsg*rr*complex(cosd(-phi),sind(-phi));
+Egg=abs(Eg)*V;disp(Egg,'excitation emf(V)');
+\ No newline at end of file