blob: 44894aaa530b6c48a46b88bf631cf0e3137510c3 (
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
|
//Chapter-2, Example 2.10, Page 2.17
//=============================================================================
clc
clear
//INPUT DATA
Io=12;//Primary no load current in A
cosqo=0.25;//No load power factor
I2=220;//Secondary load current in A
cosq2=0.8;//Secondary power factor
K=(1/5);//Turn ratio
//CALCULATIONS
qo=acosd(cosqo);//phase angle in degree
q2=acosd(cosq2);//Phase angle in degree
Ioc=complex((Io*cosqo),(Io*sind(qo)));//Io value in complex form
I2i=complex((K*I2*cosq2),(K*I2*sind(q2)));//I2i value in complex form
I1=(Ioc+I2i);//Primary current in A
X=sqrt((real(I1))^2+(imag(I1))^2);//Primary current in A
Y=cosd(atand(imag(I1)/real(I1)));//Power factor
//OUTPUT
mprintf('Primary current is %3.1f A and Primary power factor is %3.2f',X,Y)
//=================================END OF PROGRAM==============================
|
