%%oriznuti spektra
function [ampfrange]=specrange(freqf,ampf,fmin,fmax)

matrix=[freqf,ampf];
matrix(matrix(:,1)<fmin,2)=[0];   %% vynulovane hodnoty frekvence mensi nez fmin
matrix(matrix(:,1)>fmax,2)=[0];   %% vynulovane hodnoty frekvence vetsi nez fmax

ampfrange=matrix(:,2);
end