2 files changed, 52 insertions, 0 deletions
diff --git a/431/CH5/EX5.13/EX5_13.sce b/431/CH5/EX5.13/EX5_13.sce
new file mode 100755
index 000000000..64452974a
--- /dev/null
+++ b/431/CH5/EX5.13/EX5_13.sce
@@ -0,0 +1,37 @@
+//chapter 5
+//example 5.13
+//page 442
+clear;
+clc;
+disp("example 5.13");
+printf("\n");
+KVA=1200;       //output power
+printf("output power=%d\n",KVA)
+V_l=3300;       //line voltage
+R_a=0.25;       //armature resistance
+I_l=(KVA*1000)/(sqrt(3)*V_l);    //line current
+//for star connected I_l=I_a
+I_a=I_l;
+V_p=V_l/sqrt(3);
+printf("V per phase= %dV\n",V_p)
+//field current of 40A produces short circuit current of 200A and open circuit emf 1100
+v_l=1100;
+i_s=200;
+Z_s= v_l/(sqrt(3)*i_s);     //synchronous impedence
+printf("Synchronous impedance,Zs=%f ohm\n",Z_s)
+X_s=sqrt(Z_s^2-R_a^2);      //synchronous reactance
+disp("(a)for 0.8 lagging power facor");
+pf=0.8;
+phi=acosd(pf);
+E=sqrt((V_p*cosd(phi)+I_a*R_a)^2+(V_p*sind(phi)+I_a*X_s)^2)
+printf("induced emf,E=%f V\n",E);
+R=((E-V_p)*100)/V_p;
+printf("regulation=%f percent\n\n",R);
+clear pf;
+pf=0.8;
+phi=acosd(pf);
+disp("(b)For leading power factor load")
+E=sqrt((V_p*cosd(phi)+I_a*R_a)^2+(V_p*sind(phi)-I_a*X_s)^2)
+printf("induced emf,E= %f V\n",E);
+R=((E-V_p)*100)/V_p;
+printf("regulation=%f percent",R);
+\ No newline at end of file
diff --git a/431/CH5/EX5.13/resultEX5_13.txt b/431/CH5/EX5.13/resultEX5_13.txt
new file mode 100755
index 000000000..65f91c966
--- /dev/null
+++ b/431/CH5/EX5.13/resultEX5_13.txt
@@ -0,0 +1,15 @@
+
+ example 5.13   
+
+output power=1200
+V per phase= 1905V
+Synchronous impedance,Zs=3.175426 ohm
+ 
+ (a)for 0.8 lagging power facor   
+induced emf,E=2398.732590 V
+regulation=25.900810 percent
+
+ 
+ (b)For leading power factor load   
+induced emf,E= 1647.716860 V
+regulation=-13.517293 percent 
+\ No newline at end of file