/usr/share/octave/site/m/vlfeat/toolbox/special/vl_rcos.m is in octave-vlfeat 0.9.17+dfsg0-6+b1.
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 | function y = vl_rcos(r,x)
% VL_RCOS RCOS function
% Y = VL_RCOS(R,X) computes the RCOS function with roll-off R.
%
% 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).
x = abs(x) ;
if(r > 0)
y = (x < (1 - r)) + ...
0.5 * (1 + cos((1 - r - x)/r*pi)) .* ...
(x <= 1) .* (x >= 1 - r) ;
else
y = (abs(x) <= 1) ;
end
|