1 files changed, 50 insertions, 0 deletions
diff --git a/1445/CH7/EX7.14/ch7_ex_14.sce b/1445/CH7/EX7.14/ch7_ex_14.sce
new file mode 100644
index 000000000..3771b28b0
--- /dev/null
+++ b/1445/CH7/EX7.14/ch7_ex_14.sce
@@ -0,0 +1,50 @@
+//CHAPTER 7- SINGLE PHASE TRANSFORMER
+//Example 14
+
+disp("CHAPTER 7");
+disp("EXAMPLE 14");
+
+//VARIABLE INITIALIZATION
+va=22000;                       //apparent power
+v1=1100;                        //primary voltage in Volts
+v2=110;                         //secondary voltage in Volts
+R1=2;                           //in Ohms
+R2=0.02;                        //in Ohms
+X1=5;                           //in Ohms
+X2=0.045;                       //in Ohms 
+
+//SOLUTION
+//N1byN2=v1/v2;
+
+R_dash_2=R2*((v1/v2)^2);
+X_dash_2=X2*((v1/v2)^2);
+disp("SOLUTION (a)");
+disp(sprintf("The equivalent resistance of secondary referred to primary is %fΩ",R_dash_2));
+disp(sprintf("The equivalent reactance of secondary referred to primary is %f Ω",X_dash_2));
+//
+R_e1=R_dash_2+R1;
+X_e1=X_dash_2+X1;
+disp("SOLUTION (b)");
+disp(sprintf("The total resistance referred to primary is %f Ω",R_e1));
+disp(sprintf("The total reactance referred to primary is %f Ω",X_e1));
+//
+R_dash_1=R1*((v2/v1)^2);
+X_dash_1=X1*((v2/v1)^2);
+disp("SOLUTION (c)");
+disp(sprintf("The equivalent resistance of secondary referred to secondary is %f Ω",R_dash_1));
+disp(sprintf("The equivalent reactance of secondary referred to secondary is %f Ω",X_dash_1));
+//
+R_e2=R_dash_1+R2;
+X_e2=X_dash_1+X2;
+disp("SOLUTION (d)");
+disp(sprintf("The total resistance referred to secondary is %f Ω",R_e2));
+disp(sprintf("The total reactance referred to secondary is %f Ω",X_e2));
+//
+I1=va/v1;
+I2=va/v2;
+copperLoss=R1*I1^2+R2*I2^2;
+disp("SOLUTION (e)");
+disp(sprintf("The total copper loss is %f W",copperLoss));
+disp(" "); 
+// 
+//END