1 files changed, 35 insertions, 0 deletions
diff --git a/1445/CH7/EX7.21/ch7_ex_21.sce b/1445/CH7/EX7.21/ch7_ex_21.sce
new file mode 100644
index 000000000..62f944d87
--- /dev/null
+++ b/1445/CH7/EX7.21/ch7_ex_21.sce
@@ -0,0 +1,35 @@
+//CHAPTER 7- SINGLE PHASE TRANSFORMER
+//Example 21
+
+disp("CHAPTER 7");
+disp("EXAMPLE 21");
+
+//VARIABLE INITIALIZATION
+va=5000;                            //apparent power
+v1=250;                             //primary voltage in Volts
+v2=125;                             //secondary voltage in Volts
+R1=0.2;
+X1=0.75;
+R2=0.05;
+X2=0.2;
+pf=0.8;                             //leading
+
+//SOLUTION  
+R_e2=(v2/v1)^2*R1+R2;
+X_e2=(v2/v1)^2*X1+X2;
+I1=va/v1;
+I2=va/v2;
+//
+//at full load leading
+phi=acos(pf);
+%reg=(I2*R_e2*pf-I2*X_e2*sin(phi))*100/v2; 
+disp("SOLUTION (i)");
+disp(sprintf("The percent regulation at full load is %f",%reg));
+//
+//%R=(E2-V2).100/E2
+V2=v2-%reg*v2/100;
+disp("SOLUTION (ii)");
+disp(sprintf("The secondary terminal at full load is %f V",V2));
+disp(" "); 
+// 
+//END