fixdec.m

The Source of Genetic Programming developed in Matlab

function y = fixdec(x, n)
%FIXDEC Round towards zero with a specified number of decimals.
%
%   Y = FIXDEC(X, N) rounds the elements of X to N decimals.
%
%   For instance, fixdec(10*sqrt(2) + i*pi/10, 4) returns 14.1421 + 0.3141i
%
%   See also: FIX, FLOOR, CEIL, ROUND, FIXDIG, ROUNDDEC, ROUNDDIG.

%   Author:      Peter J. Acklam
%   Time-stamp:  2003-10-14 00:53:52 +0200
%   E-mail:      [e-mail]
%   URL:         http://home.online.no/~pjacklam

%   This file is distributed with the GPLAB Toolbox ([e-mail])


   % Check number of input arguments.
   error(nargchk(2, 2, nargin));

   % Quick exit if either argument is empty.
   if isempty(x) | isempty(n)
      y = [];
      return
   end

   % Get size of input arguments.
   size_x   = size(x);
   size_n   = size(n);
   scalar_x = all(size_x == 1);           % True if x is a scalar.
   scalar_n = all(size_n == 1);           % True if n is a scalar.

   % Check size of input arguments.
   if ~scalar_x & ~scalar_n & ~isequal(size_x, size_n)
      error(['When both arguments are non-scalars they must have' ...
             ' the same size']);
   end

   f = 10.^n;
   y = fix(x .* f) ./ f;