summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.43
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.43
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.43')
-rwxr-xr-x503/CH8/EX8.43/ch8_43.sci32
1 files changed, 32 insertions, 0 deletions
diff --git a/503/CH8/EX8.43/ch8_43.sci b/503/CH8/EX8.43/ch8_43.sci
new file mode 100755
index 000000000..690ce6807
--- /dev/null
+++ b/503/CH8/EX8.43/ch8_43.sci
@@ -0,0 +1,32 @@
+//to clculate pf angle, torque angle,equivalent capicitor and inductor value
+
+clc;
+of1=250;
+scr=.52; //short ckt ratio
+of2=of1/scr;
+r=25*10^6;
+V=13000;
+Ia=r/(sqrt(3)*V);
+Isc=Ia*of1/of2;
+Xs=V/(sqrt(3)*Isc);
+Xb=V/(sqrt(3)*Ia);
+Xsadj=Xs/Xb;
+
+f=50;
+If=200;
+Ef=V*If/of1;
+Vt=V/sqrt(3);
+Ia=(Vt-Ef/sqrt(3))/Xs;
+dl=0;disp(dl,'torque angle(deg)');
+pf=90;disp(pf,'pf angle(deg)');
+L=(V/(sqrt(3)*Ia))/(2*%pi*f);
+disp(L,'inductor value(H)');
+
+If=300;
+Eff=V*If/of1;
+Vt=Ef/sqrt(3);
+Ia=(Eff/sqrt(3)-Vt)/Xs;
+dl=0;disp(dl,'torque angle(deg)');
+pf=90;disp(pf,'pf angle(deg)');
+c=1/((V/(Ia))*(2*%pi*f));
+disp(c,'capacitor value(F)');