diff options
Diffstat (limited to '2441/CH6/EX6.2/Ex6_2.sce')
| -rwxr-xr-x | 2441/CH6/EX6.2/Ex6_2.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/2441/CH6/EX6.2/Ex6_2.sce b/2441/CH6/EX6.2/Ex6_2.sce new file mode 100755 index 000000000..b9a676dfc --- /dev/null +++ b/2441/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,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)");
|