z1 solve neuron.M, WAT, SEMESTR VIII, Metody i zadania rozpoznawania wzorców
[ Pobierz całość w formacie PDF ]
%Demonstracja wyznaczania prostych aproksymujacych%w zadaniu klasyfikacji%Metoda analityczna i numeryczna - gradientowaosie=[-10 10 -20 20];u1=[-4 0];u2=[5 2];u3=[2 -5];u1=[1 u1];u2=[1 u2];u3=[1 u3];U=[u1;u2;u3];z=[1;1;-1];disp('Rozwišzanie analityczne')%det(U'*U)w=inv(U'*U)*U'*zwp=w;r=U*w-z;disp('Błšd aproksymacji')r=r'*rfigure(1);clf;subplot(2,2,1);newplot;axis(osie);hold on;N=length(z);for licz=1:Nif z(licz)==1plot(U(licz,2),U(licz,3),'bo');elseif z(licz)==-1plot(U(licz,2),U(licz,3),'gs');elseplot(U(licz,2),U(licz,3),'kx');end;end;pausekolor=['b-'];wrys=[w(1)-1;w(2:3)];rprosta(wrys,osie,kolor);kolor=['g-'];wrys=[w(1)+1;w(2:3)];rprosta(wrys,osie,kolor);kolor=['m-'];wrys=w;rprosta(wrys,osie,kolor);title('Rozwiazanie analityczne');hold off;pausesubplot(2,2,2);newplot;hold on;plot(U(1:2,2),U(1:2,3),'bo');plot(U(3,2),U(3,3),'gs');wrys=w;rprosta(wrys,osie,'m-');rr=[];disp('Rozwišzanie metodš gradientowš')disp('Obserwuj proces obliczeń na wykresach, liczba kroków')NN=20%wartoć poczštkowa wektora wagw=[1;-1;-1];w=10*[rand-0.5;rand-0.5;rand-0.5]weta=0.02;osi=[1 NN -100 20];for k=1:NN;kdeltaJ=U'*(U*w-z);w=w-weta*deltaJr=U*w-z;r=r'*r;rr=[rr 20*log10(r)];subplot(2,2,2);kolor=['r-'];wrys=w;rprosta(wrys,osie,'r-');title('Historia');hold on;subplot(2,2,3);newplot;hold on;plot(U(1:2,2),U(1:2,3),'bo');plot(U(3,2),U(3,3),'gs');wrys=w;kolor=['r-'];wrys=w;rprosta(wrys,osie,'r-');title('Rozwiazanie aktualne');hold off;grid on;subplot(2,2,4);plot(1:k,rr);title('Błšd w [dB]');axis(osi);grid on;disp('Pauza - kliknij')pauseend;subplot(2,2,2);hold off;subplot(2,2,4);hold off;disp('Porównanie wyników: analitycznego i numerycznego')[wp w]
[ Pobierz całość w formacie PDF ]