summaryrefslogtreecommitdiff
path: root/3745/CH1/EX1.42/Ex1_42.sce
blob: 05a205f74bde7287910528312de446e39a11f8b6 (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
// Ex 42 Page 386

clc;clear;close;
// Given
V1=250;//V
V2=150;//V
Vs1=200;//V
Load1=5;//kW
pf1=0.8;//lagging
Load2=2;//kW
pf2=1;//unity
Vs2=100;//V

I1=Load1*1000/V1/pf1;//A
t1_ratio=V1/Vs1;//
Ip1=I1*t1_ratio;//A at 0.8 pf (current drawn by primary)

I2=Load2*1000/Vs2/pf2;//A
t2_ratio=Vs2/V2;//
Ip2=I2*t2_ratio;//A at 0.8 pf (current drawn by primary)

Ipx=Ip1*pf1+Ip2;//A
Ipy=Ip1*sqrt(1-pf1**2);//A
I3=sqrt(Ipx**2+Ipy**2);//A
printf("Current drawn by the transformer=%.2f A",I3)
pf=Ipx/I3;//power factor
printf("\n power factor = %.1f lagging",pf)