summaryrefslogtreecommitdiff
path: root/2441/CH5/EX5.23/Ex5_23.sce
blob: 067acca6db09723481705589bca7b83c93c37838 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example 5.23
clc;clear;close;
format('v',7);
Z=1.5+%i*2.5;//ohm
V=11;//kV
P=20;//MW
pf=0.8;//power factor
theta=acosd(pf);
I=P*1000/sqrt(3)/V/pf;//
I=I*expm(%i*-theta*%pi/180);//A
Vdrop=I*Z;//V
Vboost=Vdrop;//V
disp(Vboost,"Voltage boost needed at station A(V)");