function?s?=?costofpegasis（rmax）
sum=0;

for?r=1:1:rmax
%pegasis成chain與BS位置有關
%clear;
PS4=load（‘data‘）;
PS4=PS4.‘;

BSx=50;
BSy=300;

node=length（PS4）;

%按照到BS距離從近到遠的順序放置個節點坐標到PS4矩陣中，PS4（1:）中節點坐標是離BS最近的;
%PS4（i:）表示第i節點，具體是：
%PS4（i1）=x坐標，PS4（i2）=y坐標，PS4（i3）=i表示節點序號
for?i=1:node
????for?j=i:node
????????if?（PS4（i1）-BSx）^2+（PS4（i2）-BSy）^2>（PS4（j1）-BSx）^2+（PS4（j2）-BSy）^2
???????????????s=PS4（i:）;
???????????????PS4（i:）=PS4（j:）;
???????????????PS4（j:）=s;
????????????end
????????end
?????PS4（i3）=i;
?end

?%d（ij）為第i節點到第j節點的距離值
for?i=1:node
????for?j=1:node
???????????????if（i~=j）
?????????????????d（ij）=sqrt（（PS4（i1）-PS4（j1））^2+（PS4（i2）-PS4（j2））^2）;
???????????????else?d（ij）=10^8;
???????????????end
????end
end

%?distance?matrix

%從離BS最遠節

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????3202??2009-05-15?18:04??pegasis\data

?????文件???????2122??2009-05-23?08:58??pegasis\costofpegasis.m

?????文件?????????17??2009-05-24?16:21??pegasis\costofpegasis

?????文件???????2069??2009-05-23?08:53??pegasis\costofpegasis.asv

?????目錄??????????0??2009-05-16?09:34??pegasis

-----------?---------??----------?-----??----

?????????????????7410????????????????????5