%example71
%==============
%==============
figure('name','訓練過程圖示','numbertitle','off');

clc
plot(P(1,:),P(2,:),'+r');
title('Input Vectors');
xlabel('p(1)')
ylabel('p(2)')
hold on
w=initc(P,8);
title('Input Vectors/Weitht Vectors');
xlabel('p(1),w(1)')   
ylabel('p(2),w(2)')   
%訓練競爭網絡
pause
clc
df=25;
me=str2num(epoch);
lr=str2num(rate); 
tp=[df me lr]
w=trainc(w,P,tp);

A=simuc(P,w);