summaryrefslogtreecommitdiff
path: root/1445/CH7/EX7.9/ch7_ex_9.sce
blob: 6796c2715be546c4eff610bb48325fa5ab9ae52c (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
28
//CHAPTER 7- SINGLE PHASE TRANSFORMER
//Example 9

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

//VARIABLE INITIALIZATION 
v1=11000;                       //primary voltage in Volts
v2=400;                         //secondary voltage in Volts
Io=1;                           //primary current
pf=0.24                         //power factor lagging

//SOLUTION
Ic=Io*pf;
disp("SOLUTION (a)");
disp(sprintf("The value of core loss current is %f Amp",Ic));
//
Iphi=sqrt(Io^2-Ic^2);
disp("SOLUTION (b)");
disp(sprintf("The value of core loss current is %f Amp",Iphi));
//
IronLoss=v1*pf;
disp("SOLUTION (c)");
disp(sprintf("The iron loss  is %f W",IronLoss));
disp(" "); 
// 
//END