Mathematica是否具有相当于Matlab“唯一”函数的函数?

使用Mathematica可以轻松地构建类似的功能 Position[] . 例如,给定一个数字列表,您可以执行以下操作:

In[1] := A = {1, 5, 2, 3, 7, 3, 2, 8, 6, 5, 9, 2, 1};
In[2] := {#, Flatten[Position[A, #]]} & /@ Union[A]
Out[2]:= {{1, {1, 13}}, {2, {3, 7, 12}}, {3, {4, 6}}, {5, {2, 10}}, {6, {9}}, {7, {5}}, {8, {8}}, {9, {11}}}

获取唯一元素的列表以及它们在原始列表中出现的位置的索引。 精确复制matlab的功能 Unique() 特别是为了

[b,m,n] = unique(A)

你需要

b = Union[A];
m = Last[Position[A, #]] & /@ b // Flatten;
n = Position[b, #] & /@ A // Flatten;

它现在提供了所需的行为

In[1] := A[[#]] & /@ m == b
Out[1]:= True

In[2] := b[[#]] & /@ n == A
Out[2]:= True

尝试 Length[Union[x]] . If x=[1,0,1,1,1] ,然后你会 Length[Union[x]] = 2 .

有一个简单的方法:

a={1,2,3,4,5,5,5,4,3,2}

  {1,2,3,4,5,5,5,4,3,2}

uniques = DeleteDuplicates[a]

  {1,2,3,4,5}