fartmap.m

利用matlab开发的art、artmap、fuzzy art等程序

function fartmap(tnp,rho,alpha)

figure(1)
aa=trainfam(tnp,rho,alpha);
%save aa;
xx=0:1/tnp:1;
yy=0:1/tnp:1;

clf
h=gcf;
axis([0 1 0 1]);
set(h,'colormap',cool);
set(h,'name','Fuzzy ARTMAP');
image(xx,yy,aa);
view(2);
d=1/(2*tnp);
axis([0-d 1+d 0-d 1+d]);
axis('equal');
axis('manual');
hold;
spiral=spitrain;
spi=size(spiral);
npi=spi(1);
for nsp=1:2:npi
 plot(spiral(nsp,1),spiral(nsp,2),'o')
 plot(spiral(nsp+1,1),spiral(nsp+1,2),'*')
end
axis off
hold;