summaryrefslogtreecommitdiff
path: root/2441/CH6/EX6.2/Ex6_2.sce
blob: b9a676dfcd296b0bfd5261564d08a6d38578ef2a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//exa 6.2
clc;clear;close;
format('v',6);
kV=220;//kV
Z=0.8+%i*0.2;//pu
V=1;//V(Voltage at load terminal)
X=0.2+0.05;//pu(line and transformer reactance)
P=real(Z);//pu
Q=imag(Z);//pu
BaseMVA=100;//MVA
BasekV=220;//kV
I=sqrt((P^2+Q^2)/V^2);//pu
Vb=V+I*(X*expm(%i*%pi/2));//pu(Voltage at 200 kV bus)
fi_p=atand(imag(Vb),real(Vb));//degree(power angle)
Vb=abs(Vb)*kV;//kV(Voltage at 200 kV bus)
pf=cosd(fi_p);//power factor at 220 kV bus
disp(Vb,"Voltage at 220 kV bus (kV)");
format('v',5);
disp(pf,"Power factor at 220 kV bus (lagging)");