1

マトリックスに保存された点群の座標があります。他のポイントから分離されているポイントはほとんどありません。それらを削除する方法を知っている人はいますか？ポイントは写真でご紹介。私は数学の専門家ではないので、助けていただければ幸いです:(私は新しいユーザーであるため、写真をアップロードできませんでしたが、下部のポイントは、削除したい4つの点が散らばったデータセットを示しています.

.......
 .........
  .........
  ..........
  ………………
  …………。
  .....
  ...
4

1 に答える 1

1

ここにいくつかのコードの希望があなたに役立つでしょう：

data = Table[{Random[], Random[]}, {100}];

DynamicModule[{p = {0.5, 0.5}, linePts = {}, p1 = {0., 0.}, 
  pts = data}, 
 Manipulate[
  Graphics[{Dynamic[Point[pts]], Locator[Dynamic[p]], 
    Line[Dynamic[If[p != p1, AppendTo[linePts, p]; p1 = p]; 
      linePts]]}], 
  Row[{Button["updata", 
     pts = Select[pts, ! Graphics`Mesh`InPolygonQ[linePts, #] &]], 
    Button["copy points", Print[Flatten[Position[data, #] & /@ pts]]],
     Button["Reset", linePts = {}; pts = data;]}]]]

プロットに領域を描画してから、プロットから削除することができます。「更新」ボタンは残りのポイントを表示し、「ポイントのコピー」は残りのポイントの位置をコピーし、「リセット」は元のプロットにリセットされます。

ここに画像の説明を入力してください

于 2013-02-24T18:33:57.700 に答える