summaryrefslogtreecommitdiff
path: root/3793/CH5/EX5.1/exp_5_1.sce
blob: b0ff219b968099074e0db6f2df74426c6b061281 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clear;
clc;
S=250;
V=3330;
r=.25;
x=3.5;
pf=0.8;
i=(S*1000)/(sqrt(3)*V);
Il=i;
Vp=(V/sqrt(3));
z=complex(r,x);
Ia=complex(34.99,-26.24);
E=Vp+(Ia*z);

Vv=sqrt((real(E)^2)+(imag(E)^2));
reg=((Vv-Vp)/Vp)*100;

mprintf("regulation=%f percent",reg);