1 files changed, 15 insertions, 0 deletions
diff --git a/3760/CH5/EX5.18/Ex5_18.sce b/3760/CH5/EX5.18/Ex5_18.sce
new file mode 100644
index 000000000..146b06fc9
--- /dev/null
+++ b/3760/CH5/EX5.18/Ex5_18.sce
@@ -0,0 +1,15 @@
+clc;
+v=400; // rated voltage of motor
+pi=5472; // input power 
+np=3; // number of phases
+xs=10; // synchronous reactance
+ef=v; // excitation voltage
+vt=v/sqrt(3); // rated per phase voltage
+de=round(asind((pi*xs*np)/(np*v^2)));
+printf('Load angle is %f degrees\n',de);
+// from fig. 5.53, vt=ef(excitation voltage per phase) armature resistance=0 
+pf=cosd(de/2);
+printf('Power factor is %f lagging\n',pf);
+// from fig. 5.53
+ia=floor((2*vt*sind(de/2))/xs); 
+printf('Armature current is %f A',ia);