//CHAPTER 7- SINGLE PHASE TRANSFORMER
//Example 1

clc;
disp("CHAPTER 7");
disp("EXAMPLE 1");

//VARIABLE INITIALIZATION
I_0=10;                        //no load current in Amperes
pf=0.25;                       //power factor
v1=400;                        //in Volts
f=50;                          //in Hertz

//SOLUTION

//solution (a)
//magnetizing component
//Iphi=I0.sin theta
theta=acos(pf);                 //taking value of theta from the given power factor
I_phi=I_0*sin(theta);         
disp(sprintf("(a) The magnetizing component of no load current is %.2f A",I_phi));

//solution (b)
//iron loss
//Pc=V1.Ic
//Ic=I0.cos theta & also Ic=I0.pf as pf=cos theta
p_c=v1*I_0*pf;
disp(sprintf("(b) The iron loss is %d W",p_c));

//solution (c)
N1=500;                     // number of turns in primary given
phi_m=v1/(sqrt(2)*%pi*f*N1);
disp(sprintf("(c) The maximum value of flux in the core is %.2f mWb",phi_m*1000));

//END