Mathematica函数是否提供了与MATLAB中的unique()
函数等效的结果?我意识到我可以使用Union[]
函数来获取列表的唯一元素,但我想要一些等同于函数的三结果版本的东西,它提供了在输入数组和数组之间映射的索引数组。独特的价值观。
如果没有内置任何内容,是否可以在某处实现该功能?这里有人知道如何构建它吗?
答案 0 :(得分:8)
您可以使用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
答案 1 :(得分:1)
试试Length[Union[x]]
。 If x=[1,0,1,1,1]
,然后您将获得Length[Union[x]] = 2
。
答案 2 :(得分:1)
这是一个简单的方法:
$_SERVER['HTTP_HOST']