summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.29
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /503/CH8/EX8.29
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '503/CH8/EX8.29')
-rwxr-xr-x503/CH8/EX8.29/ch8_29.sci24
1 files changed, 24 insertions, 0 deletions
diff --git a/503/CH8/EX8.29/ch8_29.sci b/503/CH8/EX8.29/ch8_29.sci
new file mode 100755
index 000000000..5d7e22060
--- /dev/null
+++ b/503/CH8/EX8.29/ch8_29.sci
@@ -0,0 +1,24 @@
+//to calculate power angle,excitation emf,field current
+
+clc;
+j=sqrt(-1);
+MVA_b=300;
+kV_b=22;
+
+Pe=250/MVA_b;
+pf=.85;
+Vt=1;
+Ia=Pe/(pf*Vt);
+phi=acosd(pf);
+Iaa=Ia*complex(cosd(-phi),sind(-phi));
+Xq=1.16;
+Xd=1.93;
+Ef=Vt+j*Iaa*Xq;
+dl=atand(imag(Ef)/real(Ef));disp(dl,'power angle');
+w=phi+dl;
+Id=abs(Iaa)*sind(w);
+Ef=abs(Ef)+Id*(Xd-Xq);
+disp(Ef*kV_b,'excitation emf(V)');
+
+If=338;
+If=If*Ef/1;disp(If,'field current(A)'); \ No newline at end of file