clc
clear
load（‘cloud.txt‘‘-ascii‘）
A=cloud;
x=cloud（:1）;
y=cloud（:2）;
z=cloud（:3）;
scatter（xy）
[Eindex]=sortrows（A1）;
m=size（x）;
x1=E（:1）;
y1=E（:2）;
w=[x1y1];
for?i=1:m/32
????eval（[‘a(chǎn)‘num2str（i）‘=w（32*i-31:32*i:）;‘]）
end
F=[];
for?i=1:m/32
eval（[‘[nk]=max（a‘num2str（i）‘（:2））;‘]）
eval（[‘F=[F;a‘num2str（i）‘（k:）];‘]）
end
[Bindex]=sortrows（A2）;
m=size（x）;
x1=B（:1）;
y1=B（:2）;
w=[x1y1];
for?i=1:m/16
????eval（[‘a(chǎn)‘