mathematicaの50X6リストからx、z、vx、vzの列リストを選択する方法

Question

1行に6つの要素を含むデータをロードしています：(x,y,z,vx,vy,vz)。

data = Import["http://pastebin.com/raw/6Werdnpf"]; 
vecdata = Partition[#, 3] & /@ DeleteDuplicates[data]; 

私はx-y, y-z, x-z平面上のすべての投影を取るしようとしていますが、Map以内にそれを使用しているとき、私はTakeまたはPart引数を渡すことはできません。

これは、コンポーネント（x、y）と（VX、VY）がかかります：Map[Most, vecdata, {2}]

をしかし、私はまた、あなたが

Map[Most, vecdata, {2}] 

を書いたMap[Take, vecdata, {2}]

Answer 1

使用y-z、x-zを取りたいですこれは、以下の式と等価です。

Map[Part[#, {1, 2}] &, vecdata, {2}] 

Map[{#[[1]], #[[2]]} &, vecdata, {2}] 

Apply[{#1, #2} &, vecdata, {2}] 

あなたに必要な出力は次のようなことを行うために、コードの読みやすさのために、時には

xy = Map[Most, vecdata, {2}] 

yz = Map[Rest, vecdata, {2}] 

xz = Apply[{#1, #3} &, vecdata, {2}] 

Answer 2

その良いで達成することができます：

extractxz[{x_, y_, z_, vx_, vy_, vz_} ] := {x, z} 
extractxz /@ data