summaryrefslogtreecommitdiff
path: root/1445/CH7/EX7.13/ch7_ex_13.sce
blob: c217cb56d8f285d22c388ce8af507df4691aa70a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
//CHAPTER 7- SINGLE PHASE TRANSFORMER
//Example 13

disp("CHAPTER 7");
disp("EXAMPLE 13");

//VARIABLE INITIALIZATION 
v1=230;                           //primary voltage in Volts
v2=115;
f=50;                             //Hz
Io=2;                            //in Amp no load current
pf0 =0.28;                       //lagging 
I2=20;                           //
pf2=0.8;                         //lagging

//SOLUTION
//  
phi0=acos(pf0);
phi2=acos(pf2);
I_dash_2=I2*v2/v1;
Ix=Io*sin(phi0)+I_dash_2*sin(phi2);
Iy=Io*cos(phi0)+I_dash_2*cos(phi2);
I1=sqrt(Ix^2+Iy^2);
disp(sprintf("The current taken by primary is %f Amp",I1));
disp(" "); 
// 
//END