diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3760/CH5/EX5.4 | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-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')
| -rw-r--r-- | 3760/CH5/EX5.4/Ex5_4.sce | 17 |
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);
|