181187_ja-JP

liliconcom

すべてのポイント間の距離を測定する

ポイントからの距離が測定値にどのように影響するかを判断して、ポイントの範囲内で最小/最大ポイントを見つけようとしています。

 

添付ファイルでこれを実行しようとしましたが、プログラムでこれを行う方法が見つかりません。N 行のテーブルを N 回連結し、XY 列をコピーし、Y を並べ替えてから X を並べ替え、この並べ替えられた列を NxN テーブルに貼り付けることで、これを実行しようとしました。

 

EVAL / SUBSTITUTION でこれを実行しようとしましたが、正常に実行できません。

Re: すべてのポイント間の距離を測定する

Distance() 関数を見ましたか? これを使用したスクリプトの Scripting Index の例を次に示します。

 

Names Default To Here( 1 );
/*1-D example*/
exX1 = [1, 2, 3, 4];
exX2 = [2, 4, 6, 8]; 
/*Compute squared Euclidean distance*/
exD = Distance( exX1, exX2 ); 
/*Verify result*/
exDm = J( 4, 4, . );
For( exi = 1, exi <= 4, exi++,
 For( exj = 1, exj <= 4, exj++,
  exDm[exi, exj] =
  Sum( (exX1[exi, 0] - exX2[exj, 0]) ^ 2 )
 )
);
Show( exDm == exD ); 

/*2-D example*/
exX1 = [1 1, 2 2, 3 3, 4 4];
exX2 = [2 1, 4 2, 6 0, 8 7]; 
/*Compute squared Euclidean distance*/
exD = Distance( exX1, exX2 ); 
/*Verify result*/
exDm = J( 4, 4, . );
For( exi = 1, exi <= 4, exi++,
 For( exj = 1, exj <= 4, exj++,
  exDm[exi, exj] =
  Sum( (exX1[exi, 0] - exX2[exj, 0]) ^ 2 )
 )
);
Show( exDm == exD ); 

/*2-D example*/
exX1 = [1 1, 2 2, 3 3, 4 4];
exX2 = [2 1, 4 2, 6 0, 8 7]; 
/*Compute squared Euclidean distance, with a scaler [0.5 2.0]*/
exD = Distance( exX1, exX2, [0.5 2.0] ); 
/*Verify result*/
exDm = J( 4, 4, . );
For( exi = 1, exi <= 4, exi++,
 For( exj = 1, exj <= 4, exj++,
  exDm[exi, exj] =
  Sum(
   [0.5 2.0] :*</img> (
   Abs( exX1[exi, 0] - exX2[exj, 0] ) ^ 2)
  )
 )
);
Show( exDm == exD ); 

/*2-D example*/
exX1 = [1 1, 2 2, 3 3, 4 4];
exX2 = [2 1, 4 2, 6 0, 8 7]; 
/*Compute squared Euclidean distance, with scalers [0.5 2.0] and powers [1.5 2.0]*/
exD = Distance( exX1, exX2, [0.5 2.0], [1.5 2.0] ); 
/*Verify result*/
exDm = J( 4, 4, . );
For( exi = 1, exi <= 4, exi++,
 For( exj = 1, exj <= 4, exj++,
  exDm[exi, exj] =
  Sum(
   [0.5 2.0] :*</img> (
   Abs( exX1[exi, 0] - exX2[exj, 0] ) :^ [
   1.5 2.0])
  )
 )
);
Show( exDm == exD );