3 The 6bus power system in literature known as Ward and Hall
Solution
% Program to form Admittance Bus Formation without Transformer Tap setting
num = 6; % IEEE-6 bus systems..
linedata = linedata(num); % Calling \"linedata.m\" for Line Data...
fb = linedata(:,1);
tb = linedata(:,2);
r = linedata(:,3);
x = linedata(:,4);
b = linedata(:,5);
a = linedata(:,6);
z = r + 1i*x;
y = 1./z;
b = 1i*b;
nbus = max(max(fb),max(tb));
nbranch = length(fb);
Y = zeros(nbus,nbus);
% Formation of the Off Diagonal Elements %
for k=1:nbranch
Y(fb(k),tb(k)) = Y(fb(k),tb(k))-y(k)/a(k);
Y(tb(k),fb(k)) = Y(fb(k),tb(k));
end
% Formation of Diagonal Elements %
for m =1:nbus
for n =1:nbranch
if fb(n) == m
Y(m,m) = Y(m,m) + y(n)/(a(n)^2) + b(n);
elseif tb(n) == m
Y(m,m) = Y(m,m) + y(n) + b(n);
end
end
end
Y; % Bus Admittance Matrix%
Line data
% | From | To | R | X | B/2 | X\'mer | %
% | Bus | Bus | pu | pu | pu | TAP (a) |%
linedat = [1 4 0.080 0.370 0.00028 0
2 3 0.723 1.050 0 0
2 5 0.282 0.640 0 0
3 4 0.0 0.266 0 0
5 6 0.0 0.428 0 0
6 4 0.97 0.0407 0.0003 0
6 1 0.123 0.158 0.00028 0];
