summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.22
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.22
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.22')
-rwxr-xr-x503/CH8/EX8.22/ch8_22.sci21
1 files changed, 21 insertions, 0 deletions
diff --git a/503/CH8/EX8.22/ch8_22.sci b/503/CH8/EX8.22/ch8_22.sci
new file mode 100755
index 000000000..c3b0c4c13
--- /dev/null
+++ b/503/CH8/EX8.22/ch8_22.sci
@@ -0,0 +1,21 @@
+//to find armature current,power factor and power ip
+
+clc;
+j=sqrt(-1);
+Vt=3300/sqrt(3);
+Ef=4270/sqrt(3);
+Pein=600000/3;
+Zs=.8+j*5.5;
+a=90-atand(imag(Zs)/real(Zs));
+dl=asind((Pein+real(Zs)*(Ef/abs(Zs))^2)/((Vt*Ef/abs(Zs))))-a;
+disp(dl,'power angle');
+b=Vt-Ef*complex(cosd(-dl),sind(-dl));
+Ia=b/Zs;
+disp(abs(Ia),'armature current(A)');
+phi=atand(imag(Ia)/real(Ia));
+disp(cosd(phi),'pf');
+
+Peinn=sqrt(3)*3300*abs(Ia)*cosd(phi);
+disp(Peinn,'power ip(W)');
+loss=Peinn-Pein*3;
+disp(loss,'ohmic loss(W)');