1 files changed, 16 insertions, 14 deletions
diff --git a/503/CH8/EX8.18/ch8_18.sci b/503/CH8/EX8.18/ch8_18.sci
index e0a0b31c6..1ea82ae77 100755
--- a/503/CH8/EX8.18/ch8_18.sci
+++ b/503/CH8/EX8.18/ch8_18.sci
@@ -1,15 +1,17 @@
-//find the change in the poweer angle;
-
-clc;
-Pe=4000;
-V=400';
-pf=.8;dl=acosd(pf);
-Ia=Pe/(sqrt(3)*V*pf);
-Vt=V/sqrt(3);
-Xs=25;
-Ef=Vt+j*Ia*complex(cosd(-dl),sind(-dl))*Xs;
-a=atand(imag(Ef)/real(Ef));
-
-dl=asind((Pe/3)*Xs/(Vt*abs(Ef)));
-ang=dl+a;
+//find the change in the poweer angle;
+
+clc;
+clear 
+j = %i
+Pe=4000;
+V=400';
+pf=.8;dl=acosd(pf);
+Ia=Pe/(sqrt(3)*V*pf);
+Vt=V/sqrt(3);
+Xs=25;
+Ef=Vt+j*Ia*complex(cosd(-dl),sind(-dl))*Xs;
+a=atand(imag(Ef)/real(Ef));
+
+dl=asind((Pe/3)*Xs/(Vt*abs(Ef)));
+ang=dl+a;
 disp(ang,'change in power angle(deg)');
 \ No newline at end of file