if SN(i).E<=0 % if cluster heads energy depletes with transmission
dead_nodes=dead_nodes +1;
operating_nodes= operating_nodes - 1;
SN(i).cond=0;
SN(i).rop=rnd;
end
else
Dis2 = inf(1,n);
for i2=1:n
if (SN(i2).cond==1) && (SN(i2).role==1)
Dis2(i2) = SN(i2).dts^2 + ((SN(i2).x-SN(i).x)^2+(SN(i2).y-SN(i).y)^2);
end
end
[~,i2]=min(Dis2);
dts1 =((SN(i2).x-SN(i).x)^2+(SN(i2).y-SN(i).y)^2);
dts2 = SN(i2).dts^2;
ETx= (Eelec+EDA)*k + Eamp * k * SN(i).dts^2;
SN(i).E=SN(i).E - ETx;
ERx=(Eelec+EDA)*k;
SN(i2).E=SN(i2).E - ERx;
if SN(i).E<=0 % if cluster heads energy depletes with transmission
dead_nodes=dead_nodes +1;
operating_nodes= operating_nodes - 1;
SN(i).cond=0;
SN(i).rop=rnd;
end
if SN(i2).E<=0 % if cluster heads energy depletes with transmission
dead_nodes=dead_nodes +1;
operating_nodes= operating_nodes - 1;
SN(i2).cond=0;
SN(i2).rop=rnd;
end
end
end
end
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/38888.html
標籤：網絡協議與配置