fix.m

几个关于多小波的程序

function P = fix(P)

% FIX -- built-in FIX, extended to matrix polynomials
%
%        P = fix(P)
%
% Round P.coef towards 0.

% Copyright (c) 2004 by Fritz Keinert ([e-mail]),
% Dept. of Mathematics, Iowa State University, Ames, IA 50011.
% This software may be freely used and distributed for non-commercial
% purposes, provided this copyright statement is preserved, and
% appropriate credit for its use is given.
%
% Last update: Feb 20, 2004

if isnumeric(P)
    P.coef = fix(P.coef);
elseif ~issymbolic(P)
% P contains only symbolic constants, not symbolic variables
% We convert to numbers, round, and convert back to symbolic form
% The "reshape" is necessary since Matlab cannot handle
% three-dimensional symbolic arrays correctly
    P.coef = reshape(sym(fix(double(P.coef(:)))),size(P.coef));
else
    error('FIX is not defined for symbolic variables');
end
P = trim(P);