function vysecovy_graf
x=[5,7,6,2];
pie(x,[1,1,1,1],{'mleko','voda','pivo','vino'})
pause(1)
doSouboru;
a=zeSouboru;
graf(a);
end
function doSouboru
x=round(rand(1,4)*10);
f=fopen('cisla.txt','w');
for n=1:length(x)
    fprintf(f,'%d\n',x(n));
end
fclose(f);
end
function a=zeSouboru
f=fopen('cisla.txt','r');
a=fscanf(f,'%d');
fclose(f);
end
function graf(a)
subplot(1,2,1)
pie(a)
legend('mleko','voda','pivo','vino')
subplot(1,2,2)
pie(a,[1,1,0,0],{'mleko','voda','pivo','vino'})
end
