summaryrefslogtreecommitdiff
path: root/3793/CH8/EX8.4/exp_8_4.sce
blob: d37fbfc7f160f94203071735c89a72860db1d87b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear;
clc;
g1=200;
g2=300;
f=50;
fr=.5;
dl=150;
lg1=g1/(g1+g2)*dl;
lg2=g2/(g1+g2)*dl;
Rg1=-fr/lg1;
Rg2=-fr/lg2;
Rpu1=(fr*g1)/(f*lg1);
Rpu2=(fr*g2)/(f*lg1);
mprintf("Drop for G1 and G2 is Rg1=%.4f Hz/MW and Rg2=%.4f Hz/MW\n",Rg1,Rg2);
mprintf("Drop in pu is Rg1=%.4f pu ad Rg2=%.4f pu",Rpu1,Rpu2);