A = magic(6);
fid = fopen('demo.txt','w+');
fprintf('kurzor po otevreni souboru %3d\n', ftell(fid));
fprintf(fid, '%g ', A);
fprintf('kurzor po zapisu A         %3d\n', ftell(fid));
fseek(fid, 0, 'bof');  % 'bof' / 'cof' / 'eof'
fprintf('kurzor po volani fseek     %3d\n',ftell(fid));
B = fscanf(fid, '%g', size(A));
if A == B
    fprintf('cteni/zapis do souboru      OK\n');
else
    fprintf('chyba pri zapisu/cteni matice\n');
end
fclose(fid);