rec_cifre_hop1.m

Recunoastere cifre Hopfield

load tipare
disp('Se incarca tiparele de antrenament.....');
fig1=figure;
set(fig1,'Position',[200 150 50 50])
imshow(reshape(tipare,10,120)');
truesize(fig1,[200,200]);
title('Imagini originale')
disp('Tiparele de antrenament incarcate si afisate !')
disp(' ')

%creeaza si antreneaza RNA
disp('reteaua se antreneaza...')
net=newhop(tipare);
disp('Reteaua antrenata !')
disp('')

%verificare stabilitate RNA pentru punctele initiale
disp('Se verifica memmorarea tiparelor de antrenament...')
nr_iteratii = 10;
Ai = tipare;
Y = sim(net, nr_iteratii, [] , Ai);

%afiseaza imginile furnizate de RNA
fig2=figure(2);
set(fig2, 'Position' , [500 150 50 50])
imshow(reshape(Y, 10, 120)');
truesize(fig2, [200,200]);
title('Tipare de antrenament memorate')

disp('Tiparele de antrenament afisate. Apasati orice tasta !')
pause
close all

%faza de utilizare a retelei
%se testeaza capacitatea de recunoastere pentru cazul cand tiparele sunt afectate de zgomot

while(1)
    clc
    cifra=input('Introduceti cifra dorita sau "Q" pentru iesire:','s');
    if isletter(cifra) break
    end
    close all
    zgomot=input('Zgomotul dorit [%] : ');
    nr_iteratii=input('Nr. de iteratii : ');
    %s-a definit in prealabil o functie xi = noise2 (xi,zgomot)
    %care contamineaza biti matricii "xi" in proportie de "zgomot [%]"
    %se afiseaza cifra contaminata cu zgomot
    
    cifra_zgomot=reshape(noise2(tipare(:,str2num(cifra)+1),zgomot),10,12)
    fig3=figure;
    set(fig3,'Position',[200 200 50 50])
    imshow(cifra_zgomot')
    truesize(fig3, [200 200]);
    title('Imagine cu zgomot')
    
    %se aplica cifra contaminata la intrarea RNA
    cifra_contaminata=orig(:, str2num(cifra)+1);
    cifra_contaminata=noise2(cifra_contaminata, zgomot);
    Y = sim(net,{1 nr_iteratii}, {}, {cifra_contaminata});
    
    %se afiseaza raspunsul RNA
    fig4=figure;
    set(fig4,'Position', [500 200 50 50])
    imshow(reshape(Y{nr_iteratii},10,12)')
    truesize(fig4, [200, 200]);
    title('Iesire RNA')
end  %end while

close all


disp('Sfarsitul programului !')