vb_check_yokogawa_marker

 check Left to Right order of marker
 marker : [5 x 3]
  Left          Right
  -Y: 1 4 3 5 2  -> (X: increase) 
  Yokogawa-MEG
  X: Back->Front
  Y: Right->Left
  Z: Down->Top

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function    result = vb_check_yokogawa_marker(marker)
0002 % check Left to Right order of marker
0003 % marker : [5 x 3]
0004 %  Left          Right
0005 %  -Y: 1 4 3 5 2  -> (X: increase)
0006 %  Yokogawa-MEG
0007 %  X: Back->Front
0008 %  Y: Right->Left
0009 %  Z: Down->Top
0010 %
0011 % Copyright (C) 2011, ATR All Rights Reserved.
0012 % License : New BSD License(see VBMEG_LICENSE.txt)
0013 
0014 result = FAILURE;
0015 
0016 % Left to Right order of marker
0017 order = [1 4 3 5 2];
0018 order = order(:);
0019 
0020 [N, D] = size(marker);
0021 
0022 if D~=3, 
0023     fprintf('Space dimension %d is not 3\n',D); 
0024     return
0025 end;
0026 
0027 if N~=5, 
0028     fprintf('Number of marker %d is not 5\n',N); 
0029     return
0030 end;
0031 
0032 [tmp, ix] = sort( -marker(:,2));
0033 
0034 err = sum(abs(ix - order));
0035 
0036 if err > 0,
0037     fprintf('Left to Right order of marker is unusual\n'); 
0038     return
0039 end;
0040 
0041 result = SUCCESS;