summaryrefslogtreecommitdiff
path: root/3760/CH9/EX9.5/ExB_5.sce
blob: 0261d15827db561df00028a1a9714176d47f9576 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
zs=10+15*%i; // star connected load per phase
zd=12-15*%i; // delta connected load per phase
vl=400; // supply line voltage 
disp('case a');
// converting delta connected load to star connected load
zd=zd/3; 
vp=vl/sqrt(3);
i1=vp/zs; // line current in star connected load
i2=vp/zd; // line current in delta connected load
i=abs(i1+i2);
printf('Total line current is %f A\n',i);
an=atand(imag(i1+i2),real(i1+i2)); 
pf=cosd(an);
P=(sqrt(3)*vl*i*pf);
pr=sqrt(3)*vl*i*sqrt(1-pf^2);
printf('Power factor is %f leading\n',pf);
printf('Total power is %f W\n',P);
printf('Total reactve power is %f VAr',pr);