summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.11
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.11
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.11')
-rwxr-xr-x503/CH8/EX8.11/ch8_11.sci20
1 files changed, 20 insertions, 0 deletions
diff --git a/503/CH8/EX8.11/ch8_11.sci b/503/CH8/EX8.11/ch8_11.sci
new file mode 100755
index 000000000..e1c1c4155
--- /dev/null
+++ b/503/CH8/EX8.11/ch8_11.sci
@@ -0,0 +1,20 @@
+//to calculate net power op,eff,line current and pf
+
+clc;
+j=sqrt(-1);
+Zs=(1/3)*(.3+j*6);
+phi=atand(imag(Zs)/real(Zs));
+Vt=400/sqrt(3);
+Ef=600/sqrt(3);
+a=sqrt(Vt^2+Ef^2-2*Vt*Ef*cosd(phi));
+Ia=a/abs(Zs);disp(Ia,'line current(A)');
+B=acosd((Vt^2+a^2-Ef^2)/(2*Vt*a));
+
+phi=90-(90-atand(imag(Zs)/real(Zs)))-B;disp(cosd(phi),'pf');
+Pein=Vt*Ia*cosd(phi);
+Ra=.1;
+b=Ia^2*Ra;
+loss=2400;
+Pmout=Pein-loss/3-b;disp(Pmout,'net power op(W)');
+eff=Pmout/Pein;
+disp(eff*100,'efficiency(%)'); \ No newline at end of file