summaryrefslogtreecommitdiff
path: root/2384/CH9/EX9.4/ex9_4.sce
blob: 61ec6e1405d545b6a7d525115024435571fa3e81 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// Exa 9.4
clc;
clear;
close;
format('v',6)
// Given data
Rating = 25;// in KVA
f = 50;// in Hz
Io = 15;// in A
Wo = 350;// in W
Vo = 230;// in V
// No load power factor
phi_o = acosd(Wo/(Vo*Io));
// active component of current 
Ic = Io*cosd(phi_o);// in A
disp(Ic,"The active component of current in A is");
// magnetizing component of current 
Im = Io*sind(phi_o);// in A
disp(Im,"The magnetizing component of current in A is");