blob: 6931d9c4adf797ea0461d958af72d7e971bfff01 (
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-2, Example 2.16, Page 2.30
//=============================================================================
clc
clear
//INPUT DATA
N1=400;//Number of turns in the primary
N2=100;//Number of turns in the secondary
Io=4;//No load current in A
qo=0.3;//No load current power factor
I2=120;//Secondary current in A
q2=0.8;//Secondary current power factor
//CALCULATIONS
K=(N2/N1);//Turn ratio
I2i=(K*I2);//Secondary current in A
I2ic=complex((I2i*q2),(I2i*sind(acosd(q2))));//Ixi in complex form
Ioc=complex((Io*qo),(Io*sind(acosd(qo))));//Ixi in complex form
Iic=(I2ic+Ioc);//Primary current in complex form
a1=sqrt((real(Iic))^2+(imag(Iic))^2);
a2=atand(imag(Iic)/real(Iic));
q=cosd(a2);//Phase angle in degree
//OUTPUT
mprintf('Current taken by the primary is %3.2f A and power factor is %3.2f',a1,q)
//=================================END OF PROGRAM==============================
|
