Dilation according to surface-distance
Iextract = vb_fat_area(Jarea, R, nextIX, nextDD)
半径 R 以内の近傍点をリストに加える
Iextract : 新しい頂点リスト
Jarea : 頂点リスト
R : 探索する近傍点の半径 ( m )
nextIX{i} : 点-i の近傍点のインデックスリスト
nextDD{i} : 点-i と近傍点の皮質に沿った距離
Made by M. Sato 2004-3-28
Copyright (C) 2011, ATR All Rights Reserved.
License : New BSD License(see VBMEG_LICENSE.txt)0001 function Iextract = vb_fat_area(Jarea, R, nextIX, nextDD) 0002 % Dilation according to surface-distance 0003 % Iextract = vb_fat_area(Jarea, R, nextIX, nextDD) 0004 % 半径 R 以内の近傍点をリストに加える 0005 % 0006 % Iextract : 新しい頂点リスト 0007 % Jarea : 頂点リスト 0008 % R : 探索する近傍点の半径 ( m ) 0009 % 0010 % nextIX{i} : 点-i の近傍点のインデックスリスト 0011 % nextDD{i} : 点-i と近傍点の皮質に沿った距離 0012 % 0013 % Made by M. Sato 2004-3-28 0014 % 0015 % Copyright (C) 2011, ATR All Rights Reserved. 0016 % License : New BSD License(see VBMEG_LICENSE.txt) 0017 0018 NV = size(nextIX,1); % Number of all vertex 0019 NJ = length(Jarea); 0020 0021 flag = zeros(NV,1); 0022 0023 flag(Jarea) = 1; 0024 0025 for n=1:NJ, 0026 i = Jarea(n); 0027 dd0 = nextDD{i}; 0028 0029 % Find neighbor index within R 0030 inx = find( dd0 <= R ); 0031 indx = nextIX{i}(inx); 0032 0033 % Include neighbor point 0034 flag(indx) = 1; 0035 end; 0036 0037 Iextract = find( flag > 0 );