function Y = den(X,d) % Удаление d% наименьших элементов 
LX =length(X);
B = floor(LX*(d/100));
[SX,SI] = sort(abs(X),'ascend');
  for i=1:B; 
      X(SI(i))=0 ;
  end  
Y = X;