Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- A=[-1,-1,-1,-1,-1,-1;
- -1,-1,1,1,-1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,-1,-1,-1,-1,-1];
- B=[-1,-1,-1,-1,-1,-1;
- -1,1,1,1,-1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,1,-1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,1,-1,-1;
- -1,-1,-1,-1,-1,-1];
- C=[-1,-1,-1,-1,-1,-1;
- -1,-1,1,1,1,-1;
- -1,1,-1,-1,-1,-1;
- -1,1,-1,-1,-1,-1;
- -1,1,-1,-1,-1,-1;
- -1,1,-1,-1,-1,-1;
- -1,-1,1,1,1,-1;
- -1,-1,-1,-1,-1,-1];
- D=[-1,-1,-1,-1,-1,-1;
- -1,1,1,1,-1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,1,-1,-1;
- -1,-1,-1,-1,-1,-1];
- figure(1)
- subplot(2,2,1)
- hintonw(A)
- subplot(2,2,2)
- hintonw(B)
- subplot(2,2,3)
- hintonw(C)
- subplot(2,2,4)
- hintonw(D)
- A1 = reshape(A,48,1);
- B1 = reshape(B,48,1);
- C1 = reshape(C,48,1);
- D1 = reshape(D,48,1);
- T=[A1,B1,C1,D1];
- %whos('T')
- net = newhop(T);
- %whos('net')
- disp('Rozmiar macierzy wag: ')
- disp(net.LW)
- disp('Zawartość macierzy wag: ')
- disp(net.LW{1})
- disp('Rozmiar wektora wsp. progowych: ')
- disp(net.b)
- disp('Zawartość wektora wsp. progowych: ')
- disp(net.b{1})
- %Druga część zadania
- %stopniowo zwiększać ilość zakłuceń
- AZ=[-1,-1,-1,-1,-1,-1;
- -1,1,1,1,-1,-1;
- -1,-1,1,-1,1,-1;
- -1,1,1,1,1,1;
- -1,1,1,1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,-1,1,-1;
- -1,-1,-1,1,-1,-1];
- BZ=[-1,-1,-1,-1,-1,-1;
- -1,1,1,1,-1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,-1,-1,-1;
- 1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,1,-1,-1;
- -1,-1,-1,-1,-1,-1];
- CZ=[-1,-1,-1,-1,-1,1;
- 1,-1,1,-1,1,-1;
- -1,1,1,-1,1,-1;
- -1,1,-1,-1,-1,-1;
- -1,1,-1,-1,-1,-1;
- -1,1,-1,-1,-1,-1;
- -1,-1,1,1,1,-1;
- -1,-1,-1,-1,-1,-1];
- DZ=[-1,-1,-1,-1,-1,-1;
- -1,1,1,1,-1,-1;
- -1,1,-1,1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,-1,-1,1,-1;
- -1,1,1,1,-1,-1;
- -1,-1,-1,-1,-1,-1];
- figure(2)
- subplot(2,2,1)
- hintonw(AZ)
- subplot(2,2,2)
- hintonw(BZ)
- subplot(2,2,3)
- hintonw(CZ)
- subplot(2,2,4)
- hintonw(DZ)
- AZ1 = reshape(AZ,48,1);
- BZ1 = reshape(BZ,48,1);
- CZ1 = reshape(CZ,48,1);
- DZ1 = reshape(DZ,48,1);
- TZ=[AZ1,BZ1,CZ1,DZ1];
- LS=4; %stany poczatkowe
- KS=200; %kroki zmieniac do ststow
- Y=sim(net,{LS KS},{},{TZ});
- disp(Y)
- disp(Y{1})
- disp(Y{2})
- figure(2)
- for i=1:LS
- subplot(2,2,i)
- hintonw(reshape(TZ(:,i),8,6))
- end
- pause(1)
- for j=1:KS
- for k=1:LS
- subplot(2,2,k)
- Z=reshape(Y{j}(:,k),8,6)
- hintonw(Z)
- %E(k)=(-1/2)*mpower(Y,T)*W*Y(k)-mpower(b,T)*Y(k)
- %disp(E)
- end
- pause(1)
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement