1 files changed, 11 insertions, 0 deletions
diff --git a/3760/CH5/EX5.8/Ex5_8.sce b/3760/CH5/EX5.8/Ex5_8.sce
new file mode 100644
index 000000000..f9282a7a3
--- /dev/null
+++ b/3760/CH5/EX5.8/Ex5_8.sce
@@ -0,0 +1,11 @@
+clc;
+ef=1.2; // ratio of excitation voltage to rated per phase voltage
+i=0.7; // ratio of armature current to rated current
+r=0.01; // percentage resistance of motor
+x=0.5; //  percentage reactance of motor
+// as per the expression given in book
+t1=ef^2-(r*i)^2-(x*i)^2-1;
+t2=sqrt((2*i*r)^2+(2*i*x)^2);
+t3=atand((2*i*r)/(2*i*x)); // terms needed to find out power factor
+pf=cosd(asind(t1/t2)-t3); 
+printf('Power factor is %f lagging',pf);