summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.18
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.18
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.18')
-rwxr-xr-x503/CH8/EX8.18/ch8_18.sci15
1 files changed, 15 insertions, 0 deletions
diff --git a/503/CH8/EX8.18/ch8_18.sci b/503/CH8/EX8.18/ch8_18.sci
new file mode 100755
index 000000000..e0a0b31c6
--- /dev/null
+++ b/503/CH8/EX8.18/ch8_18.sci
@@ -0,0 +1,15 @@
+//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;
+disp(ang,'change in power angle(deg)'); \ No newline at end of file