From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 503/CH8/EX8.18/ch8_18.sci | 30 ++++++++++---------
 503/CH8/EX8.31/ch8_31.sci | 55 ++++++++++++++++++-----------------
 503/CH8/EX8.42/ch8_42.sci | 74 ++++++++++++++++++++++++-----------------------
 3 files changed, 82 insertions(+), 77 deletions(-)

(limited to '503/CH8')

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
-- 
cgit