function [ x y] = GetFuncByImage(imname, rptname)
im = imread(imname);
try
im = rgb2gray(im);
catch
end
%%
[m indx] = min(im);%черный график - меньшие значения
[N M] = size(im);
x = 1:M;
y = N-indx;%переворачиваем
plot(x,y);
%%
xlswrite(rptname, num2cell([ x' y']));%сохраняем данные в XLS