% skrypt OCR

disp('To jest skrypt inicjalizujacy program OCR, przy uzyciu sieci neuronowej');
disp('  ');
help myOCRmlp;

L_ukryt=28; % liczba neuronow w warstwie ukrytej
L_wzorow=26; % liczba rozpoznawanych wzorow (znakow)
D_wys=7; % wysokosc macierzy "obrazka jednego znaku"
D_dlug=5; % dlugosc  macierzy "obrazka jednego znaku"
net = mlp((D_wys*D_dlug), L_ukryt, L_wzorow, 'logistic',0.00008);
disp('wcisnij cos by kontynuowac');
pause;
wczy='n';
wczy=input('czy chcesz zaladowac gotowa siec Y/N? ','s');
if (wczy=='y'| wczy=='Y' | wczy=='T' | wczy=='t')
    disp('Teraz bede potrzebowal prawidlowej struktury sieci.');
    disp('Siec musi miec 35 wejsc, 28 neuronow w warstwie ukrytej, i 26 wyjsc.');
    disp('Siec musi byc spakowana do struktury net.');
    wczy=input('Czy na pewno chcesz zaladowac gotowa siec Y/N? ','s');
end

if (wczy=='y'| wczy=='Y' | wczy=='T' | wczy=='t')
    sciezka=input('Podaj sciezke do pliku: ','s');
    load(sciezka);
    myOCRmlp(1);    
else
    disp('Gdyby program dzialal dluzej niz 30-40 minut,');
    disp('prawdopodobnie, nauka jest niestabilna, i nalezy zatrzymac program'); 
    disp('wcisnij cos by kontynuowac');
    pause;
    disp('uruchamiam program myOCRmlp');
    [net]=myOCRmlp(0);
end
