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

E.2 Funzione che simula l’evoluzione della
rete con Sensor-Fusion con criterio FigliEquispaziati,
scelta della radice secondo il
criterio UniformitáFlusso e TempoInteradice
fisso.
function [T,K] = UniformitaFlussoMessaggiFigliEquispaziati
(TempoInterRadice,Mg,tempo,alfa,beta)
dim = size(Mg);
xOTTIMA = zeros (dim(1,1),1);
JOTTIMA = 0;
JOTTIMALivelloMinimo = 0;
A = zeros(dim(1,1),1);
radiceprec = zeros(dim(1,1));
radiceprec(1,1) = 1;
[valoreJ,posrad,F] = RadiceFigliEquispaziati (xOTTIMA(:,1)
,Mg,A,JOTTIMA,alfa,beta,radiceprec);
xOTTIMA(:,2) = F * ones(dim(1,1),1);
radice = zeros(dim(1,1),1);
radice(posrad,1) = 1;
radicefut = radice;
A = xOTTIMA(:,2)+ (eye(dim(1,1)) - Phi(radice))*ones(dim(1,1),1)
+ (alfa * eye(dim(1,1)) + (beta - alfa) * Phi(radiceprec))
* (xOTTIMA(:,1) + ones(dim(1,1),1));
W = A - 1/(dim(1,1)) * ones(1,dim(1,1))* A * ones(dim(1,1),1);
JOTTIMA(1,1) = W’ * W;
z = 0;
for i = 2:tempo
z = z + 1;
if (z == TempoInterRadice)
[valoreJ,posrad,F] = RadiceFigliEquispaziati (xOTTIMA(:,i),
Mg,A,JOTTIMA((i-1),1),alfa,beta,radiceprec);
z = 0;
radicefut = zeros(dim(1,1),1);
radicefut(posrad,1) = 1;
end
radiceprec = radice;
radice = radicefut;
59