summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.15
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.15
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.15')
-rwxr-xr-x503/CH8/EX8.15/ch8_15.sci27
1 files changed, 27 insertions, 0 deletions
diff --git a/503/CH8/EX8.15/ch8_15.sci b/503/CH8/EX8.15/ch8_15.sci
new file mode 100755
index 000000000..05fffee4c
--- /dev/null
+++ b/503/CH8/EX8.15/ch8_15.sci
@@ -0,0 +1,27 @@
+//find the excitation emf,mech power developed,pf
+
+clc;
+j=sqrt(-1);
+V=6600;
+Vt=V/sqrt(3);
+r=4*10^6;
+Ia=r/(sqrt(3)*V);
+Xs=4.8;
+//Vt^2+Ef^2-2*Vt*Efcosd(dl)=(Ia*Xs)^2
+//after solving
+//Ef^2-7.16*Ef+11.69=0;
+function [x1,x2]=quad(a,b,c)
+ d=sqrt(b^2-4*a*c);
+ x1=(-b+d)/(2*a);
+ x2=(-b-d)/(2*a);
+endfunction
+[Ef1 Ef2]=quad(1,-7.16,11.69);
+dl=20;
+disp(Ef1,'excitation(kV)');
+Pm=3*3.81*Ef1*sind(dl)/Xs;disp(Pm,'power developed(MW)');
+pf1=Pm*10^6/(sqrt(3)*V*Ia);disp(pf1,'pf1');
+
+disp(Ef2,'excitation(kV)');
+Pm=3*3.81*Ef2*sind(dl)/Xs;disp(Pm,'power developed(MW)');
+pf2=Pm*10^6/(sqrt(3)*V*Ia);disp(pf2,'pf2');
+