readMNIST.m

function [I,labels,I_test,labels_test] = readMNIST(num)
%===========×èòàåì îáó÷àþùóþ âûáîðêó
path = '.\MNIST\train-images.idx3-ubyte';
fid = fopen(path,'r','b');  %big-endian
magicNum = fread(fid,1,'int32');    %Ìàãè÷åñêîå ÷èñëî
if(magicNum~=2051) 
    display('Error: cant find magic number');
    return;
end
imgNum = fread(fid,1,'int32');  %Êîëè÷åñòâî èçîáðàæåíèé
rowSz = fread(fid,1,'int32');   %Ðàçìåð èçîáðàæåíèÿ ïî âåðòèêàëè
colSz = fread(fid,1,'int32');   %Ðàçìåð èçîáðàæåíèÿ ïî ãîðèçîíòàëè

if(num<imgNum) 
    imgNum=num; 
end

for k=1:imgNum
        I{k} = uint8(fread(fid,[rowSz colSz],'uchar'));
end
fclose(fid);

%============×èòàåì ìåòêè
path = '.\MNIST\train-labels.idx1-ubyte';
fid = fopen(path,'r','b');  % big-endian
magicNum = fread(fid,1,'int32');    %Ìàãè÷åñêîå ÷èñëî
if(magicNum~=2049) 
    display('Error: cant find magic number');
    return;
end
itmNum = fread(fid,1,'int32');  %Êîëè÷åñòâî ìåòîê

if(num<itmNum) 
    itmNum=num; 
end

labels = uint8(fread(fid,itmNum,'uint8'));   %Çàãðóæàåì âñå ìåòêè

fclose(fid);

%============×èòàåì òåñòîâóþ âûáîðêó
path = '.\MNIST\t10k-images.idx';
fid = fopen(path,'r','b');  % big-endian
magicNum = fread(fid,1,'int32');    %Ìàãè÷åñêîå ÷èñëî
if(magicNum~=2051) 
    display('Error: cant find magic number');
    return;
end
imgNum = fread(fid,1,'int32');  %Êîëè÷åñòâî èçîáðàæåíèé
rowSz = fread(fid,1,'int32');   %Ðàçìåð èçîáðàæåíèÿ ïî âåðòèêàëè
colSz = fread(fid,1,'int32');   %Ðàçìåð èçîáðàæåíèÿ ïî ãîðèçîíòàëè

if(num<imgNum) 
    imgNum=num; 
end

for k=1:imgNum
        I_test{k} = uint8(fread(fid,[rowSz colSz],'uchar'));
end
fclose(fid);

%============×èòàåì òåñòîâûå ìåòêè
path = '.\MNIST\t10k-labels.idx1-ubyte';
fid = fopen(path,'r','b');  % big-endian
magicNum = fread(fid,1,'int32');    %Ìàãè÷åñêîå ÷èñëî
if(magicNum~=2049) 
    display('Error: cant find magic number');
    return;
end
itmNum = fread(fid,1,'int32');  %Êîëè÷åñòâî ìåòîê
if(num<itmNum) 
    itmNum=num; 
end
labels_test = uint8(fread(fid,itmNum,'uint8'));   %Çàãðóæàåì âñå ìåòêè

fclose(fid);