1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| clear all
P = [ -0.5 -0.5 +0.3 -0.1; -0.5 +0.5 -0.5 +1.0]; %On définit les coordonnees
T = [1 1 0 0];
figure(1)
plotpv(P,T);
net = newp([-1 1;-1 1],1);
plotpv(P,T);
plotpc(net.IW{1},net.b{1}); %les coordonnées sont zéro
%
figure(2)
net.adaptParam.passes = 5;
net = adapt(net,P,T);
plotpc(net.IW{1},net.b{1}); %l'affichage de la droite ; voir son équation
%
p = [-0.7; 1.2];
a = sim(net,p); % à l'entrée du réseau une autre entrée p
plotpv(p,a); % sortie 0 ou 1 (cercle ou +)
point = findobj(gca,'type','line');
set(point,'Color','red'); % coloriage de la sortie en rouge
%%
hold on;
plotpv(P,T); % affichage de (P,T) et de la droite aussi
plotpc(net.IW{1},net.b{1});
hold off; |
Partager