function p_label=p_axis(f,n)
% Разметка оси периодов (верхней) с метками,
% соответствующими меткам оси частот (нижней)
%
% Вызов: p_label=p_axis(f,n);
%
% Входные параметры:
%    f - вектор частот, по которому размечаетс? ось частот;
%    n - количество меток на исходном графике;
%
% На выходе в вектор p_label записываютс? значени? периодов.

%
% Хомутов С.Ю.,  07.08.96
%
if nargin ~= 2
   error('!!! Должны быть указаны аргументы !!!')
end
%
axis; tmp=axis;
yy=ones(n,1); yy=yy*tmp(4);   % метки оси выше максимального Y
dx=(tmp(2)-tmp(1))/(n-1);     % приращение меток по X
p_label=ones(n,1);
for i=1:n
   p_label(i)=tmp(1)+(i-1)*dx;     % положение меток по оси X
end
for i=1:n
   if p_label(i)==0
      text(p_label(i),yy(i),'inf');
   else
      text(p_label(i),yy(i),num2str(1/p_label(i)));
   end
end
