Earthquake/mymean.m

function out=mymean(x,range)
%% By L_DelOff
% среднее + сортировка
y=[];
for i=1:length(x)
    if (abs(x(i))<range)&&~isnan(x(i))
        y(end+1)=x(i);
    end
end
out=mean(y);
end