summaryrefslogtreecommitdiff
path: root/3793/CH13/EX13.4/exp_13_4.sce
blob: 722bc29018b9a983caa8ae98e6222f4827cbe4c5 (plain)
1
2
3
4
5
6
7
8
9
10
clear;
clc;
a=[complex(0,4.8) complex(0,4);complex(0,4) complex(0,4.24)];
b=[complex(0,5.337) complex(0,5.2407);complex(0,5.2407) complex(0,5.3148)];
wa=inv(a);
wb=inv(b);
mprintf("Ward eqiwalents for power system A is");
disp(wa);
mprintf("Ward equivalent for power system B is");
    disp(wb);