summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.40
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.40
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.40')
-rwxr-xr-x503/CH8/EX8.40/ch8_40.sci24
1 files changed, 24 insertions, 0 deletions
diff --git a/503/CH8/EX8.40/ch8_40.sci b/503/CH8/EX8.40/ch8_40.sci
new file mode 100755
index 000000000..7503244aa
--- /dev/null
+++ b/503/CH8/EX8.40/ch8_40.sci
@@ -0,0 +1,24 @@
+//to determine m/c and pf
+
+clc;
+j=sqrt(-1);
+P=230*10^6;
+V=22000;
+pf=1;
+Ia=P/(sqrt(3)*V*pf);
+Vt=V/sqrt(3);
+Xs=1.2;
+Ef=Vt+j*Xs*Ia;
+//if Ef is inc by 30%
+Ef=1.3*abs(Ef);
+
+dl=asind((P/3)*Xs/(Ef*Vt));
+Ia=((Ef*complex(cosd(dl),sind(dl)))-Vt)/(j*Xs);
+disp(abs(Ia),'m/c current(A)');
+disp(cosd(atand(imag(Ia)/real(Ia))),'pf');
+
+P=275*10^6;
+dl=asind((P/3)*Xs/(Ef*Vt));
+Ia=((Ef*complex(cosd(dl),sind(dl)))-Vt)/(j*Xs);
+disp(abs(Ia),'m/c current(A)');
+disp(cosd(atand(imag(Ia)/real(Ia))),'pf');