0001 function result = vb_check_yokogawa_marker(marker)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014 result = FAILURE;
0015
0016
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;