summaryrefslogtreecommitdiff
path: root/3760/CH5/EX5.55/Ex5_55.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.55/Ex5_55.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.55/Ex5_55.sce')
-rw-r--r--3760/CH5/EX5.55/Ex5_55.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/3760/CH5/EX5.55/Ex5_55.sce b/3760/CH5/EX5.55/Ex5_55.sce
new file mode 100644
index 000000000..2c0d0c89b
--- /dev/null
+++ b/3760/CH5/EX5.55/Ex5_55.sce
@@ -0,0 +1,14 @@
+clc;
+p=30*10^6; // rated power of alternator
+v=11000; // rated voltage of alternator
+zs=0.005+0.70*%i; // p.u synchronous reactance
+Ef=1.5; // p.u. excitation EMF
+ia=1; // p.u. armature current
+vt=1; // p.u. terminal voltage
+t1=Ef^2-(real(zs)*ia)^2-(imag(zs)*ia)^2-1;
+t2=sqrt((2*ia*real(zs))^2+(2*ia*imag(zs))^2);
+t3=atand((2*ia*real(zs))/(2*ia*imag(zs))); // terms needed to find out power factor
+pf=cosd(asind(t1/t2)-t3);
+printf('Power factor is %f lagging\n',pf);
+de=acosd((ia*abs(zs)^2-Ef^2-vt^2)/(-2*Ef*vt));
+printf('Load angle is %f degrees',de);