Удалить элементы, которые встречаются более одного раза

x = randint(1,20,[-3 3]); % массив случайных чисел
for a = unique(x) % перебираем все уникальные элементы
  if sum(x==a)>1 % если число более 1 раза
    x(x==a) = []; % удаляем все числа
  end
end

clear all
clc
 
x = randint(1,10,[-3 3])
x = x(:); % делаем столбец, ибо это важно
a = unique(x)' % уникальные элементы - вектор строка
u = log(exp(x)*exp(-a)) % вычитаем поэлементно искомые числа
% i-й столбец равен x-a(i)
M = abs(u) <= 1e-10 % там где разность практически нулевая
a % тображаем для наглядности вектор уникальных элементов
N = sum(M) % и их количество в массиве
x( any(M(:,N>1),2) ) = [] % удаляем повторки

a = unique(x)
 
for k=1:size(a,2)
   for i=1:size(x,2)
      if x(i) == a(k);
         y(i) = a(k);
      else
         y(i)=0;
      end
   end
end

x = randint(1,20,[-3 3])
for a = unique(x)
  if sum(x==a)==1
    x(x==a) = 0;
  end
end
x

%x = randint(1,10,[-5 5]);
x = [-1 -5 -3 5 -4 4 0 5 -5 -1]
pe = true;
for a = unique(x)
  if sum(x==a) > 1
      if pe == false
          x(x==a) = [];
      end;
      pe = false;
  end
end
x

a = unique(x)

[c,i,j] = unique(x);
Q = x(sort(i));