论文仿真实验无错误的LEACH改进算法源代码

写论文中，若用典型的分簇算法，必须要用的对比试验，经典的LEACH算法，b本人改进了一下，绝对正确的Leach改进代码！

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                      %
% SEP: A Stable Election Protocol for clustered                        %
%      heterogeneous wireless sensor networks                          %
%                                                                      %
% （c） Georgios Smaragdakis                                             %
% WING group Computer Science Department Boston University           %
%                                                                      %
% You can find full documentation and related information at:          %
% http://csr.bu.edu/sep                                                %
%                                                                      % 
% To report your comment or any bug please send e-mail to:             %
% gsmaragd@cs.bu.edu                                                   %
%                                                                      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                      %
% This is the LEACH [1] code we have used.                             %
% The same code can be used for FAIR if m=1                            %
%                                                                      %
% [1] W.R.Heinzelman A.P.Chandrakasan and H.Balakrishnan             %
%     “An application-specific protocol architecture for wireless      % 
%      microsensor networks“                                           % 
%     IEEE Transactions on Wireless Communications 1（4）:660-6702002  %
%                                                                      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clear;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PARAMETERS %%%%%%%%%%%%%%%%%%%%%%%%%%%%

%Field Dimensions - x and y maximum （in meters）
xm = 200;
ym = 200;

%x and y Coordinates of the Sink
sink.x =100;
sink.y = 250;

%Number of Nodes in the field
n = 200

%Optimal Election Probability of a node
%to become cluster head
p=0.05;
packetLength = 2000;%数据包长度 
ctrPacketLength = 100;%控制包长度
%Energy Model （all values in Joules）
%Initial Energy 
Eo = 0.5;
%Eelec=Etx=Erx
ETX=50*0.000000001;
ERX=50*0.000000001;
%Transmit Amplifier types
Efs=10*0.000000000001;
Emp=0.0013*0.000000000001;
%Data Aggregation Energy
EDA=5*0.000000001;

%Values for Hetereogeneity
%Percentage of nodes than are advanced
m=1;
%\alpha
a=1;
INFINITY = 999999999999999;
%maximum number of rounds
rmax=2000
mmm=0;
%%%%%%%%%%%%%%%%%%%%%%%%% END OF PARAMETERS %%%%%%%%%%%%%%%%%%%%%%%%

%Computation of do
do=sqrt（Efs/Emp）;

%Creation of the random Sensor Network
figure（1）;
for i=1:1:n
    S（i）.xd=rand（11）*xm;%坐标
    XR（i）=S（i）.xd;
    S（i）.yd=rand（11）*ym;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      10707  2012-05-25 23:41  leach.m

----------- ---------  ---------- -----  ----

                10707                    1