summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.42
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:38:01 +0530
committerprashantsinalkar2017-10-10 12:38:01 +0530
commitf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (patch)
treeeb72842d800ac1233e9d890e020eac5fd41b0b1b /503/CH8/EX8.42
parent7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (diff)
downloadScilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.gz
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.bz2
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.zip
updated the code
Diffstat (limited to '503/CH8/EX8.42')
-rwxr-xr-x503/CH8/EX8.42/ch8_42.sci74
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