/usr/share/octave/site/m/vlfeat/toolbox/quickshift/vl_flatmap.m is in octave-vlfeat 0.9.20+dfsg0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | function [map, C] = vl_flatmap(map)
% VL_FLATMAP Flatten a tree, assigning the label of the root to each node
% [LABELS CLUSTERS] = VL_FLATMAP(MAP) labels each tree of the forest contained
% in MAP. LABELS contains the linear index of the root node in MAP, CLUSTERS
% instead contains a label between 1 and the number of clusters.
%
% See also: VL_HELP().
% Copyright (C) 2007-12 Andrea Vedaldi and Brian Fulkerson.
% All rights reserved.
%
% This file is part of the VLFeat library and is made available under
% the terms of the BSD license (see the COPYING file).
% follow the parents list to the root nodes (where nothing changes)
while 1
map_ = map(map) ;
if isequal(map_,map) ; break ; end
map = map_ ;
end
[drop,drop,C] = unique(map) ;
|