summaryrefslogtreecommitdiff
path: root/3760/CH5/EX5.4/Ex5_4.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3760/CH5/EX5.4/Ex5_4.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3760/CH5/EX5.4/Ex5_4.sce')
-rw-r--r--3760/CH5/EX5.4/Ex5_4.sce17
1 files changed, 17 insertions, 0 deletions
diff --git a/3760/CH5/EX5.4/Ex5_4.sce b/3760/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..0ee46a4ec
--- /dev/null
+++ b/3760/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,17 @@
+clc;
+v=3300; // rated voltage of motor
+zs=0.4+%i*5; // synchronous impedance per phase
+E=4000; // excitation EMF
+pi=1000; // input power
+vp=v/sqrt(3); // per phase rated voltage
+ep=E/sqrt(3); // per phase excitation EMF
+al=atand(real(zs),imag(zs));
+t1=(pi*1000)/3;
+t2=(vp^2/abs(zs)^2)*real(zs);
+t3=abs(zs)/(vp*ep); // terms needed to evaluate load angle
+di=asind((t1-t2)*t3)+al; // load angle
+ia=(sqrt(vp^2+ep^2-2*ep*vp*cosd(di)))/abs(zs);
+pf=(pi*1000)/(3*ia*vp);
+// here ep*cos(di)+ia*ra*pf> vp; hence leading power factor
+printf('Line current is %f A\n',ia);
+printf('Power factor is %f leading',pf);