Leader (and sub Leader) Election per uniformare e ... - Automatica

z = 0;
for i = 2:tempo
messinvio = (eye(dim(1,1))-Phi(radicesucc)) * ((eye(dim(1,1))-
Phi(radiceatt))*xOTTIMA(:,(i-1)) + ones(dim(1,1),1));
A = A + xOTTIMA(:,(i-1)) + messinvio + ones(dim(1,1),1);
z = z + 1;
if (z == TempoInterRadice)
[valoreJ,posrad,F] = RadiceFigliEquispaziati (xOTTIMA(:,i),
Mg,A,radicesucc);
end
% Trovo il numero di livelli dell’albero
v = F * ones(dim(1,1),1); % Gli elementi nulli del vettore
% v corrispondono alle foglie
v = ones(dim(1,1),1) - v;
s = 0;
while (norm(v) > 0)
s = s + 1;
v = F * v;
end
%Alla fine delle iterazioni s rappresenta il
%numero di livelli dell’albero
TempoInterRadice = s;
z = 0;
radiceatt = radicesucc;
radicesucc = zeros(dim(1,1),1);
radicesucc(posrad,1) = 1;
xOTTIMA(:,(i+1)) = F * ((eye(dim(1,1))-Phi(radiceatt))*
xOTTIMA(:,i) + ones(dim(1,1),1));
messinvio = (eye(dim(1,1))-Phi(radicesucc)) * ((eye(dim(1,1))-
Phi(radiceatt))*xOTTIMA(:,i) + ones(dim(1,1),1));
Somma(:,i) = A + xOTTIMA(:,i) + messinvio + ones(dim(1,1),1)
+ xOTTIMA(:,(i+1));
W = Somma(:,i) - 1/(dim(1,1)) * ones(1,dim(1,1))* Somma(:,i)
* ones(dim(1,1),1);
JOTTIMA(i,1) = W’ * W;
end
K = JOTTIMA; X = xOTTIMA; T = Somma;
53