/usr/share/octave/packages/miscellaneous-1.2.1/truncate.m is in octave-miscellaneous 1.2.1-4.
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 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | %% Copyright (c) 2012 Juan Pablo Carbajal <carbajal@ifi.uzh.ch>
%%
%% This program is free software: you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation, either version 3 of the License, or
%% any later version.
%%
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%% GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public License
%% along with this program. If not, see <http://www.gnu.org/licenses/>.
%% -*- texinfo -*-
%% @deftypefn {Function File} {@var{y} =} truncate (@var{x}, @var{order}, @var{method})
%% @deftypefnx {Function File} {@var{y} =} truncate (@dots{}, @var{method})
%% Truncates @var{X} to @var{order} of magnitude.
%%
%% The optional argument @var{method} can be a hanlde to a function used to
%% truncate the number. Default is @code{round}.
%%
%% Examples:
%% @example
%% format long
%% x = 987654321.123456789;
%% order = [3:-1:0 -(1:3)]';
%% y = truncate (x,order)
%% y =
%% 987654000.000000
%% 987654300.000000
%% 987654320.000000
%% 987654321.000000
%% 987654321.100000
%% 987654321.120000
%% 987654321.123000
%%
%% format
%% [truncate(0.127,-2), truncate(0.127,-2,@@floor)]
%% ans =
%% 0.13000 0.12000
%%
%% @end example
%%
%% @seealso{round,fix,ceil,floor}
%% @end deftypefn
function y = truncate (x,order,method=@round)
ino = 0.1.^order;
o = 10.^order;
y = method (x.*ino).*o;
end
|