summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.45/ch8_45.sci
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.45/ch8_45.sci
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.45/ch8_45.sci')
-rwxr-xr-x503/CH8/EX8.45/ch8_45.sci19
1 files changed, 19 insertions, 0 deletions
diff --git a/503/CH8/EX8.45/ch8_45.sci b/503/CH8/EX8.45/ch8_45.sci
new file mode 100755
index 000000000..5cb03b56a
--- /dev/null
+++ b/503/CH8/EX8.45/ch8_45.sci
@@ -0,0 +1,19 @@
+//find motor pf
+
+clc;
+j=sqrt(-1);
+V=6600;
+Vt=V/sqrt(3);
+pf=.8;
+phi=acosd(pf);
+P=800000;
+Ia=P/(sqrt(3)*V*pf);
+Zs=2+20*j;
+Ef=Vt-Zs*Ia*complex(cosd(phi)+sind(phi));
+Pip=1200*10^3;
+theta=atand(imag(Zs)/real(Zs));
+dl=acosd((real(Ef)^2*cosd(theta)/abs(Zs)-P/3)/(real(Ef)*abs(Ef)/abs(Zs)))-theta;
+
+Ia=(real(Ef)-abs(Ef)*complex(cosd(-dl),sind(-dl)))/Zs;
+phi=atand(imag(Ia)/real(Ia));
+disp(cosd(phi),'pf'); \ No newline at end of file