データリストの重複ポイントの選択

Question

Mathematicaのデータリストの要素を削除しようとしていますが、SelectとUnionの仕組みがわかりません。例えば、私は次のリストに

list = {{0.10,0.20},{1.10,0.20},{0.70,0.80},{0.20,1.10}, 
    {1.20,1.20},{0.12,0.18},{0.68,0.76}} 

を持っているだけ0.05の距離半径内のポイントが重複していることを考慮(0,1)x(0,1)の要素を必要とします。この例では、

list1 ={{0.10,0.20},{0.70,0.80}} 

要素は等価クラスを表していますが、私は気にしません。イムは、次の操作を行う：

list1 = Select[list, 0 < Part[#,1] <1 &];Select[list,0 < Part[#,2] <1 &] 

ウィッヒは(0,1)x(0,1)でポイントを与えますが、私は、このような

Union[list1, SameTest -> (Abs[#1-#2] < 0.05 &)] 

として、Unionを使用しようとする場合、私はスロットエラーを取得します。

誰かに私にそれをきれいに説明する方法を教えてもらえますか？

DeleteDuplicates[list1, Abs[Part[#1, 1] - Part[#2, 1]] < 10^-6 &] 

を使用して

--- EDIT ---

は、トリックを行いますが、私はリストのリストで動作カント私はなぜだろうか。

Answer 1

これにはいくつかの方法があります。あなたの要素が特定の間隔であることが必要なので、それを行うための1つの方法は、最もきれいだと思う、IntervalMemberQとSelectを使用することです。例えば

、(0,1)x(0,1)でそれらの点にごリストを絞り込むために：第二に

list01 = Select[list, And @@ IntervalMemberQ[Interval[{0, 1}], #] &] 

Out[1]= {{0.1, 0.2}, {0.7, 0.8}, {0.12, 0.18}, {0.68, 0.76}} 

、このタスクに最適なツールである、重複を排除DeleteDuplicatesを使用します。あなたはIntervalMemberQを使用して同じテストを使用することができます。

DeleteDuplicates[list01, 
And @@ IntervalMemberQ[Interval[{0, 0.5}], Abs[#1 - #2]] &] 

Out[2]= {{0.1, 0.2}, {0.7, 0.8}}