clc
clear
a=xlsread（‘C:\Users\Administrator\Desktop\yy.xls‘‘A1:A5‘）;
n=length（a）;
c=eye（n）;
for?i=1:n-1;%每個點與鄰居之間一定有連線
c（ii+1）=1;
end
for?i=1:n;%求與一個點可視的點的個數(shù)
????for?j=i+2:n;
?????for?k=i+1:j-1;
???????if?（a（j）-a（k））/（j-k）>（