updated the code

3 files changed, 82 insertions, 77 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
diff --git a/503/CH8/EX8.31/ch8_31.sci b/503/CH8/EX8.31/ch8_31.sci
index b5eb73d87..9caece0ba 100755
--- a/503/CH8/EX8.31/ch8_31.sci
+++ b/503/CH8/EX8.31/ch8_31.sci
@@ -1,27 +1,28 @@
-//to calculate synchronising power and torque coeff/deg mech shift

-

-clc;

-V=11000;

-Vt=V/sqrt(3);

-P=6*10^6;

-Ia=P/(sqrt(3)*V);

-ohm_b=Vt/Ia;

-Xs=.5;

-Xss=Xs*ohm_b;

-

-f=50;

-P=8;

-n_s=(120*f/P)*(2*%pi/60);

-

-Ef=Vt;

-dl=0;

-Psyn=(%pi/15)*(Ef*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');

-Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');

-

-pf=.8;

-phi=acosd(pf);

-Ef=Vt+j*Ia*Xss*complex(cosd(-phi),sind(-phi));

-dl=atand(imag(Ef)/real(Ef));

-Psyn=(%pi/15)*(abs(Ef)*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');

-Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');

-

+//to calculate synchronising power and torque coeff/deg mech shift
+
+clc;
+clear
+j = %i;
+V=11000;
+Vt=V/sqrt(3);
+P=6*10^6;
+Ia=P/(sqrt(3)*V);
+ohm_b=Vt/Ia;
+Xs=.5;
+Xss=Xs*ohm_b;
+
+f=50;
+P=8;
+n_s=(120*f/P)*(2*%pi/60);
+
+Ef=Vt;
+dl=0;
+Psyn=(%pi/15)*(Ef*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');
+Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');
+
+pf=.8;
+phi=acosd(pf);
+Ef=Vt+j*Ia*Xss*complex(cosd(-phi),sind(-phi));
+dl=atand(imag(Ef)/real(Ef));
+Psyn=(%pi/15)*(abs(Ef)*Vt/Xss)*cosd(dl);disp(Psyn,'synchronising power(W)');
+Tsyn=Psyn/n_s;disp(Tsyn,'torque coeff(Nm)');
\ No newline at end of file
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