da_ssgo.m

来自「王小平《遗传算法——理论、应用与软件实现》随书光盘」· M 代码 · 共 23 行

%
% da_ssgo.m
%
% Startus the clustering process
%
nclust=str2num(get(text2,'string'));
delete(text1);
delete(text2);
delete(but1);
drawnow;
text1=da_text(w1,200,300,200,15,'Clustering data. Please wait...',[1 1 1],[0 0 0]);

[c nx ny]=clustie(x,y,nclust);
data=[nx ny];
[D L]=size(data);
include_var=ones(1,L);
output_var=zeros(1,L);
input_var=ones(1,L);

delete(text1);
text1=da_text(w1,260,300,100,15,'Data Modified',[1 1 1],[0 0 1]);