1 files changed, 20 insertions, 0 deletions
diff --git a/1445/CH7/EX7.40/ch7_ex_40.sce b/1445/CH7/EX7.40/ch7_ex_40.sce
new file mode 100644
index 000000000..12f74fecc
--- /dev/null
+++ b/1445/CH7/EX7.40/ch7_ex_40.sce
@@ -0,0 +1,20 @@
+//CHAPTER 7- SINGLE PHASE TRANSFORMER
+//Example 40
+
+disp("CHAPTER 7");
+disp("EXAMPLE 40");
+
+//VARIABLE INITIALIZATION
+loss=50;                       //core loss in Watts
+I0=2;                          //no load current in Amperes
+v0=220;                        //induced emf in Volts 
+                             
+//SOLUTION
+pf=loss/(v0*I0);
+I_c=I0*pf;                     //core loss component
+I_phi=I0*sin(acos(pf));        //magnetizing component
+disp(sprintf("The magnetizing component, I_c= %f A, is plotted along x-axis",I_phi));
+disp(sprintf("& the core loss component, I_Φ= %f A, is plotted along y-axis",I_c));
+
+//END  
+